ここから本文です

エクセル VBA で 指定行以下を削除したいです。

glm********さん

2014/5/209:11:02

エクセル VBA で 指定行以下を削除したいです。

例えば
Sheet1 のA1 に指定行の数値を入れたとして
Sheet2 の指定行以下を削除したいと思っております。

例えば
Sheet1 A1 が 45
となっていたときに
Sheet2 の45行以下をすべて削除。

Sheet1 A1 が 100だったら
となっていたときに
Sheet2 の100行以下をすべて削除。

というマクロを作りたいのですがどうすればいいでしょうか?
Sheet1 A1には自分でデータを入力しますので
Sheet1 A1にデータが入っている状態からのコードでよろしくお願いします。
どなたか分かる方教えてください!

閲覧数:
27,133
回答数:
1
お礼:
25枚

違反報告

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

hel********さん

2014/5/210:09:06

次のようなコードでは・・

Sub Test()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim endRow As Long
Dim Gyou As Long
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
endRow = sh2.Range("A" & Rows.Count).End(xlUp).Row
Gyou = sh1.Range("A1").Value
If Gyou = 0 Then Exit Sub
sh2.Range(Gyou & ":" & endRow).Delete
End Sub

この回答は投票によってベストアンサーに選ばれました!

あわせて知りたい

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

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

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

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

閉じる

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

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

閉じる