...数据交叉填充到另一列,求各位大神帮忙,感激不尽,(最好有解析)!_百 ...

发布网友 发布时间：2024-10-24 03:43

我来回答

共6个回答

热心网友 时间：2024-11-08 00:39

见截图

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),))

公式下拉

热心网友 时间：2024-11-08 00:42

公式不知道

可以用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

热心网友 时间：2024-11-08 00:40

写代码可以实现

热心网友 时间：2024-11-08 00:36

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

热心网友 时间：2024-11-08 00:38

复杂的使用代码

会启用宏么？

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

热心网友 时间：2024-11-08 00:39

采用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