excel vba 怎么隔行填有规律的数据？ excel表格vba代码大全

excel vba 怎么隔行填有规律的数据？excel表格vba代码大全

excel中如何隔行填充数值

EXCEL中隔行填充有以下几个方法可以实现

1、通过操作的方式来实现，就是在需要的有规律的单元格中输入内容，至少一个周期，然后把这些单元格选择上，用控制点进行填充就可以了。

比如：先在A1和A2里输入301，在A3和A4里输入302，

然后选中A1到A4，然后向下执行拖动复制（光标点在右下角）

就可以实现。

2、通过公式来实现，就是在公式里判断当前行是不是需要填充的，如果需要就把需要的内容写上，如果不是，就留空，具体写法查一下公式吧。

3、可以用vba脚本来实现，这个就比较灵活了，要有基础的话，一会就可以写完。如果没有基础，可以通过录制的方式，然后再参考录制好的内容进行修改就可以了。

还会有其它的方法，就先介绍这些，用好了，就可以解决EXCEL中隔行填充的问题。

在C1单元格输入以下公式，然后向右向下填充公式

=OFFSET($A$1,(ROW(A1)-1)*2+COLUMN(A1)-1,,)

详见附图

在宏编辑中代码如下：

Sub 当前行的隔行插入1行()

Selection.Offset(2, 0).Insert

End Sub运行结果如图：

以上可根据需要进行循环

Sub 当前行的隔行插入1行_循环()

For i = 1 To 5

Selection.Offset(3 * i - 1, 0).Insert

End Sub运行结果如图：

更改循环次数，将“To 5”更改至需要次数

楼主希望回答者的VBA代码写清注释。非常理解。但是，楼主是不是理解知友需要了解清楚你的需求才能提供合适的建议呢？

你这【数据隔4行一复制】、【每行内容隔4行一复制】所想表达的内容到底是什么，大概只有你才能看得懂：

1. 【数据隔4行一复制】：从哪里开始，到哪里终止？VBA是代码，需要精确的定位

2. 【每行内容隔4行一复制】：既然是【每行内容】了，又何来【隔4行一复制】？当然同样有【从哪里开始，到哪里终止？】这个问题

3. 既然是【复制】，那么复制后，又要作何操作，难道就是要【将表2中的数据单元格对应填到表1的单元格中】？那么，怎么个对应法？刚才表1复制的内容又准备做什么？

一个含含糊糊的提问，就很少有人会愿意参与了