Excel VBAを簡素化したいのですが動きません

質問

お世話になります。VBA初心者です。

下記TESTは動くのですが、『If myINT= Then』が永遠に続くので簡素化したく
『Rows("myINT : myINT").Select』これを入れてみたのですが全く動きません。

簡素化した記述を教えて下さい。宜しくお願い致します。

Sub TEST()
Dim myINT As Integer

myINT = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
　　If myINT = 1 Then
　　　Rows("1:1").Select　
　　ElseIf myINT = 2 Then
　　　Rows("2:2").Select
　　ElseIf myINT = 3 Then
　　　Rows("3:3").Select
　　Else
MsgBox "TEST"
End If
End Sub

回答No.1

keithin · ベストアンサー

sub macro1()
　dim myLng as long
　mylng = 5
　rows(mylng).select
end sub

といった具合でいいです。

ご質問の直接の回答としては
rows(myint & ":" & myint).select
のように。
初心者さんにありがちなミスですが，変数を""で囲ってしまっては変数として機能しません。

あるいは行範囲を選択するなら
row(myint & ":" & myint +2).select
のようですね。

補足

早速ありがとうございます。
""で囲っては機能しないのを知りませんでした。

WOrksheet("test").Rows(mySTG).Select

これで動きました。

本当にありがとうございます。

回答No.2

muunoy

処理目的かわからなかったので、正常になるかは何とも言えませんが、

myINTを変数宣言しているので、

Rows(myINT & ":" & myINT).Select

にしないとまずいのでは？

"myINT : myINT"が文字列になってしまっているかと。

それから、これは直接関係ないのですが、Integer型だと、オーバーフローしやすいのでは？

お礼

ありがとうございます。

MSGBOX myINTで変数を見ますと、数字が入っていたので
変数は数字でした。
myINT:myINTがまずかったようです。

Rows(myINT & ":" & myINT).Select

これを試します。