Excel VBA中如何用已命名整列替代列序号编写宏代码

我需要在VBA宏中用自定义列名称代替列字母，避免插入/删除列时出错。目前以下宏可以正常运行：

LastRow = ActiveSheet.UsedRange.Rows.Count

For i = 4 To LastRow
    If Cells(i, 12).Value <> "ZZZZZZZZZ" Or Cells(i, 12).Value <> "ZZZZZZZZY" Then
        If Cells(i, 36).Value = "Y" Then
            If Cells(i, 11) = "" Then
                Range("K" & i).Value = "a"
            End If
        End If
    End If
Next i

我已经通过Excel名称管理器给整列命名：

• 列K（第11列）：Invited
• 列L（第12列）：CompanyName
• 列AK（第36列）：Select01

但修改为以下代码后无法运行，系统识别不了这些自定义名称，求正确写法：

If Cells(i, "CompanyName").Value <> "ZZZZZZZZZ" Or Cells(i, "CompanyName").Value <> "ZZZZZZZZY" Then
        If Cells(i, "Select01").Value = "Y" Then
            If Cells(i, "Invited") = "" Then
                Range("Invited" & i).Value = "a"

你的代码出错有两个核心原因：

1. Cells(i, "自定义名称")写法不成立——Cells的第二个参数只接受列号数字或列字母（如"K"），不识别自定义区域名称。
2. Range("Invited" & i)是错误拼接方式——Invited是整列的命名区域，不能直接和行号拼接成新引用。

正确写法1：先获取自定义列的列号 #

先通过命名区域获取对应列号，再用Cells引用单元格，代码如下：

Dim LastRow As Long
Dim col_CompanyName As Long, col_Select01 As Long, col_Invited As Long

' 获取各自定义列的列号
col_CompanyName = Range("CompanyName").Column
col_Select01 = Range("Select01").Column
col_Invited = Range("Invited").Column

LastRow = ActiveSheet.UsedRange.Rows.Count

For i = 4 To LastRow
    ' 注意：原条件的Or逻辑有问题，应该用And？因为只要不是其中一个，Or永远为True
    ' 这里保留原逻辑，你可以根据实际需求调整
    If Cells(i, col_CompanyName).Value <> "ZZZZZZZZZ" Or Cells(i, col_CompanyName).Value <> "ZZZZZZZZY" Then
        If Cells(i, col_Select01).Value = "Y" Then
            If Cells(i, col_Invited).Value = "" Then
                Cells(i, col_Invited).Value = "a"
            End If
        End If
    End If
Next i

正确写法2：直接引用命名区域的单元格 #

因为命名区域是整列，所以可以直接用Range("命名区域").Cells(行号, 1)定位单元格，代码如下：

Dim LastRow As Long

LastRow = ActiveSheet.UsedRange.Rows.Count

For i = 4 To LastRow
    If Range("CompanyName").Cells(i, 1).Value <> "ZZZZZZZZZ" Or Range("CompanyName").Cells(i, 1).Value <> "ZZZZZZZZY" Then
        If Range("Select01").Cells(i, 1).Value = "Y" Then
            If Range("Invited").Cells(i, 1).Value = "" Then
                Range("Invited").Cells(i, 1).Value = "a"
            End If
        End If
    End If
Next i

额外提示 #

原代码中的Or逻辑可能存在问题：A <> X Or A <> Y永远为True（因为一个值不可能同时等于X和Y），如果你的需求是既不等于X也不等于Y，应该改成And：

If Cells(i, col_CompanyName).Value <> "ZZZZZZZZZ" And Cells(i, col_CompanyName).Value <> "ZZZZZZZZY" Then

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