如何在指定区域中查找首个和末个白色背景列的列号

你当前的代码是把指定区域第一行里所有白色背景的单元格合并成一个区域，但你实际需要的是首个和末个白色背景列的列号（比如示例里的3和5）。直接修改逻辑即可，不用收集所有白色单元格，只需要记录首尾的列号：

Dim cell As Range
Dim firstWhiteCol As Long, lastWhiteCol As Long

' 初始化列号变量
firstWhiteCol = 0
lastWhiteCol = 0

' 遍历指定区域的第一行单元格
For Each cell In V_RangeName.Rows(FirstRowDataNr).Cells
    ' 判断单元格背景是否为白色
    If cell.Interior.Color = RGB(255, 255, 255) Then
        ' 首次遇到白色列，记录首个列号
        If firstWhiteCol = 0 Then
            firstWhiteCol = cell.Column
        End If
        ' 更新最后一个白色列号（每遇到白色列就覆盖，最后保留的就是最后一个）
        lastWhiteCol = cell.Column
    End If
Next cell

' 输出结果（可根据需求调整使用方式）
MsgBox "首个白色列号：" & firstWhiteCol & vbCrLf & "末个白色列号：" & lastWhiteCol

逻辑说明 #

• 按顺序遍历目标行的单元格，第一个符合白色背景条件的列号会被存入firstWhiteCol
• 每遇到一个白色列，就更新lastWhiteCol，遍历结束后它自然就是最后一个白色列的列号
• 相比原代码的Union操作，这种方式更高效，不需要占用额外内存存储所有白色单元格

示意图说明：目标区域内包含多列白色背景列，首尾白色列的列号分别为3和5，上述代码可直接提取这两个数值

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