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

質問

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

Sheet1は会社一覧（上図）

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

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

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

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

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

回答No.2

tom04 · ベストアンサー

こんばんは！

http://okwave.jp/qa/q8786862.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

> 他の処理と関連させたいので、ＶＢＡでなければならないのです。
後出しじゃん。
http://okwave.jp/qa/q8786862.html
の＃１さんの回答で良いのでは？

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

お礼

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

回答No.1

bin-chan

VBAでなければダメですか？
セルG2への式設定はできているようなので、「関数を一気に設定」でどうでしょう？

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

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

お礼

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