[VBA ] 多欄位複製至另一sheet

看板Visual_Basic作者 (本來就沒有)時間11年前 (2014/07/27 22:32), 11年前編輯推噓2(203)
留言5則, 3人參與, 最新討論串1/1
VBA新手還請各位指教~ 有兩個sheet想要複製sheet A的欄位資料至sheet B 已在B的欄位資料間,各新增一個空白欄,以便將sheet A的欄位逐欄複製過去 sheet A的欄位則是依照順序排列 使的sheet B的欄位變成 1 (空欄) 3 (空欄) 5 (空欄) 7 (空欄) 9 想請問各版友,有什麼方法可以複製過去,所以想請版友協助~ 不太會寫迴圈,這好像使用迴圈較方便~ 感謝~~ *****************************分隔線******************************* 剛剛寫以下這個迴圈,但一直說我next錯誤,不知道錯在哪裡, 再麻煩版友協助~T.T Sub test() Dim i, j As Integer For i = 8 To 10 Step 1 For j = 8 To 12 Step 2 i = i + 1: j = j + 2 Sheets(1).Select Columns(i).Select Columns(i).Copy Sheets(2).Select Columns(j).Select Columns(j).Paste Next End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.255.155.104 ※ 文章網址: http://www.ptt.cc/bbs/Visual_Basic/M.1406471579.A.7D5.html ※ 編輯: poleman (111.255.155.104), 07/27/2014 22:42:34

07/27 23:17, , 1F
錄巨集,看程式
07/27 23:17, 1F
※ 編輯: poleman (111.255.155.104), 07/27/2014 23:41:19

07/28 01:14, , 2F
1個For對1個Next 你有2個For確只有個Next
07/28 01:14, 2F

07/28 01:14, , 3F
next j 換行 next i
07/28 01:14, 3F

07/28 01:16, , 4F
還有有Step 不用i+1 j+2 會跳2次
07/28 01:16, 4F

07/28 18:21, , 5F
謝謝樓上,找到人問到答案了~
07/28 18:21, 5F
文章代碼(AID): #1JrGsRVL (Visual_Basic)
文章代碼(AID): #1JrGsRVL (Visual_Basic)