作者poleman (本来就没有)
看板Visual_Basic
标题[VBA ] 多栏位复制至另一sheet
时间Sun Jul 27 22:32:57 2014
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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1406471579.A.7D5.html
※ 编辑: poleman (111.255.155.104), 07/27/2014 22:42:34
1F：推 johnpage:录巨集，看程式 07/27 23:17
※ 编辑: poleman (111.255.155.104), 07/27/2014 23:41:19
2F：推 tsongs:1个For对1个Next 你有2个For确只有个Next 07/28 01:14
3F：→ tsongs:next j 换行 next i 07/28 01:14
4F：→ tsongs:还有有Step 不用i+1 j+2 会跳2次 07/28 01:16
5F：→ poleman:谢谢楼上，找到人问到答案了～ 07/28 18:21