excel如何通过vba填充指定个数的单元格内容

2024-12-04 23:41:48

推荐回答（1个）

回答1：

Sub s()
    arr = Sheets("sheet2").[a1].CurrentRegion
    r = 1
    c = 1
    Sheets("sheet1").Activate
    For i = 2 To UBound(arr)
        For j = 1 To arr(i, 2)
            Cells(r, c) = arr(i, 1)
            c = c + 1
            If c = 5 Then
                r = r + 1
                c = 1
            End If
        Next
    Next
End Sub