当前位置：首页 - 正文

请问，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

假如从第一行开始，把A列每单元格内容插入到B列每单元格内容前面：
先在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

步骤如下所示：

有疑问随时联系~

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com