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

发布网友发布时间：2022-04-23 19:41

共4个回答

热心网友时间：2022-05-31 16:12

你好，楼主！这个也可以使用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-05-31 17:47

假如从第一行开始，把A列每单元格内容插入到B列每单元格内容前面：
先在C1输入=A1&B1，往下复制公式，再选中所有复制结果，再点复制，点击B1，右键，选择性粘贴，在菜单里选“数值”，确定。最后删除C列。

热心网友时间：2022-05-31 19:38

见样表截图，C1输入

=IF(ISODD(ROW()),OFFSET($A$1,ROW(A1)-1,),OFFSET($B$1,INT((ROW(A1)-1)/2),))

公式下拉

余下的工作你自己处理

热心网友时间：2022-05-31 21:46

步骤如下所示：

有疑问随时联系~