Excelマクロ 範囲指定について教えて下さい。
ソフトから書き出したテキスト形式のファイルを、エクセルで読み込んで範囲を指定し、
他のブックのシートに貼り付けるという、いつもの作業をマクロで簡素化しようと、
マクロ初心者の私は、マクロの自動記録と、インターネットで調べたりで作っているのですが、
範囲指定でつまづいています。
読込んだファイルには、A列からH列までデータがあります。
行のほうは、その都度変わります。
A列を下に見ていくと、途中<小計>という文字が何度か出てきます。
左上端がA4として、そこから初めての<小計>がある行の1段上の行までで
範囲指定させることは出来るのでしょうか?
例えば、A20に<小計>があるなら、指定範囲を A1:H19 という具合に
するのはどうしたらいいですか?
下のマクロでは、H列の右下端まで全部範囲指定するので、ダメですね。
Dim 左上端 As String, 右下端 As String
Windows("aaa.txt").Activate
Worksheets("aaa").Select
左上端 = "A4"
右下端 = Range(左上端).SpecialCells(xlLastCell).Address
Range(左上端 & ":" & 右下端).Select
Selection.Copy
Windows("bbb.xls").Activate
Sheets("bbb").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Excel2003を使っています。
よろしくお願いします。
お礼
助かりました。どうも、 有難うございます。