如何修改非常简单的代码中的“运行时错误1004”?

运行时错误1004是指在使用VBA代码操作Excel时出现的错误。这个错误通常是由于代码尝试对不存在的工作表或范围进行操作引起的。下面是一个解决方法的示例：

示例代码：

Sub Test()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要操作的范围
    Set rng = ws.Range("A1")
    
    ' 对范围进行操作（例如给单元格赋值）
    rng.Value = "Hello World"
    
    ' 其他操作代码...
    
End Sub

这段代码的目的是将"Hello World"写入工作表"Sheet1"的单元格"A1"中。如果工作表"Sheet1"不存在，或者范围"A1"不存在，就会出现运行时错误1004。

解决方法：

1. 确保工作表和范围存在：在操作工作表和范围之前，使用Worksheet.Exists和Range.Exists方法检查它们是否存在。

Sub Test()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 检查工作表是否存在
    If WorksheetExists("Sheet1") Then
        ' 设置要操作的工作表
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        
        ' 检查范围是否存在
        If RangeExists(ws, "A1") Then
            ' 设置要操作的范围
            Set rng = ws.Range("A1")
            
            ' 对范围进行操作（例如给单元格赋值）
            rng.Value = "Hello World"
            
            ' 其他操作代码...
        Else
            MsgBox "范围'A1'不存在"
        End If
    Else
        MsgBox "工作表'Sheet1'不存在"
    End If
End Sub

Function WorksheetExists(ByVal wsName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(wsName)
    On Error GoTo 0
    WorksheetExists = Not ws Is Nothing
End Function

Function RangeExists(ByVal ws As Worksheet, ByVal rngAddress As String) As Boolean
    Dim rng As Range
    On Error Resume Next
    Set rng = ws.Range(rngAddress)
    On Error GoTo 0
    RangeExists = Not rng Is Nothing
End Function

2. 处理错误：使用On Error Resume Next语句来跳过错误，并使用Err.Number属性来检测错误代码。

Sub Test()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置要操作的工作表
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    On Error GoTo 0
    
    ' 检查工作表是否存在
    If ws Is Nothing Then
        MsgBox "工作表'Sheet1'不存在"
        Exit Sub
    End If
    
    ' 设置要操作的范围
    On Error Resume Next
    Set rng = ws.Range("A1")
    On Error GoTo 0
    
    ' 检查范围是否存在
    If rng Is Nothing Then
        MsgBox "范围'A1'不存在"
        Exit Sub
    End If
    
    ' 对范围进行操作（例如给单元格赋值）
    rng.Value = "Hello World"
    
    ' 其他操作代码...
    
End Sub

通过上述两种方法，可以避免运行时错误1004，并根据具体情况进行相应的处理。