Excel VBA：依据表1 C列数字自动将A、B列内容复制到表2的方法与代码示例

以下是一个基本的Excel VBA脚本示例，它会根据表1（假设是工作表"Sheet1"）的C列值，将A列和B列的内容复制到表2（假设是工作表"Sheet2"）中相应数量的行： ```vba Sub CopyData() Dim wsSource As Worksheet, wsTarget As Worksheet Dim iRow As Long, iLastRow As Long, iCount As Long ' 设置源表和目标表 Set wsSource = ThisWorkbook.Sheets("Sheet1") Set wsTarget = ThisWorkbook.Sheets("Sheet2") ' 获取源表的最后一行 iLastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row ' 从第一行开始遍历源表 For iRow = 1 To iLastRow ' 获取C列的重复次数 iCount = wsSource.Cells(iRow, "C").Value ' 如果C列的值大于0，则复制A列和B列的内容到目标表 If iCount > 0 Then With wsTarget ' 找到目标表的下一个空行 .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(iCount, 2).Value = _ wsSource.Cells(iRow, "A").Resize(1, 2).Value End With End If Next iRow End Sub ``` 这个脚本将会把表1中每行A列和B列的内容复制到表2中相应次数的新行上。如果表2当前行之后没有足够的空行来容纳所有复制的内容，代码可能会出错。在实际应用中，可能需要对目标位置进行更精确的控制。 上述代码假设C列的数字表示的是在表2中需要复制A列和B列内容的行数。如果C列的含义不同，请按实际情况调整。 ######[AI写代码神器 | 431点数解答 | 2024-01-10 23:04:31]