Excel VBA：用代码根据单元格数字自动生成对应数量重复数据

在Excel VBA中，你可以通过循环结构来实现根据一个单元格的数字自动生成相应数量的重复数据。以下是一个简单的示例： ```vba Sub GenerateData() Dim sourceRange As Range Dim countCell As Range Dim targetRange As Range Dim i As Long ' 设置源数据单元格（这里假设是A1） Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 设置包含数字的单元格（这里假设是B1，该数字表示要生成的重复次数） Set countCell = ThisWorkbook.Sheets("Sheet1").Range("B1") ' 设置目标区域开始单元格（这里假设从C1开始填充） Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("C1") ' 根据B1单元格的数值进行循环 For i = 1 To countCell.Value ' 将源数据复制到目标区域 targetRange.Offset(i - 1, 0).Value = sourceRange.Value Next i End Sub ``` 这段代码将会把A1单元格的内容按照B1单元格的数量复制到C列，例如，如果A1的内容是"Hello"，B1的内容是3，那么C1、C2和C3都将被填充为"Hello"。 ######[AI写代码神器 | 295点数解答 | 2024-01-10 19:51:45]