请问，excel中怎么把一列数据间隔插入到另一列数据中

Question

如题所述

Answer 1

你好，楼主！这个也可以使用VBA程序进行处理，几行代码就搞定。当然，为了一个小小的问题而采用VBA程序处理，似乎有点“杀鸡焉用宰牛刀”，不过学学也好。

（1）VBA程序代码如下所示：

Sub Intset_i()
Dim i1, i2
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义工作表Sheet1
i2 = 1   'i2初始值

For i1 = 2 To 1000  '从第2行到1000行
 If i1 Mod 2 = 0 And mysheet1.Cells(i1, 1) <> "" And mysheet1.Cells(i1 + 1, 1) = "" Then
 '如果是偶数行且此单元格不是空白且下一个单元格是空白，则
  i2 = (mysheet1.Cells(i1 + 1, 1).Row - 3) / 2 + 2   '获取B列对应数值所在的位置
  mysheet1.Cells(i1 + 1, 1) = mysheet1.Cells(i2, 2)  '把B列相应的数值插入A列的空白单元格中
 End If
Next

End Sub

（2）程序的运行结果如下截图所示：