VBA中Range偏移至指定列报错，请求错误排查

错误1：current.Offset(, 1).Value 类型不匹配 #

• 原因：current是多单元格区域，Offset(,1)返回的仍是多单元格区域，直接调用.Value会返回二维数组，而Debug.Print无法直接输出数组，触发类型不匹配错误。
• 修正：若要输出区域内所有值，需遍历每个单元格；若仅需单个单元格值，需指定区域内具体单元格（如current.Cells(1,1).Offset(,1).Value）。

错误2：ws.Range(current).Offset(, 1) 对象调用失败 #

• 原因：current已经是绑定到ws的Range对象，ws.Range()方法不支持直接传入Range对象（该方法仅接受地址字符串、单元格序号或两个Range边界对象），导致调用失败。
• 修正：直接对current调用Offset方法即可，无需嵌套ws.Range()。

修正后的示例代码 #

Sub recover()
    Dim ws As Worksheet
    Dim current As Range
    Dim cell As Range
    
    Set ws = ThisWorkbook.Sheets("Accounts")
    Set current = ws.Range("A12", ws.Range("A" & Rows.Count).End(xlUp))
    
    ' 遍历打印偏移列的所有单元格值
    For Each cell In current.Offset(, 1)
        Debug.Print cell.Value
    Next cell
    
    ' 打印区域第一个单元格的偏移值
    Debug.Print current.Cells(1, 1).Offset(, 1).Value
End Sub

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