VBA使用.Address获取选中单元格列值时报错如何解决

• 报错核心原因：Find 方法没有匹配到目标值 Start 时，selectedCell 会被赋值为空对象 Nothing，此时直接调用它的属性或者执行 .Select 方法都会触发「对象变量或 With 块变量未设置」的报错。你不需要通过 .Address 提取列号，直接调用 .Column 属性即可拿到列的数字编号，也不需要额外执行选中单元格的操作。
• 修正后的可运行代码：

Dim selectedCell As Range
Dim targetCol As Integer

' 执行查找逻辑
Set selectedCell = Worksheets("Sheet1").Rows(3).Find("Start", LookIn:=xlValues)

' 先判断是否找到匹配值，避免空对象报错
If Not selectedCell Is Nothing Then
    ' 直接提取列号
    targetCol = selectedCell.Column
    ' 你的遍历循环逻辑
    While Not IsEmpty(Cells(3, targetCol))
        ' 此处写循环内的业务逻辑
        
        ' 根据遍历需求调整步长，这里默认逐列向后遍历
        targetCol = targetCol + 1
    Wend
Else
    ' 可选：未找到目标值时的提示逻辑
    MsgBox "第3行未找到匹配的Start值"
End If

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