隣接した列の最後の行まで値を入れる方法 エクセルＶＢＡ

質問

エクセル２００３で、下記のようなプログラムを作っています。

(1,1)の列に数字が入っている所まで、(1,2)の列にＶＬＯＯＫＵＰで値を引いてくる。

Cells(1,2).Select
Selection.End(xlDown).Select
L = Selection.Row

ですがこのプログラムでは、(1,2)列の一番下の列番号を取得してしまいます（Cell(65536,2)です）。(1,1)列の最後の数字までを取得できるプログラムにするにはどうしたらいいでしょうか。

図解しますと、

　　（列）１　２　
（行）
　１　　　２　Ａ
　２　　　５　Ｆ
　３　　　４　Ｈ
　４　　　７　Ｔ
　５　　　９　Ｙ
　６
　７　　　　　

のような具合です。数字や値に規則性はありません。自分なりにやってみたのですが、どうしても上手くいかないので、ぜひ教えて下さい。よろしくお願いします。

回答No.4

papayuka · ベストアンサー

#2です。

With Worksheets("Sheet1")

を

With Activesheet

にすれば、アクティブシートが対象です。

お礼

ありがとうございます、やってみます。お礼が遅くなって申し訳ありませんでした。

回答No.3

imogasi

マクロの記録の影響かSelectionが無駄に多すぎる。
ーー
B列に希望の値を入れておいて、C列に結果を出して、同じかどうか
チェックした。
Sub TEST01()
d = Range("A65536").End(xlUp).Row
MsgBox d
For i = 1 To d
Range("C" & i).Formula = Application.WorksheetFunction.VLookup(Cells(i, "A"), Range("D1:E9"), 2, False)
Next i
End Sub
例データ
A列　　B列　　　C列　　　D列　　E列
2 Ａ Ａ 1
5 Ｆ Ｆ 2 Ａ
4 Ｈ Ｈ 3
7 Ｔ Ｔ 4 Ｈ
9 Ｙ Ｙ 5 Ｆ
6
7 Ｔ
8
9 Ｙ
Range("A65536").End(xlUp).Row
は、A65536データ入力最終行の下で適当な行でよい。
A列の最終行だからここがAとする。
B列のケースがわかっていながら、この質問が不思議。

回答No.2

papayuka

例えば、下記のようにすると B1からB列のA列最終行と同じ行まで、VLOOKUP関数を代入出来ます。

Sub Test()
With Worksheets("Sheet1")
　　.Range("B1", .Range("A65536").End(xlUp).Offset(0, 1)).Value = _
　　　　"=vlookup(A1,$D$1:$E$10,2,false)"
End With
End Sub

お礼

ありがとうございます。やってみたら上手くいきました！
ただWorksheetsを使わずに実行できる方法がないかと思いまして、試しています。もし案がございましたらご伝授ください。宜しくお願いします。

回答No.1

deecyan

Ａ列の一番したをクリックして
Ctrl を押して　↑　を押す
これを　マクロの記録で記録してみれば
下記になります
（別に最後でなく　適当なところでもいいけど）

Range("A65535").Select
Selection.End(xlUp).Select

本当は　Userdrange を使ったほうがいいけど、、、、

お礼

Selection.End(xlUp).Select　は試したのですが、（1,2）に戻ってしまうので使えませんでした。L=Selection.RowではA65535までの再計算に時間がかかってしまうので、必要な行までをL=Selection.Rowとして使えないかと思ったのです。どうもありがとうございました。