- 帖子
- 178
- 主題
- 53
- 精華
- 0
- 積分
- 242
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2007
- 閱讀權限
- 20
- 註冊時間
- 2011-2-22
- 最後登錄
- 2025-12-8
|
[發問] 請問以欄為主的儲存格~如何設定迴圈?(已解決)
本帖最後由 棋語鳥鳴 於 2011-9-21 21:25 編輯
請問如何把下面寫成迴圈(共20個)
因為中有檔案一中(每2欄就有加了一欄資料)~所以從第二次貼到檔案二時會減一欄
錄製的程式碼如下:
請問迴圈要如何寫?
順便問一下:column(2)=Columns("B")
Columns("B:C")中的BC要如何以數字方式呈現??- Sub 迴圈測試()
- Windows("檔案一.xlsb").Activate
- Sheets("輸入一").Select
- Columns("T:U").Select
- Selection.Copy
- Windows("檔案二.xlsb").Activate
- Columns("T:U").Select
- ActiveSheet.Paste
- Windows("檔案一.xlsb").Activate
- Sheets("輸入一").Select
- Columns("W:X").Select
- Application.CutCopyMode = False
- Selection.Copy
- Windows("檔案二.xlsb").Activate
- Sheets("貼上位置").Select
- Columns("V:W").Select
- ActiveSheet.Paste
- Windows("檔案一.xlsb").Activate
- Sheets("輸入一").Select
- Columns("Z:AA").Select
- Application.CutCopyMode = False
- Selection.Copy
- Windows("檔案二.xlsb").Activate
- Sheets("貼上位置").Select
- Columns("X:Y").Select
- ActiveSheet.Paste
- Windows("檔案一.xlsb").Activate
- Sheets("輸入一").Select
- Columns("AC:AD").Select
- Application.CutCopyMode = False
- Selection.Copy
- Windows("檔案二.xlsb").Activate
- Sheets("貼上位置").Select
- Columns("Z:AA").Select
- ActiveSheet.Paste
- Windows("檔案一.xlsb").Activate
- Columns("AF:AG").Select
- Application.CutCopyMode = False
- Selection.Copy
- Windows("檔案二.xlsb").Activate
- Sheets("貼上位置").Select
- Columns("AB:AC").Select
- ActiveSheet.Paste
- Windows("檔案一.xlsb").Activate
- Range("A1").Select
- Application.CutCopyMode = False
- Range("S1").Select
- End Sub
|
|
發表於 2011-9-21 20:36
| 
