返回列表 上一主題 發帖

[發問] 請問有沒有快速整理的方法？

turbine

帖子
36 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2010-5-25 
最後登錄
2015-8-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-14 12:55 | 只看該作者

[發問] 請問有沒有快速整理的方法？

問題檔.zip (2.07 KB)

請問各位先進，如附件，
有沒有快速整理的方法，從物料總檔轉換成整理檔的樣子？
附件是用手工一項一項弄成的...
總共約有1千多項材編...加上批次各有1~6批不等...
有沒有快速又好用的公式或方法？謝謝。
收藏 分享

turbine

帖子
36 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2010-5-25 
最後登錄
2015-8-13 
5#
發表於 2012-2-14 15:57 | 只看該作者
哇喔~~~可以了！
謝謝大大的指導~~~
只是...能否抽空說明這段程式碼的涵意，好讓小弟可以多加了解~~~
無論如何，還是感激不盡呀~~~

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-2-14 15:04 | 只看該作者
回復 3# turbine

在VBA編輯器內
1.插入/模組   產生Module1
2.在Module1上雙點  將程式碼貼至右方編輯區
3.按 執行(在上方工具列 向右的三角形)


問題檔.rar (8.84 KB)

TOP

turbine

帖子
36 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
註冊時間
2010-5-25 
最後登錄
2015-8-13 
3#
發表於 2012-2-14 14:41 | 只看該作者
對不起，小弟我完全不了解程式碼...
請問大大可以逐段說明每段的用意嗎？
另外，是不是將程式碼複製後貼到程式碼區就好？
接下來要怎麼讓他執行？

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-2-14 14:24 | 只看該作者
回復 1# turbine
  1. Sub YY()
  2. RS = 2: RT = 2
  3. With Sheets("物料總檔")
  4.   Do While .Cells(RS, "A") <> ""
  5.      CT = 4
  6.      If .Cells(RS, "A") <> .Cells(RS - 1, "A") Then
  7.         .Cells(RS, "A").Resize(1, 3).Copy Sheets("整理檔").Cells(RT, "A")
  8.          Do While .Cells(RS + 1, "A") = .Cells(RS, "A")
  9.            .Cells(RS + 1, "B").Resize(1, 2).Copy Sheets("整理檔").Cells(RT, CT)
  10.             RS = RS + 1
  11.             CT = CT + 2
  12.          Loop
  13.          RT = RT + 1
  14.      End If
  15.      RS = RS + 1
  16.   Loop
  17. End With
  18. End Sub
複製代碼

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題