如何在Excel VBA宏中使用命名列替代Cell.Offset引用邮箱列？

你的代码存在语法和逻辑双重问题，以下是正确实现方式及问题分析：

正确代码示例 #

方法1：直接引用命名区域的对应行 #

利用Email是整列命名区域的特性，通过行号直接定位对应邮箱单元格：

For Each Cell In RangeToConsider
    ' 用UCase简化大小写判断，无需重复写Or条件
    If UCase(Cell.Value) = "A" Then
        strAddresses = strAddresses & "; " & Range("Email").Cells(Cell.Row, 1).Value
    End If
Next

方法2：通过列号定位同一行的邮箱单元格 #

先获取Email列的绝对列号，再用Cells方法定位对应行，循环中重复查询的效率更高：

Dim emailCol As Integer
' 提前获取列号，避免循环内重复查询命名区域
emailCol = Range("Email").Column

For Each Cell In RangeToConsider
    If UCase(Cell.Value) = "A" Then
        strAddresses = strAddresses & "; " & Cells(Cell.Row, emailCol).Value
    End If
Next

你的代码问题分析 #

1. 语法错误：代码缺少闭合的右括号，即便补全为Cell.Offset(0, Range("Email").Column).Value，逻辑依然错误。
2. 逻辑错误：Offset的第二个参数是相对当前单元格的列偏移量，不是目标列的绝对列号。比如若Email在Q列（列号17），当前Cell在K列（列号11），正确偏移量是6（17-11），但直接用17作为偏移量会从当前列往右偏移17列，完全偏离目标邮箱列。

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