Excel VBA：指定列值为“No”时切换取值的报错问题排查

错误原因 #

1. 变量未初始化就使用：代码开头的IF语句调用了iSerial，但这个变量是在后续逻辑中才赋值的，此时iSerial值为0，Range("D29:D57").Cells(0,1)会触发对象引用错误。
2. 未指定工作表的Range：直接使用Range()会默认指向当前活动工作表，而非你定义的frm（Client Response表），这是引发“对象不支持该属性”错误的核心原因。
3. 无效的IF语句逻辑：原IF语句仅取出单元格值，未将值赋值给任何变量或目标单元格，完全无法实现需求。
4. 代码冗余：逐个编写D29到D57的赋值语句效率低下，且易出错。

修正后的代码 #

Sub SaveRecord()
    Dim frm As Worksheet
    Dim DataTable As Worksheet
    Dim iRow As Long
    Dim iSerial As Long
    Dim dRow As Long ' 遍历D29:D57的行号
    Dim colOffset As Integer ' DataTable中对应的列偏移量

    Set frm = ThisWorkbook.Sheets("Client Response")
    Set DataTable = ThisWorkbook.Sheets("DataTable")
    
    ' 确定目标行号iRow和序列号iSerial
    If Trim(frm.Range("E1").Value) = "" Then
        iRow = DataTable.Range("A" & Application.Rows.Count).End(xlUp).Row + 1
        iSerial = IIf(iRow = 2, 1, DataTable.Cells(iRow - 1, 1).Value + 1)
    Else
        iRow = frm.Range("D1").Value
        iSerial = frm.Range("E1").Value
    End If 
    
    ' 写入固定列数据
    With DataTable
        .Cells(iRow, 1).Value = iSerial
        .Cells(iRow, 2).Value = frm.Range("C4").Value
        .Cells(iRow, 3).Value = frm.Range("C5").Value
        .Cells(iRow, 4).Value = frm.Range("C6").Value
        .Cells(iRow, 5).Value = frm.Range("C7").Value
        
        ' 循环处理D29:D57对应的数据写入
        colOffset = 25 ' 从DataTable第25列开始写入
        For dRow = 29 To 57
            ' 判断D列值，决定取D列还是E列值存入DataTable
            If frm.Range("D" & dRow).Value = "No" Then
                .Cells(iRow, colOffset).Value = frm.Range("E" & dRow).Value
            Else
                .Cells(iRow, colOffset).Value = frm.Range("D" & dRow).Value
            End If
            colOffset = colOffset + 1 ' 列偏移量递增
        Next dRow
    End With
End Sub

关键改进点 #

• 调整变量赋值顺序：先确定iRow和iSerial的值，再执行数据写入操作，避免未初始化变量的错误。
• 指定工作表前缀：所有引用Client Response表的单元格都添加frm.前缀，明确指向目标工作表，解决对象引用错误。
• 循环简化代码：通过For循环遍历D29到D57的行，自动对应DataTable的目标列，减少冗余代码并降低出错概率。
• 修复逻辑有效性：将判断后的单元格值直接赋值给DataTable的对应单元格，完整实现需求逻辑。

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