如何修复VBA实现ComboBox选值填充汇总报表的1004运行时错误？

先帮你梳理下代码里导致1004错误的几个关键问题，然后给出修正后的完整代码：

你的代码里的核心错误点： #

• 语法漏洞：Set rangeOne = Sheets("Sheet2").Range(Range("F23:H23") 少了闭合的右括号，这是直接触发运行错误的原因之一。
• 未限定工作表的Cells对象：比如Sheets("Reports").Range(cells(i,1))里的Cells没有绑定到Reports工作表，VBA会默认用当前激活的工作表，一旦激活的不是目标表，就会抛出1004错误。
• 字符串引号误用：If ... = "userValue" Then里把变量userValue当成了固定字符串，永远匹配不到用户选择的实际值，必须去掉引号。
• 赋值逻辑错误：给单元格赋值不需要用Set（Set是给对象变量赋值用的），直接用等号即可；而且你写的Range(Cells(i, "B:E"))是整列范围，不符合填充9个单元格的需求，应该对应三个1×3的连续区域。
• 循环条件不严谨：原循环的空值判断逻辑容易出现边界问题，换成更可靠的写法。

修正后的完整代码 #

Private Sub OKButton1_Click()
    Dim userValue As String
    Dim rangeOne As Range, rangeTwo As Range, rangeThree As Range
    Dim i As Long
    
    i = 4
    userValue = ComboBox1.Value
    
    ' 提前判断用户是否选择了值，避免空匹配
    If userValue = "" Then
        MsgBox "请先选择一个值！", vbExclamation
        Exit Sub
    End If
    
    ' 正确定义三个目标区域，明确绑定所属工作表
    Set rangeOne = Sheets("Sheet2").Range("F23:H23")
    Set rangeTwo = Sheets("Sheet3").Range("F90:H90")
    Set rangeThree = Sheets("Sheet4").Range("F17:H17")
    
    ' 遍历Reports工作表的A列，直到遇到空单元格停止
    Do While Not Sheets("Reports").Cells(i, 1).Value = ""
        ' 匹配用户选择的目标值（注意不要加引号）
        If Sheets("Reports").Cells(i, 1).Value = userValue Then
            ' 将三个1×3区域分别填充到该行的B-D、E-G、H-J列（共9个单元格）
            Sheets("Reports").Range(Sheets("Reports").Cells(i, 2), Sheets("Reports").Cells(i, 4)).Value = rangeOne.Value
            Sheets("Reports").Range(Sheets("Reports").Cells(i, 5), Sheets("Reports").Cells(i, 7)).Value = rangeTwo.Value
            Sheets("Reports").Range(Sheets("Reports").Cells(i, 8), Sheets("Reports").Cells(i, 10)).Value = rangeThree.Value
            
            ' 如果只需要匹配第一行，这里可以加Exit Do跳出循环
            ' Exit Do
        End If
        i = i + 1
    Loop
    
    Unload UserForm2
End Sub

额外说明： #

• 给变量指定明确类型（比如Dim userValue As String），避免Variant类型带来的潜在异常。
• 如果Reports工作表中可能存在多个与userValue匹配的行，这段代码会批量填充所有匹配行；若只需处理第一行，取消注释Exit Do即可。

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