各位好
小弟想要把
這個檔案
改成這樣
本來自以為聰明錄一次巨集就可以了
結果後來發現
還要設定迴圈
可是上網都找不到我要的迴圈教學
想要請問各位先進
我該怎麼做呢?
在此先感謝各位了<(__ __)>
在此附上我錄下來的巨集
Selection.Copy
Windows("Book2.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("Book1.xls").Activate
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2.xls").Activate
Range("B1").Select
ActiveSheet.Paste
Windows("Book1.xls").Activate
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2.xls").Activate
Range("C1").Select
ActiveSheet.Paste
Windows("Book1.xls").Activate
Range("E1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2.xls").Activate
Range("C2").Select
ActiveSheet.Paste
Windows("Book1.xls").Activate
Range("F1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2.xls").Activate
Range("C3").Select
ActiveSheet.Paste
Windows("Book1.xls").Activate
Range("G1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2.xls").Activate
Range("C4").Select
ActiveSheet.Paste
Windows("Book1.xls").Activate
Range("H1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2.xls").Activate
Range("C5").Select
ActiveSheet.Paste
Windows("Book1.xls").Activate
Range("I1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2.xls").Activate
Range("C6").Select
ActiveSheet.Paste
Windows("Book1.xls").Activate
Range("J1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book2.xls").Activate
Range("C7").Select
ActiveSheet.Paste
End Sub
內文搜尋
從 APP 打開
X