ここから本文です

以前こちらで、作成して頂きましたマクロになりますが、おわかりになる方に改修し...

アバター

ID非公開さん

2019/6/1115:09:38

以前こちらで、作成して頂きましたマクロになりますが、おわかりになる方に改修して頂きたいのですが、

下記マクロは、
Sheet2の
A列3行目以降に 数字9桁 以外の値が
あれば 行(全て) 削除するマクロなのですが、

それを
Sheet2の
A列3行目以降に 数字9桁 以外の値が
あれば 列(A、B、C、D、E)だけを
削除するようには、出来ますでしょうか

宜しくお願い致します

Sub TEST()

Sheets(2).Select

Dim i As Long, r As Range
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
Set r = Cells(i, 1)
If VarType(r) = vbString Or VarType(r) = vbEmpty Or VarType(r) = vbError Then
r.EntireRow.Delete
End If
Next
End Sub

閲覧数:
28
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2019/6/1115:53:46

r.EntireRow.Delete



r.Resize(, 5).Delete Shift:=xlUp

ということですか?

アバター

質問した人からのコメント

2019/6/11 17:05:30

完璧です!

迅速な回答ありがとうございます

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる