Board logo

標題: [發問] 請問以欄為主的儲存格~如何設定迴圈?(已解決) [打印本頁]
作者: 棋語鳥鳴    時間: 2011-9-21 20:36     標題: 請問以欄為主的儲存格~如何設定迴圈?(已解決)

本帖最後由 棋語鳥鳴 於 2011-9-21 21:25 編輯

請問如何把下面寫成迴圈(共20個)
因為中有檔案一中(每2欄就有加了一欄資料)~所以從第二次貼到檔案二時會減一欄
錄製的程式碼如下:
請問迴圈要如何寫?
順便問一下:column(2)=Columns("B")
Columns("B:C")中的BC要如何以數字方式呈現??
  1. Sub 迴圈測試()

  3.     Windows("檔案一.xlsb").Activate
  4.     Sheets("輸入一").Select
  5.     Columns("T:U").Select
  6.     Selection.Copy
  7.     Windows("檔案二.xlsb").Activate
  8.     Columns("T:U").Select
  9.     ActiveSheet.Paste
  10.     Windows("檔案一.xlsb").Activate
  11.     Sheets("輸入一").Select
  12.     Columns("W:X").Select
  13.     Application.CutCopyMode = False
  14.     Selection.Copy
  15.     Windows("檔案二.xlsb").Activate
  16.     Sheets("貼上位置").Select
  17.     Columns("V:W").Select
  18.     ActiveSheet.Paste
  19.     Windows("檔案一.xlsb").Activate
  20.     Sheets("輸入一").Select
  21.     Columns("Z:AA").Select
  22.     Application.CutCopyMode = False
  23.     Selection.Copy
  24.     Windows("檔案二.xlsb").Activate
  25.     Sheets("貼上位置").Select
  26.     Columns("X:Y").Select
  27.     ActiveSheet.Paste
  28.     Windows("檔案一.xlsb").Activate
  29.     Sheets("輸入一").Select
  30.     Columns("AC:AD").Select
  31.     Application.CutCopyMode = False
  32.     Selection.Copy
  33.     Windows("檔案二.xlsb").Activate
  34.     Sheets("貼上位置").Select
  35.     Columns("Z:AA").Select
  36.     ActiveSheet.Paste
  37.     Windows("檔案一.xlsb").Activate
  38.     Columns("AF:AG").Select
  39.     Application.CutCopyMode = False
  40.     Selection.Copy
  41.     Windows("檔案二.xlsb").Activate
  42.     Sheets("貼上位置").Select
  43.     Columns("AB:AC").Select
  44.     ActiveSheet.Paste
  45.     Windows("檔案一.xlsb").Activate
  46.     Range("A1").Select
  47.     Application.CutCopyMode = False
  48.     Range("S1").Select
  49. End Sub
複製代碼
作者: GBKEE    時間: 2011-9-21 21:02

回復 1# 棋語鳥鳴
  1. Sub Ex()
  2.     Dim Rng As Range, Rng1 As Range, i As Integer
  3.     Set Rng = Workbooks("檔案一.xlsb").Sheets("輸入一").Columns("T:U")
  4.     Set Rng1 = Workbooks("檔案二.xlsb").Sheets(1).[T1]        'Sheets(1)    ->第1張工作表
  5.     'Set Rng1 = Workbooks("檔案二.xlsb").ActiveSheet.[T1]     'ActiveSheet  ->作用中的工作表
  6.     'Set Rng1 = Workbooks("檔案二.xlsb").Sheets("???").[T1]   'Sheets("???") ->指定的工作表
  7.     For i = 1 To 20                     '20次的迴圈
  8.         Rng.Copy Rng1
  9.         Set Rng = Rng.Offset(, 3)       '往後位移3欄
  10.         Set Rng1 = Rng1.Offset(, 3)     '往後位移3欄
  11.     Next
  12. End Sub
複製代碼
作者: 棋語鳥鳴    時間: 2011-9-21 21:24

回復 2# GBKEE


    G大您真強，這麼短的時間就改好了，而且寫得這麼詳細!一看就明瞭!完全正確~省了我好多的時間!謝謝您了~~



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)