VBA、Excelにて複数行をまとめて削除したいのですが

Dim gyou1 As Range, gyou2 As Range

gyou1 = 4
gyou2 = 62

For data = 1 To 1440

Rows("gyou1:gyou2").Select
Selection.Delete Shift:=xlUp

gyou1 = gyou1 + 1
gyou2 = gyou2 + 1

Next data

複数行をまとめて削除したいのですが、型が一致しないとのエラーで上手く実行できません。
どうすればいいでしょうか？

No.3 ベストアンサー 回答者： merlionXX 回答日時： 2008/07/29 15:49

> Dim gyou1 As Range, gyou2 As Range

> gyou1 = 4
> gyou2 = 62

変数の宣言がおかしいのでは？

> Rows("gyou1:gyou2").Select

変数は""でくくってはダメです。
Rows(gyou1 & ":" & gyou2).Select

この回答へのお礼

ありがとうございます。
As Rangeでの宣言をやめて
Rows(gyou1 & ":" & gyou2).Select
に変更したらできました。

お礼日時：2008/07/29 17:08

No.2 回答者： D-JM 回答日時： 2008/07/29 15:46

こんにちは。

行の変数部分が、文字列扱いになっているためだと思います。

Rows("gyou1:gyou2").Select
　↓
Rows(gyou1 & ":" & gyou2).Select

これで試していただけますか？

No.1 回答者： higekuman 回答日時： 2008/07/29 15:43

Msgbox "gyou1:gyou2"

で、"gyou1:gyou2"がどういう値になるのかを確かめてみてください。