但凡 Excel 中这种有规律的重复操作,自动化才是终极简化

点击任意文章上方的“☆星标”即可。

案例：

解决方案 1：

Sub CopyRangeMultipleTimes()    Dim ws As Worksheet    Set ws = ThisWorkbook.Sheets(1) '数据表所在的工作表    Dim sourceRange As Range    Dim destRange As Range    Dim i As Integer    Set sourceRange = ws.Range("A2:A4") ' 设置源区域    Set destRange = ws.Range("B2") ' 设置要放置结果的起始位置    For i = 1 To 5 ' 将源区域循环复制5次        sourceRange.Copy Destination:=destRange        Set destRange = destRange.Offset(sourceRange.Rows.Count) ' 向下偏移源区域的行数    Next iEnd Sub

解决方案 2：

Sub CopyRangeMultipleTimes()    Dim ws As Worksheet    Set ws = ThisWorkbook.Sheets(1) '数据表所在的工作表    Dim i As Integer, j As Integer    Dim targetRow As Integer    targetRow = 2 ' B列起始行号    For i = 2 To 4 '源区域的行号        For j = 1 To 5 '循环 5 次            ws.Cells(targetRow, 2).Value = ws.Cells(i, 1).Value ' 假设A列是第一列，B列是第二列            targetRow = targetRow + 1 ' 移动到B列的下一行        Next j    Next iEnd Sub