请问，excel中怎么把一列数据间隔插入到另一列数据中？
发布网友
发布时间：2022-03-02 05:47
共4个回答
热心网友
时间：2022-03-02 07:33
你好，楼主！这个也可以使用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）程序的运行结果如下截图所示：
热心网友
时间：2022-03-02 09:07
先在C1输入=A1&B1，往下复制公式，再选中所有复制结果，再点复制，点击B1，右键，选择性粘贴，在菜单里选“数值”，确定。最后删除C列。
热心网友
时间：2022-03-02 10:59
见样表截图，C1输入
=IF(ISODD(ROW()),OFFSET($A$1,ROW(A1)-1,),OFFSET($B$1,INT((ROW(A1)-1)/2),))
公式下拉
余下的工作你自己处理
热心网友
时间：2022-03-02 13:07
步骤如下所示：
有疑问随时联系~
