Excel VBA宏实现每隔100行提取数据的技术问询

优化后的VBA代码（推荐写法） #

Dim x As Long
For x = 1 To 100
    ' 计算Sheet1中姓名所在的行号：1、101、201...依次递增100
    Dim sourceRow As Long
    sourceRow = 1 + (x - 1) * 100
    ' 直接给Sheet2的对应单元格设置引用公式
    Sheets("Sheet2").Cells(x, "A").Formula = "=Sheet1!A" & sourceRow
Next x

代码说明 #

• 核心逻辑是通过sourceRow = 1 + (x - 1) * 100计算Sheet1中目标单元格的行号：当x从1到100时，会生成1、101、201…9901这些间隔100的行号，完美匹配姓名的分布位置。
• 直接通过Sheets("Sheet2").Cells(x, "A")定位目标单元格，无需使用Select或ActiveCell，这种写法更高效，也能避免因单元格选中状态变化引发的错误。

保留原操作逻辑的修改版本 #

如果习惯使用Select和ActiveCell的操作方式，可修改为以下代码：

Dim x As Long
Sheets("Sheet2").Select
Range("A1").Select ' 初始定位到Sheet2的A1单元格
For x = 1 To 100
    Dim sourceRow As Long
    sourceRow = 1 + (x - 1) * 100
    ActiveCell.Formula = "=Sheet1!A" & sourceRow
    ActiveCell.Offset(1, 0).Select ' 下移到下一个单元格
Next x

内容的提问来源于stack exchange，提问作者Ben Jones