数据移动到每一列后的空白行

Question

请参考我的图片，这样您可能会得到我的数据源字段ID 关于我的问题，  列一个字段有20k个值行，我想在数据移动到列级之后创建空白行（（空白行数=列数）

请给我解决方案vb MY数据源字段 VBA或任何公式MY DATA SOURCE IMAGE

Answer 1

尝试此代码

Sub Test()
Dim myAreas     As Areas
Dim i           As Long
Dim c           As Long

Application.ScreenUpdating = False
    Set myAreas = Columns(1).SpecialCells(2, 1).Areas
    c = 1

    For i = 1 To myAreas.Count
        c = c + 1
        Cells(myAreas(i)(1).Row, c).Resize(myAreas(i).Count).Value = myAreas(i).Value
    Next i
Application.ScreenUpdating = True
End Sub