Question

EXCEL VBA移动内容到指定范围空单元处

P26：Z39为区域1的范围
2.A18：K37为区域2的范围
3.将区域1的内容移动到区域2
4.列对列接着区域2内容

Answer 1

Sub s()
    Dim rg1 As Range, rg2 As Range
    Set rg1 = [p26: z39]
    Set rg2 = [a18: k37]
    For i = 1 To rg1.Columns.Count
        j = 1
        While rg2.Cells(j, i) <> ""
            j = j + 1
        Wend
        k = 1
        While rg1.Cells(k, i) <> ""
            rg2.Cells(j, i) = rg1.Cells(k, i)
            j = j + 1
            k = k + 1
        Wend
    Next
End Sub