[[20211206132714]]　『部分一致の逆引き検索（参照先別シート）』（綾鷹）　ページの最後に飛ぶ

『部分一致の逆引き検索（参照先別シート）』（綾鷹）

データシート
A列 B列
青森県　東北
秋田県　東北
…　　　　
東京都　関東
千葉県　関東
…
大阪府　関西
…

があり

検索シート
F列
東京都新宿区…
大阪府大阪市…
秋田県仙北市…

となっているときにこの検索シートのN列にF列が属する地方名を表示させたい場合
=LOOKUP(1,0/FIND(データシート!$A$1:$A$47,F1),データシート!$B$1:$B$47)

としてみたのですがエラーメッセージしか出ません
一応同一シート上に検索データを置いて簡易範囲での検索と表示はできました。
なにか良い方法があれば教えて頂きたいです。
よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 データシートのA列で文字列の前後に空白がついていたりしないだろうか？
 試しにデータシートのA列を選択、その後ホーム-編集-検索と選択-置換で検索する文字列にスペース、
 置換後の文字列には何も入力せず、すべて置換とするとどうなるだろうか？
（ねむねむ） 2021/12/06(月) 14:16

A・B列に、47個全て入っていますか？空欄があるとうまくいかないと思われます。
（すっとぼけ） 2021/12/06(月) 14:23

 すっとぼけさん、空欄がある場合はエラーにはならないと思うが。
（ねむねむ） 2021/12/06(月) 14:29

=LOOKUP(0,0/FIND(データシート!$A$1:$A$47,F1),データシート!$B$1:$B$47)&""

としたところ望む結果を得ることができました。
ただ、今度はこれをVBAのループを使いセルに書き込みを行いたいのですが

Sub Sample()

    Dim SerchKey As Range 
    Dim SerchArr As Variant 
    Dim OutputRange As Range 
    Dim i As Long

    Set SerchKey = Worksheets("検索シート").Range("F11:F300")
    Set OutputRange = Worksheets("検索シート").Range("N11:N300")

    SearchArr = Range(SerchKey, OutputRange)
    For i = 1 To SerchKey.Rows.Count
        SearchArr(i, 1) = "=LOOKUP((0,0/FIND(データシート!$A$1:$A$47,F" & i + 10 & "),データシート!$B$1:$B$47)&"""
    Next

    OutputRange = SearchArr

End Sub

としてみたのですがエラー｛104　アプリケーション定義　オブジェクト定義エラー｝がでてしまいました。
セル書き込みの部分の「&""」をけしても変わりありません。
確認すべき点やミスプログラムがあれば教えて頂きたいです

（綾鷹） 2021/12/06(月) 15:08

＞Range(SerchKey, OutputRange

   ↑        ↑        ↑
　 ｜     この2つは、検索シート
　 ｜
では、これはどのシート？
（とん汁） 2021/12/06(月) 15:56

 とん汁さんの指摘もそうですが、出力先はN列だけなので、 下記でいいでしょう。

 SearchArr = OutputRange.Value

 わざわざループしなくても、単純に下記でもいいでしょう。

 Sub Sample()
     Worksheets("検索シート").Range("N11:N300").Formula = "=LOOKUP(0,0/FIND(データシート!$A$1:$A$47,F1),データシート!$B$1:$B$47)&"""""
 End Sub

 セル範囲に代入するとフィルコピーしたのと同じ結果になります。

（hatena） 2021/12/06(月) 16:34

ありがとうございます。
参考に作ってみたところ希望の結果を得ることができました。
（綾鷹） 2021/12/07(火) 09:54

コメント返信：

[ 一覧(最新更新順) ]

[[20211206132714]] 『部分一致の逆引き検索（参照先別シート）』（綾鷹） ページの最後に飛ぶ

[[20211206132714]]　『部分一致の逆引き検索（参照先別シート）』（綾鷹）　ページの最後に飛ぶ