Excel VBAでのセルの範囲指定

質問

Excel2000
Win2000です。

あるbook「A.xls」にある表「a」を「B.xls」にコピペ&行列反転するマクロを作っています。

A.xlsの表「a」のサイズが作成の都度変わるため、
B.xlsからサイズの取得をする為、

Workbooks.Open Filename:="A.XLS"

I1 = 1 ' 行数の取得
DO WHILE CELLS(I1,1).VALUE <> ""
　I1 = I1 + 1
LOOP

I2 = 1 '列数の取得
DO WHILE CELLS(1,I2).VALUE <> ""
　I2 = I2 + 1
LOOP

として、行と列の数を取得しています。

で、ここまで来てセルの範囲をどうやって指定していいのか分からなくなりました。

例えば、I2の値をExcelの列のアルファベット表記に変える等、
なにかいい方法はありませんか？？

回答No.1

PAPA0427 · ベストアンサー

う～ん。

列のアルファベットですか…。Ａ～Ｚなのでｃｈｒ関数で、数値を文字に変換すれば出来そうですね。

例えば、Ｉ２の値が１だったら（Ａの値は６５）ＣＨＲ（６４＋Ｉ２）とすれば、”Ａ”の文字が取得できます。
Ｉ２の値が２６を超える場合は、数値を２６で割って上位一桁と下位一桁で別々に文字を作る用にすれば、できるでしょう。

でも、range関数でこういう指定が出来ますが、こっちの方が簡単ですよ。

ｒａｎｇｅ（ｃｅｌｌｓ（１，１），ｃｅｌｌｓ（Ｉ１，Ｉ２））．・・・

で記述できますよ。

お礼

早速の返事ありがとうございます。

え゛っ！！
RangeってCellsが使えるんですか・・・
てっきりRange("A1:Z1")って言う使い方しかできないと
思っていました・・・

もう一度ヘルプをよく読んでみます。

どうも、ありがとうございました。

回答No.3

jukate

Sub hanten()
For m = 1 To 100
For n = 1 To 100
Sheet2.Cells(n, m) = Sheet1.Cells(m, n)
Next n
Next m
Sheet2.Activate
Cells.Select
Selection.Copy
Dim bookb As Excel.Application
Set bookb = New Excel.Application
bookb.Workbooks.Open ("c:\B.xls")
bookb.Visible = True
bookb.ActiveSheet.Paste
End Sub

見当違いかもしれないですが、・・・
範囲ぐらいは自分で考えてください。
もう少し手間かかります、それから
人それぞれですし。

お礼

ありがとうございます。

これだと、表のサイズが１００x１００で決まってしまいます。
又、シート全体のコピぺになってしまいますし、行列の反転をしている為、反転後の列の数が足らなくなってしまいます。

ただ、行が２５６迄しか使えない事に気が付きました。

回答No.2

imogasi

下記が参考になれば。
（１）列指定
（２）行指定
（３）最下行、最右列がわかっているときのA1セルからの範囲指定
Sub test04()
i1 = 3: i2 = 4
Rows(1).Select
Columns(2).Select
Range(Cells(1, 1), Cells(i1, i2)).Select
End Sub

お礼

早速の返事ありがとうございます。

え゛っ！！
RangeってCellsが使えるんですか・・・
てっきりRange("A1:Z1")って言う使い方しかできないと
思っていました・・・

もう一度ヘルプをよく読んでみます。

どうも、ありがとうございました。