Excel VBA循环开发：固定部分单元格地址，遍历可变行单元格

需求说明 #

循环处理第9行到第500行：

• 当当前行的B列单元格（如B9、B10…）等于单元格BT28的值时
• 将固定区域BR58:CA58的内容复制到当前行的BG列起始位置（如BG9、BG10…）

你当前的代码片段 #

目标逻辑片段 #

If Range("B9") = Range("BT28") Then
Range("BR58:CA58").Select
Selection.Copy
Range("BG9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If

尝试的循环代码 #

Sub IMPORTTOLIST()

Dim iCell As Range
Dim iRange1 As String
Dim iRange2 As String
Dim rangeName As String

iRange1 = ActiveCell.Address
iRange2 = ActiveCell.Address
rangeName = iRange1 & ":" & iRange2

For Each iCell In Range(rangeName).Cells

If Range(iRange1) = Range("BT28") Then
Range("BR58:CA58").Select
Selection.Copy
Range(iRange2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If

Next iCell

End Sub

正确的实现代码 #

Sub IMPORTTOLIST()
    Dim currentRow As Integer
    ' 循环行号从9到500
    For currentRow = 9 To 500
        ' 判断当前行B列是否等于BT28的值
        If Cells(currentRow, "B").Value = Range("BT28").Value Then
            ' 直接复制BR58:CA58到当前行BG列起始位置，无需Select/Paste
            Range("BR58:CA58").Copy Destination:=Cells(currentRow, "BG")
        End If
    Next currentRow
    Application.CutCopyMode = False
End Sub

代码原理解释 #

1. 循环范围定义：用For currentRow = 9 To 500直接指定要处理的行号区间，简单直观，避免你之前代码中对ActiveCell的无效引用。
2. 单元格引用：
   • Cells(currentRow, "B")：通过行号+列标引用当前行的B列单元格，行号随循环自动变化
   • Cells(currentRow, "BG")：同理引用当前行的BG列起始单元格
3. 高效复制：使用Copy Destination:=直接完成复制粘贴，省去Select和Selection操作——这是VBA的最佳实践，不仅代码更简洁，还能避免因选中其他单元格导致的错误。
4. 条件判断：直接对比单元格的值，逻辑清晰，和你最初的目标逻辑一致。

你之前代码的问题 #

你找的循环代码逻辑完全错误：

• iRange1和iRange2都取了ActiveCell的地址，最后rangeName其实就是单个单元格，循环没有意义
• 循环中始终判断的是最初的ActiveCell值，没有随循环行号变化，完全不符合需求

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