VBA的新功能，在两个不同的电子表格中为每个位置分配指定数量的建筑物

Sub AllocateBuildings()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置工作表对象
    Set ws1 = ThisWorkbook.Sheets("电子表格1")
    Set ws2 = ThisWorkbook.Sheets("电子表格2")
    
    ' 获取"电子表格1"中建筑物数量列的最后一行
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历建筑物数量列，为每个位置分配指定数量的建筑物
    For i = 2 To lastRow
        Dim buildingCount As Long
        Dim j As Long
        
        ' 获取当前行的建筑物数量
        buildingCount = ws1.Cells(i, "A").Value
        
        ' 在"电子表格2"中为当前位置分配指定数量的建筑物
        For j = 1 To buildingCount
            ws2.Cells(j, "A").Value = ws1.Cells(i, "B").Value
        Next j
    Next i
End Sub