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

2024年12月04日 23:41

有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