Excel VBA：依据表1 C1数字自动复制A1、B1内容到表2生成重复数据（附代码）

以下是一个基本的Excel VBA宏代码示例，它可以根据表1中C1单元格的数值，将A1和B1单元格的内容复制到表2相应数量的行。 ```vba Sub CopyData() Dim sourceSheet As Worksheet, targetSheet As Worksheet Dim i As Long, count As Long '设置源表和目标表 Set sourceSheet = ThisWorkbook.Sheets("表1") Set targetSheet = ThisWorkbook.Sheets("表2") '获取需要复制的次数 count = sourceSheet.Range("C1").Value '确保计数是正数 If count > 0 Then '清空目标表从第二行开始的所有数据（假设第一行为表头） targetSheet.Rows("2:" & Rows.Count).ClearContents '复制数据 For i = 1 To count '复制A1和B1的内容到目标表的下一行 targetSheet.Range("A" & (i + 1) & ":B" & (i + 1)).Value = sourceSheet.Range("A1:B1").Value Next i End If End Sub ``` 这段代码首先定义了源表（表1）和目标表（表2），然后读取C1单元格的值作为复制的次数。接着，根据这个次数，将在A1和B1中的数据复制到表2的相应行数。运行此宏之前，请确认你的表格名称以及数据位置是否与代码中的设置一致，并且表2有足够的空白行用于接收复制的数据。 ######[AI写代码神器 | 343点数解答 | 2024-01-10 22:40:43]