求教如何用VBA，每隔相同列数，复制对应的内容

yves520

求教高手，附件图片是举例，如何写VBA公式，需要复制C2到E10内容，粘贴在F2位置，I2位置，L2位置...
通过点击按钮进行循环粘贴。
万分感谢！

爱疯

Sub test()
    Dim j
    For j = 3 To [i1].Column Step 3
        Cells(2, j).Resize(9).Copy Cells(2, j).Offset(0, 2)
    Next j
End Sub

yves520

爱疯 发表于 2019-4-19 09:09
Sub test()
    Dim j
    For j = 3 To .Column Step 3

您好，试过了，但运行无反应

爱疯

yves520 发表于 2019-4-19 10:14
您好，试过了，但运行无反应

建议上传一个附件，因为不知道你的文档会不会有些什么特殊情况。
另外，方便别人回复，其实就是方便解决自己的问题

yves520

爱疯 发表于 2019-4-19 10:29
建议上传一个附件，因为不知道你的文档会不会有些什么特殊情况。
另外，方便别人回复，其实就是方便解决 ...

首次弄，不好意思，已经上传了附件，谢谢帮忙

爱疯

如何连续复制.rar (16.38 KB, 下载次数: 3)

2019-4-19 14:41 上传

点击文件名下载附件

yves520

爱疯 发表于 2019-4-19 14:41

不好意思，可能是我表达不好，我想将C2：E10内容，逐个复制在F2，I2，L2，O2，.... 因要复制很多次(50次以上)。

爱疯

yves520 发表于 2019-4-19 16:33
不好意思，可能是我表达不好，我想将C2：E10内容，逐个复制在F2，I2，L2，O2，.... 因要复制很多次(50次 ...

不明白题意

要不你用6楼的附件，手动给出直至I2的结果？

flin

http://www.excelpx.com/forum.php?mod=attachment&aid=NDM0MDM5fGUwOGEzYjBmMGVkZDY5NDU0ZjY3MmUwY2U2Yzc4NGVjfDE3MTUwNDM3NzQ%3D&request=yes&_f=.png

Sub 宏3()
    Dim i, b
    'b = ActiveSheet.Range("IV1").End(xlToLeft).Column
   
    b = 50  '复制次数
   
    Range("C2:E10").Select
    Selection.Copy
For i = 1 To b
    Cells(2, i * 3 + 3).Select
    ActiveSheet.Paste
    Next
End Sub