Excel VBA循环中如何获取当前单元格位置作为循环起始行？

修改思路 #

1. 把查找"Effective Date"的结果存入Range变量，摒弃Select/Activate这类易出错、低效率的操作。
2. 从找到的标题单元格向下偏移2行后，提取其行号作为循环起始值，替换硬编码的24。
3. 增加查找失败的判断逻辑，避免程序无意义报错。

修改后的完整代码 #

Sub YourSubName() ' 替换成你的子程序实际名称
    Dim foundCell As Range
    Dim startRow As Long
    Dim i As Long
    Dim Folder As String
    Dim DestinationLoc As Range ' 假设该变量已在其他地方定义或赋值
    
    ' 查找包含"Effective Date"的单元格
    Set foundCell = Cells.Find(What:="Effective Date", After:=Range("A1"), LookIn:=xlFormulas2 _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    
    ' 检查是否找到目标单元格
    If Not foundCell Is Nothing Then
        ' 获取列表起始行：找到的标题单元格向下偏移2行的行号
        startRow = foundCell.Offset(2).Row
        
        ' 从动态获取的起始行循环到200行
        For i = startRow To 200
            ' 直接判断单元格值，无需选中单元格
            If Not IsEmpty(Range("E" & i).Value) And Not IsEmpty(Range("G" & i).Value) Then
                Folder = Range("G" & i).Value
                Call ListFilesInFolder(Folder, DestinationLoc)
            End If
        Next i
    Else
        ' 未找到目标时弹出提示
        MsgBox "未找到包含""Effective Date""的单元格"
    End If
End Sub

关键说明 #

• 动态起始行：通过foundCell.Offset(2).Row直接获取列表第一行的行号，完全适配标题单元格的任意位置，不再依赖硬编码的24。
• 优化操作逻辑：直接读取单元格值而非选中单元格，减少界面波动，同时避免因选中状态变化引发的错误。
• 容错处理：增加If Not foundCell Is Nothing判断，防止找不到目标标题时程序崩溃，同时给出明确提示。

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