Excel VBA单元格引用变量报错：运行时错误'1004'求助

错误根源 #

你代码里的ActiveCell.Range("cstr(StartAddress):cstr(EndAddress)").Select触发1004错误的核心原因是：VBA不会解析字符串内部的变量，cstr(StartAddress)和cstr(EndAddress)会被当成字面量文本，而非变量对应的单元格地址，导致Range对象无法识别这个无效的地址格式。

修正方案 #

直接通过变量引用Range，而非将变量嵌入字符串。结合你的需求（查找B列匹配E2的公司ID，将对应行K-P列内容复制到D-I列），以下是完整的修正代码：

Sub UpdateCompanyData()
    Dim targetID As String
    Dim foundCell As Range
    Dim searchRange As Range
    Dim firstMatchAddress As String
    
    ' 获取E2中的目标ID
    targetID = Trim(Range("E2").Value)
    If targetID = "" Then
        MsgBox "请在E2输入公司ID", vbExclamation
        Exit Sub
    End If
    
    ' 定义B列的有效数据范围（从B2到最后一行有数据的单元格）
    Set searchRange = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    
    ' 查找第一个匹配的ID
    Set foundCell = searchRange.Find(What:=targetID, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        firstMatchAddress = foundCell.Address
        Do
            ' 将匹配行的K-P列复制到对应行的D-I列
            ' 若需复制到E2所在行的D-I，替换为 Destination:=Range("D2:I2")
            foundCell.EntireRow.Range("K1:P1").Copy Destination:=foundCell.EntireRow.Range("D1:I1")
            
            ' 查找下一个匹配项（处理重复ID）
            Set foundCell = searchRange.FindNext(foundCell)
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstMatchAddress
    Else
        MsgBox "未找到匹配的公司ID", vbInformation
    End If
End Sub

关键优化点 #

• 移除Select/Activate操作：直接操作Range对象，避免因单元格激活状态变化导致的错误，同时提升代码运行效率
• 增加边界判断：处理E2为空的情况，以及未找到匹配ID的友好提示
• 支持重复ID：通过FindNext循环查找所有匹配项，确保所有符合条件的行都被处理
• 正确的Range引用：直接通过单元格对象或地址变量构建Range，摒弃错误的字符串拼接方式

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