Excel 中的特殊单元格从工作表 1 复制到工作表 2 并进行错误处理

Question

我正在尝试将 Sheet1 数据复制到 sheet2。 我确实处理了 1004 错误。 如果有错误，我想打开 Sheet3 否则将数据从 sheet1 复制到 sheet2。 请看我的代码。 非常感谢您提前提供任何帮助。

Sub cmdButtonData_Click()

Dim SellStartDate As Date  
Dim SellEndDate As Date   

SellStartDate = Sheets("Launch").Range("H10").Value   
SellEndDate = Sheets("Launch").Range("H11").Value  
Sheets("Sheet2").Cells.Clear

On Error Resume Next  
'I have the connection string here.
If Err.Number <> 0 Then
    Sheets("Sheet3").Activate
Else
    'Copy the data
    Sheets("Sheet1").Range("A1:K2").Copy Sheets("Sheet2").Range("A1")
    Sheets("Sheet1").Range("A3:K16000").SpecialCells(xlCellTypeConstants).Copy 
    Sheets("Sheet2").Range("A3")
    Sheets("Sheet1").Activate
    Sheets("Sheet2").Range("A3:T3").Delete
End If

End Sub

Answer 1

如果您先进行错误检查以查看是否有任何结果，那么您可以继续前进。 例如。

Sub Button1_Click()
    Dim c As Long
    On Error Resume Next
    c = Sheets("Sheet1").Range("A3:K16000").SpecialCells(xlCellTypeConstants).Count
    If c = 0 Then
        MsgBox "No Cells found -do something!"
    Else
        MsgBox c & " Blank Cells found- do something else!!"
    End If

End Sub