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 · ベストアンサー

> 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
に変更したらできました。

回答No.2

D-JM

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

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

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

回答No.1

higekuman

Msgbox "gyou1:gyou2"

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