Excel VBA：按表1 C列数字自动复制A、B列内容到表2生成重复数据（附代码）

你可以通过以下的VBA代码来实现这个功能： ```vba Sub CopyDataBasedOnCount() Dim ws1 As Worksheet, ws2 As Worksheet Dim i As Long, j As Long, count As Long ' 设置你的工作表名称，这里假设表1是Sheet1，表2是Sheet2 Set ws1 = ThisWorkbook.Sheets("Sheet1") Set ws2 = ThisWorkbook.Sheets("Sheet2") ' 初始化目标单元格位置 j = 1 For i = 1 To ws1.Range("A" & Rows.Count).End(xlUp).Row count = ws1.Cells(i, "C").Value ' 获取C列的数值，即复制次数 If count > 0 Then ' 根据C列的数值复制A和B列的数据 ws1.Range("A" & i & ":B" & i).Copy Destination:=ws2.Range("A" & j) ' 更新目标单元格的位置 j = j + count ' 如果需要在不同的行插入数据，而不是连续行，可以使用如下循环： ' For k = 1 To count ' ws2.Range("A" & j).Resize(1, 2).Value = ws1.Range("A" & i & ":B" & i).Value ' j = j + 1 ' Next k End If Next i End Sub ``` 这段代码首先遍历表1（Sheet1）的所有行，根据C列的值（复制次数），将A列和B列的数据复制到表2（Sheet2）相应数量的行中。如果C列的值为0或负数，则不会复制该行数据。 注意：请确保表2有足够的空行用于接收复制过来的数据。如果数据会超过表2的实际行数，需要提前进行判断和处理。 ######[AI写代码神器 | 414点数解答 | 2024-01-10 22:52:47]