要求 VBA 高手

wueddie

1. Sub MM1()
   
2. Dim Check As Range, r As Long, lastrow2 As Long, lastrow As Long
   
3. Application.ScreenUpdating = False
   
4. lastrow = Worksheets("sheet1").UsedRange.Rows.Count
   
5. lastrow2 = Worksheets("Sheet2").UsedRange.Rows.Count
   
6. If lastrow2 = 1 Then lastrow2 = 0
   
7.     For r = lastrow To 2 Step -1
   
8.         If Range("D" & r).Value = "Done" Then
   
9.             Rows(r).Cut Destination:=Worksheets("Sheet2").Range("A" & lastrow2 + 1)
   
10.             lastrow2 = lastrow2 + 1
    
11.             Else:
    
12.         End If
    
13.     Next r
    
14. Application.ScreenUpdating = True
    
15. End Sub

複製代碼

上述是從外國某討論區COPY 下來的VBA SCRIPT. 作用是當 Sheet1 的D行有 Done 的字便會自動成 row data (Column A to F)
搬去 Sheet2的新一行(Column A to F),但可惜是.我想在 Sheet 2 的 G Column 做一些算式 , 但由於Column 有data , 導致
Sheet1 的資料不能再搬去 Sheet2 .

有沒有 VBA 高手可以幫忙.. 可以改成
當 Sheet1 Column D = Done
便 Sheet1 A to F column 移到 Sheet2 A to F , 而Sheet2 F COLUMN 有一些算式