2017-10-21 7 views
1

列Aのセルが空白の場合、行全体を削除しようとしています。マクロVBA:私のコードで何が問題になっていますか?行の削除

また、このコードは同じブック内の2つの特定のシート(「ATM SLA Availability Report」&「インシデントレポート」)のみで実行する必要があります。

以下は私のコードです。私は実行時エラー9を私に与える。

Sub test() 
    Worksheets("ATM SLA Availability Report").Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp 
    Worksheets("Incident Report").Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp 
End Sub 

答えて

0

Run-Time error 9間違って綴らあなたのシート名のいずれかから、おそらく、あなたはワークシート(またはワークブック)内に存在しないものを参照しようとしていることを意味する「範囲外」を示します。

あなたのコードに間違いはありません。自分でテストしましたが、うまく動作します。エラーがポップアップしたときに「デバッグ」をクリックすると、コードがエラーを出している行をさらに確認できます。

+1

あなたは正しいです。シート名の最後にスペースがありました。今すぐ作成しました ありがとう – Farhan

関連する問題