エクセル2021です。 https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10320124070 関連、以下マクロVBAはAS4=#N/A(文字)を指定し実行するとAV2(AV列を検索)から下の行に向かって#N/Aが存在すれば当該行を削除して上に詰めます。BP2(BP列を検索)から下の行も同様です。 しかし、先頭行のAV2の行またはBP2の行が空白の場合は、以下行 ReDim tbl(1 To rmax - 1, 1 To 14) As Variant で、インデックスが有効範囲にありません。となり停止します。 どのように修正すれば、当該停止が発生しないかご教示頂けませんでしょうか。 よろしく、お願い致します。 Sub エラー削除() Sheets("TEST").Select Call sakujo01(Range("AV2"), Range("AS4").Text) Call sakujo01(Range("BP2"), Range("AS4").Text) End Sub Private Sub sakujo01(ByVal startRange As Range, ByVal myKeyword As String) Dim rmax As Long Dim i As Long, j As Long Dim r As Long Dim tbl() As Variant rmax = Cells(Rows.Count, startRange.Column).End(xlUp).Row ReDim tbl(1 To rmax - 1, 1 To 14) As Variant For r = 2 To rmax If Cells(r, startRange.Column).Text <> myKeyword Then i = i + 1 For j = 1 To 14 tbl(i, j) = Cells(r, startRange.Column + j - 1).Value Next j End If Next r With Cells(2, startRange.Column).Resize(UBound(tbl), 14) .Clear .Value = tbl End With End Sub