VBA遍历Excel单元格：仅第5列执行指定代码的求助

你需要在值不等的判断逻辑中，增加对单元格所在列的验证，直接通过selCell.Column = 5即可精准判断是否为第5列（E列），比原尝试的Intersect方法更简洁高效。修正后的完整代码如下：

For Each selCell In dataRng
    ' 同时满足两个条件：值不相等，且单元格属于第5列
    If selCell.Value <> Worksheets(3).Range(selCell.Address).Value And selCell.Column = 5 Then
        erow = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        Worksheets(4).Range(selCell.Address).Interior.Color = vbYellow
        Worksheets(2).Cells(erow, 1) = Worksheets(4).Range(selCell.Address).Offset(, -2)
        Worksheets(2).Cells(erow, 2) = Worksheets(4).Range(selCell.Address).Offset(, -3)
        Worksheets(2).Cells(erow, 3) = Worksheets(4).Range(selCell.Address).Value
        Worksheets(2).Cells(erow, 4) = Worksheets(3).Range(selCell.Address).Value
        sSheetName = "current_sheet"
        Worksheets(2).Hyperlinks.Add Anchor:=Sheets(2).Cells(erow, 5), Address:="", SubAddress:="'" & sSheetName & "'!" & selCell.Address, TextToDisplay:=selCell.Address
    End If
Next selCell

关键说明 #

• 用selCell.Column = 5直接判断单元格所在列，无需限定行范围，适配任意行的需求。
• 通过And合并两个判断条件，确保只有同时满足值不相等和在第5列时，才执行后续的标记、写入和超链接操作。
• 若坚持使用Intersect方法，可替换为以下写法，适配全列范围（不会遗漏超出行数限制的单元格）：

  If selCell.Value <> Worksheets(3).Range(selCell.Address).Value And Not Application.Intersect(selCell, Columns(5)) Is Nothing Then
  

内容的提问来源于stack exchange，提问作者Aniruddh H S