[VBA ] 多字段复制至另一sheet

楼主: poleman (本来就没有)   2014-07-27 22:32:57
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
作者: johnpage (johnpage)   2014-07-27 23:17:00
录宏,看程式
作者: tsongs (......)   2014-07-28 01:14:00
1个For对1个Next 你有2个For确只有个Nextnext j 换行 next i还有有Step 不用i+1 j+2 会跳2次
楼主: poleman (本来就没有)   2014-07-28 18:21:00
谢谢楼上,找到人问到答案了~

Links booklink

Contact Us: admin [ a t ] ucptt.com