VBA遍历H、I列提取右侧3字符至J列：现有代码失效求修正

原代码存在的问题 #

• 范围引用错误：原代码中.Range("H2:I", .Cells(.Rows.Count, "A").End(xlUp))的写法不符合Range对象语法，且用A列最后一行定位H/I列范围的逻辑错误，应基于H/I列自身的非空行确定遍历边界。
• 错误使用ActiveCell：循环中判断ActiveCell.Value而非当前遍历的cell.Value，导致判断逻辑完全失效。
• 输出单元格固定：始终将结果写入J2，会不断覆盖之前的结果，无法对应到原数据的行位置。

修正后的代码 #

Sub Extract_info()
    Dim cell As Range
    Dim lastRow As Long
    
    With ActiveSheet
        ' 获取H列和I列中最大的非空行号，确保覆盖所有数据
        lastRow = Application.Max(.Cells(.Rows.Count, "H").End(xlUp).Row, _
                                 .Cells(.Rows.Count, "I").End(xlUp).Row)
        ' 遍历H2到I列最后一行的所有单元格
        For Each cell In .Range("H2:I" & lastRow)
            ' 判断当前单元格是否非空
            If Not IsEmpty(cell.Value) Then
                ' 将提取的最后3个字符写入同一行的J列
                .Cells(cell.Row, "J").Value = Right(cell.Value, 3)
            End If
        Next cell
    End With
End Sub

代码说明 #

• 精准锁定遍历范围：通过Application.Max取H、I列的最大非空行号，避免遗漏数据或遍历无效单元格。
• 正确判断目标单元格：直接使用循环变量cell.Value判断当前单元格是否有内容，逻辑准确。
• 对应行输出结果：用.Cells(cell.Row, "J")将提取结果写入与原单元格同一行的J列，保证数据对应关系正确。

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