- 234 名前：デフォルトの名無しさん [2022/02/27(日) 11:02:51.91 ID:F9ScTckVM.net]
- すみません。 半日つぶしてもできない。ダメ男です
なんとか協力してもらえませんか？
単純に「特定文字」のある行を削除したい（その行をその下の行の二行削除したい）
'まず、獲得ポイントを削除
Dim row_po As Long
row_po = Range("A14:D150").Find("[ 獲得ポイント ]").Row
Range(Rows(row_po), Rows(row_po + 1)).Delete
この書き方でとりあえず消えるのですが、[ 獲得ポイント ]が無かった時にエラーになり止まってしまいます。
で、スルーしてほしいのですが、なにをやってもスルーしてもらえません。
なにもしないことがこんなに難しいとは思いませんでした。
ほっといて欲しいだけなのに
どうするとアホでもわかりますかね？
