Excel；取得した列データーの使用法

質問

エクセルマクロで
ある列のデーターの最終行を求め、
となりの列の最終行からその行までLOOKUP関数を
オートフィルで貼り付け、更にその関数で参照した
データーを文字列にして再読込じの負荷を軽減する
マクロを考えています。
最終行をもとめるのマクロはよく見ますが、
その使用方法がわかりません。
どうやって代入すればよいのか・・・
マクロの勉強を始めたばかりで、出来れば明日くらいに
このマクロを作りたいのですが・・・
お願いします。

回答No.4

happypoint

こんにちは。

まず、
　＞この間ここで教えていただいた
と書かれても、
回答者からは質問者が過去にどんな質問をしたかは見ることができませんので、
検索に非常に困難or手間がかかります。
せめて質問番号ぐらいは明記しましょう。

さて、回答ですが
オートフィルをするところについては、
こんな感じでいかがでしょう。

足りないところがあったら補足してください。

Option Explicit
Sub test()
Dim lngRowA As Long 'A列の行数を格納
Dim lngRowB As Long 'B列の行数を格納

'A列,B列の行数の取得
lngRowA = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
lngRowB = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row

'開始セル：B列の最終行～
'終了セル：A列と同じ行までオートフィル
Cells(lngRowB, 2).Select 'コピーもと（B列の最終セル）を選択
Selection.AutoFill Destination:=Range(Cells(lngRowB, 2), Cells(lngRowA, 2)) 'オートフィル

End Sub

回答No.3

imogasi

こんな問題で良いのでしょうか。
●－－－質問するまでに完了状態（例えば前日まで）－－
（サンプルデータ）
Ａ２：Ａ６に入力データが済みました。
1
3
4
2
5
（Ｖｌｏｏｋｕｐ用のテーブル）
Ｃ２：Ｃ６に
1 東急
2 大丸
3 高島屋
4 丸井
5 東武
があります。
（関数式）
Ｂ２セルに=VLOOKUP(A2,$C$2:$D$6,2,FALSE)を入れ
Ｂ６まで複写しました。
（結果）
Ａ１：Ｂ６は
1 東急
3 高島屋
4 丸井
2 大丸
5 東武
となっています。
●－－－次ぎの状態
Ａ７：Ａ１０にデータを（例えば）翌日入力しました。
1
2
3
4
●－－－本件
Sub test01()
da = Range("A2:A65000").End(xlDown).Row
MsgBox da
Db = Range("B2:B65000").End(xlDown).Row
MsgBox Db
Cells(Db, "b").AutoFill Destination:=Range(Cells(Db, "b"), Cells(da, "b")), Type:=xlFillDefault
End Sub
ボタンにセットした上記マクロをクリックして実行。
（本件ではボタンに関連付けていませんが）
（結果）
Ｂ７：Ｂ１０はＢ６の式が複写されて
Ａ７：Ｂ１０は下記になりました。
1 東急
2 大丸
3 高島屋
4 丸井
●－－－－
＞「更にその関数で参照したデーターを文字列にして再読込じの負荷を軽減する 」の
（１）データーを文字列にして
（２）再読込じ（ミスタイプ？）の負荷を軽減
上記ではオートフィルの手間を削減。
あるいはエクセル素人に入力させ保存させ、後刻判る人が
再度開いて式を複写しているのですか。
の意味が十分判りませんでしたが、推測で回答。

回答No.2

happypoint

#1です。

カッコが抜けてました。
Range(Cells(1,1),Cells(myRow,1)).PasteSpecial
ですね。
すいません。

補足

有り難うございます。
例えば
A列の１００行目、Ｂ列５０行目までデーターがあって。
この間ここで教えていただいた

'列のデータがが何行目まであるかを判別して、
'thisbookRwに格納
thisbookRw = .Range(.Cells(.Rows.Count, 1) _
.End(xlUp).Address).Row
を使わせて貰って、とりあえず吸い出した変数を
MsgBox (thisbookRw)　で表示させてみると
１００　という数字が出てきますよね。
こんな感じでB列C列最終行も取得して
B列最終行（B50）からB列でA行最終行（B100）
までオートフィルをかけたいと言ったときに、
どうやって指定したらよいか解らないのです。
非常に初歩的な所で申し訳ないです。

回答No.1

happypoint

こんにちは。
いま、どのようなコードを書いていますか？
可能でしたら見せていただけると、アドバイスもしやすいです。

一般的な使い方の例を示しますと、
たとえば、最終列を変数myRowで取得したとしますね。

で、コピーしたデータを貼り付けるときに、
　Range(Cells(1,1),Cells(myRow,1).PasteSpecial
のようにして使います。

この例ではセルA1から、A列のmyRow行までの範囲に、
「形式を選択して貼り付け」を行います。