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

turbine

問題檔.zip (2.07 KB)

問題檔
下載次數: 7

2012-2-14 12:52

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

register313

回復 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

複製代碼

turbine

對不起，小弟我完全不了解程式碼...
請問大大可以逐段說明每段的用意嗎？
另外，是不是將程式碼複製後貼到程式碼區就好？
接下來要怎麼讓他執行？

下載 (86.98 KB)

2012-2-14 14:41

register313

回復 3# turbine

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

下載 (82.52 KB)

2012-2-14 14:58

問題檔.rar (8.84 KB)

下載次數: 4

2012-2-14 15:04

turbine

哇喔~~~可以了！
謝謝大大的指導~~~
只是...能否抽空說明這段程式碼的涵意，好讓小弟可以多加了解~~~
無論如何，還是感激不盡呀~~~