Excel中的特殊单元格，通过错误处理从sheet1复制到sheet2

Question

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

jq -R --slurp -s -f dirtree.jq input.txt > dirtree.json

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