VBA代码负Offset偏移量报错求助：非日期非空值复制异常

嘿，这个报错我太熟悉了！你遇到的核心问题是行号越界——Excel的工作表行号是从第1行开始计数的，当你的cust单元格落在第1到第6行时，Offset(-6, 4)会试图定位到行号小于1的位置，这在Excel的规则里是不允许的，直接触发了错误。

下面给你两个可行的解决思路：

思路1：缩小搜索范围（推荐） #

直接从第7行开始遍历C列的非空单元格，因为第7行向上偏移6行刚好是第1行，不会越界。同时只遍历到C列最后一个有数据的行，避免无意义的空行遍历：

Sub copy_value()
    Dim Srchcust As Range, cust As Range
    ' 定位C列第7行到最后一个非空行的范围
    Set Srchcust = Range("C7:C" & Cells(Rows.Count, "C").End(xlUp).Row)
    For Each cust In Srchcust
        If Not IsEmpty(cust) And Not IsDate(cust) Then
            cust.Offset(-6, 4).Value = cust.Value
        End If
    Next cust
End Sub

思路2：增加行号判断 #

如果一定要遍历整个C列，就在判断条件里加上行号检查，确保只有当单元格行号大于6时，才执行偏移操作。另外加个提前退出循环的逻辑，避免遍历几十万行空行浪费时间：

Sub copy_value()
    Dim Srchcust As Range, cust As Range
    Set Srchcust = Range("C:C")
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row ' 获取C列最后一个非空行的行号
    
    For Each cust In Srchcust
        ' 先检查行号是否合法，再判断单元格内容
        If cust.Row > 6 And Not IsEmpty(cust) And Not IsDate(cust) Then
            cust.Offset(-6, 4).Value = cust.Value
        End If
        ' 遍历到最后一行非空单元格后提前退出，节省时间
        If cust.Row > lastRow Then Exit For
    Next cust
End Sub

两种方案都能解决你的报错问题，第一种更高效，推荐优先使用~

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