Q&A
conuntという変数には数字を入れられるようになっています。
例えば、countに8が入っていたら、9行目～値が入っている箇所まで全てを削除したいです。（A列～BQ列まで 列も変動あるかもしれないです。）
下記のような感じのものを作成しましたが、これではA列だけしか削除できません。
列は全て、行は指定された数字(count)から１を足した行数から値が入っている箇所まで全て削除・・・としたいです。
どのような処理を書けば良いかご教授頂けますと幸いです。
For j = count + 1 To Worksheets("sheet1").UsedRange.Rows.Count ThisWorkbook.Worksheets("sheet1").Cells(j, 1).EntireColumn.Delete Next
回答1件
0
ベストアンサー
EntireColumnだと列を削除しているのでRowsで行を削除します。
行を削除するとForで回しているj行目という削除対象がズレてしまうのでStep -1として下の方から削除しています。
（10行目削除→9行目削除→8行目削除→・・・とするとズレない）
VBA
1For j = ThisWorkbook.Worksheets("sheet1").UsedRange.Rows.Count To Count + 1 Step -1 2 ThisWorkbook.Worksheets("sheet1").Rows(j).Delete 3Next j
投稿2019/09/25 03:56
総合スコア188
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。