51问答网 > Excel怎么让列数据交叉填充到另一列，求各位大神帮忙，感激不尽，（最好有解析）！

Excel怎么让列数据交叉填充到另一列，求各位大神帮忙，感激不尽，（最好有解析）！

2025-03-24 00:45:39

推荐回答（6个）

回答1：

见截图

D1输入

=IF(MOD(ROW(A1)-1,6)<=3,OFFSET($A$1,MOD(ROW(A1)-1,6)+4*INT((ROW(A1)-1)/6),),OFFSET($B$1,MOD(ROW(A1)-1,2)+2*INT((ROW(A1)-1)/6),))

公式下拉

回答2：

写代码可以实现

回答3：

复杂的使用代码

会启用宏么？

戳我头像，一切都会有的。所得取决于所付出的。

回答4：

是乱填还是有规律填呢？有要求吗？你可以在D列中D1填＝A1然后下拉到D4在D5D6单元格填B1B2,然后选中D1到D6下拉填充就实现图中的交叉填充了

回答5：

公式不知道

可以用vba

Sub AA()
Dim i, k
  For i = 1 To Range("a65536").End(xlUp).Row Step 4
    For k = 1 To 2
    N = Range("D65536").End(xlUp).Row
    Range(Cells(i, k), Cells(i + 3, k)).Copy Cells(N + 1, "d")
         Next
     Next
End Sub

回答6：

采用vba比较方便：
Sub testt()
Dim i, k
For i = 1 To Cells(rows.count,1).End(xlUp).Row Step 4
For k = 1 To 2
n= Cells(rows.count,4).End(xlUp).Row
Range(Cells(i, k), Cells(i + 3, k)).Copy Cells(n+ 1, "d")
Next
Next
End Sub