Question

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

sheet2有个表格在A和B列，数据从第二行开始，A列是名称，B列是数量。如何把A列单元格的内容，按B列单元格显示的数量，填充到sheet1的A列到D列，要能首尾相连。比如sheet2中的A2单元格内容是D，B2单元格的内容是5，A3单元格内容是C，B3单元格内容是2.则在sheet1的A列到D列依次从A1开始填充5个D，之后再填充2个C。





Answer 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