エクセルでマクロ（VLookup）を使用する方法

エクセル2003で作成した会社の一覧表があります。

Sheet1は会社一覧（上図）

Sheet2はエリア表（下図）です。

マクロを使用して、Sheet1のＧ列にエリアの読みを表示

どうにか自分でやろうとしたのですが、できませんでした。

Sheet1の最後まで行くとストップするようにしたいのです。

どうかご教授お願いいたします。

No.2 ベストアンサー 回答者： tom04 回答日時： 2014/10/11 22:46

こんばんは！

http://oshiete.goo.ne.jp/qa/8786862.html

の方は目を通されたのでしょうか？
全く同じコトなのですが・・・

どうしてもVBAでの方法というコトなので、一例です。

Sub Sample2()
Dim lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
With Range(.Cells(2, "G"), .Cells(lastRow, "G"))
.Formula = "=IF(COUNTIF(Sheet2!A:A,F2),VLOOKUP(F2,Sheet2!A:B,2,FALSE),"""")"
.Value = .Value
End With
End With
End Sub

※　今回もわざわざVBAでやるメリットはないと感じます。m(_ _)m

No.3 回答者： bin-chan 回答日時： 2014/10/11 22:54

> 他の処理と関連させたいので、ＶＢＡでなければならないのです。

後出しじゃん。
http://oshiete.goo.ne.jp/qa/8786862.html
の＃１さんの回答で良いのでは？

> どうにか自分でやろうとしたのですが、できませんでした。
上記回答の「最終行判定方法はイヤでループ判定でやりたい」？
なら、現在のコードを開示して下さい

この回答へのお礼

いろいろお手数お掛けいたしました。
前の回答で無事解決することができました。
ありがとうございました。

お礼日時：2014/10/11 23:02

No.1 回答者： bin-chan 回答日時： 2014/10/11 22:25

VBAでなければダメですか？

セルG2への式設定はできているようなので、「関数を一気に設定」でどうでしょう？

１）Sheet2のセル参照を「絶対参照」にする（アドレスに$を付ける）
２）セルG2の、周囲の線に着目。
３）右下隅が■になってるところをダブルクリック

H列になにかしらデータがあれば、下方向へコピーされます。

この回答へのお礼

回答ありがとうございます。
他の処理と関連させたいので、ＶＢＡでなければならないのです。

お礼日時：2014/10/11 22:37