常連

### 前提・実現したいこと

Excelから特定の文字を検索し、結果を出力したい
例えば、下記のエクセルで、宮城のセル番地が不明で、宮城の値のみを出力したい時、どうすればいいでしょうか？

下記は指定したセルの範囲をすべて出力したものです。

### 該当のソースコード

```ここに言語名を入力
from openpyxl import load_workbook

# エクセルファイルのロード
excel_path=エクセルファイルのパス
workbook = load_workbook(filename=excel_path, read_only=True)

# # シートのロード
sheet = workbook['Sheet1']

A3_COL = 1
A3_ROW = 3

A8_COL = 1
A8_ROW = 8

# 範囲データを順次処理
for row in sheet.iter_rows(min_col=A3_COL, min_row=A3_ROW, max_col=A8_COL, max_row=A8_ROW):
    for cell in row:
        # 該当セルの値取得
        cell_value = cell.value
        # 該当セルに値が存在する場合表示
        if cell_value is not None:
            print(cell.coordinate, cell_value)

# ロードしたExcelファイルを閉じる
workbook.close()



```

### 範囲ののExcel ファイル

```ここに言語名を入力

        A
3  北海道   5320
4  青森  1278
5  岩手   1255
6  宮城  2323
7  秋田   996
8  山形   1102


```
### 実行結果
```ここに言語名を入力
A3 北海道   5320
A4 青森  1278
A5 岩手   1255
A6 宮城  2323
A7 秋田   996
A8 山形   1102

```


### 補足情報（FW/ツールのバージョンなど）

https://qiita.com/mimitaro/items/2b48b377b14018bdf6cb   (引用)

python 3.7

Python Excelファイルからキーワード検索 エクセル

###前提・実現したいこと
2つシートがあり、それぞれに表があります。
一つは元表、もう一つは転記先の表です。

![イメージ説明](af116bf997474a5cd833ff70b6f3c351.png)
![イメージ説明](02b89a17df01013257c2ee70a912536f.png)

転記先の表は91行目まであります。


元表のデータを、「社名」と「見出し」で合致するセルに転記をさせ、元表に社名がない行は、空欄にしたいです。
ワークシート関数ですと、INDEX関数とMATCH関数の組み合わせでクロス検索するという方法があると思いますが、それをマクロで表現したいです。





###該当のソースコード
```ここに言語を入力
Sub 作成()

    Const KURIKOSIKIN_COL As Long = 4 '「転記先」シート「繰越税抜金額列」
    
    Const KENSAKU_CLM As Long = 2 '「転記先」シートＢ列
    Const KENSAKU_ROW As Long = 4 '「転記先」シート４行目
    
    Dim Sh_Tenki As Worksheet '「転記先」シート
    
    Dim Data_Hanni As Range 'index関数のデータ範囲
    
    Dim Kensaku_Hanni1 As Range  'match関数の検索する範囲①
    Dim Kensaku_Hanni2 As Range  'match関数の検索する範囲②
    
    Set Data_Hanni = Worksheets("元表").Range(Cells(7, 4), Cells(20, 8)) 'index関数のデータ範囲（$D$7:$H$20）
    Set Sh_Tenki = Worksheets("転記先")    
    Set Kensaku_Hanni1 = Worksheets("元表").Range(Cells(7, 3), Cells(20, 3)) '検索する範囲①（$C$7:$C$20）
    Set Kensaku_Hanni2 = Worksheets("元表").Range(Cells(6, 4), Cells(6, 8)) '検索する範囲②（$D$6:$H$6）
        
    Worksheets("転記先").Cells(5, 4).Value = WorksheetFunction.Index(Data_Hanni, _
    WorksheetFunction.Match(Sh_Tenki.Cells(5, KENSAKU_CLM), Kensaku_Hanni1, 0), _
    WorksheetFunction.Match(Sh_Tenki.Cells(KENSAKU_ROW, 4), Kensaku_Hanni2, 0))

End Sub
```

###試したこと
INDEX関数とMATCH関数を使って、転記先表の「Ｄ1」だけ転記させることはできました。
（その後FOR～を使って転記先表の91行目まで転記させるように書いてみましたが、うまく行かず、どう直せば良いのかも分かりませんでした）

やり方はこだわりません。
良いやり方がありましたら教えてください。
宜しくお願い致します。

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報

vba　行と列を指定→検索して値を転記

年代によるのかもしれませんが、
オレに聞くな！ググれカス！と言われて、育って来ました。

昔も、Yahoo知恵袋等で教えて君がいましたが、
IT系なのに教えて君が多い事に、正直唖然としています。

検索したら、一発で答えがあるのに、全く検索すらせず質問する方の多い事。
検索して、それでも理解出来ないで質問するという事なら、まだ分かります。

何故、答えがそこにあるのに、ググらない人が多いのでしょうか？

何故、答えがそこにあるのに、ググらない人が多いのでしょうか？

ソースを追っていて、Googleで検索することのできない記号が出てきた時、皆さんはその記号の意味をどのように調べていますか？

例えば
->
=>
>>>
|>
|
[]
::
など。

上手な調べ方があれば教えて下さい。

Googleで検索できない記号の調べ方

日付が一致した行に別シートに入力されているデータを転記する。

やりたいことは、入力データ1シートのE3から入力してある社員番号の一致したシートに入力データ1シートのB列からD列に入力されているデータを日付が一致した行のD列からF列に転記を行いたいです。
自分で書いてみたコードは以下の通りで入力データ1の社員番号から該当のシートをアクティブにすることまではできたのですが（見つけた場合の処理内容としてメッセージボックスが出るようにしてあります。）、入力データ2に入力されている日付を各社員番号の一致したシートから検索することがいろいろ試してもできませんでしたのでアドバイスをお願いします。日付行だけが取得できれば転記の作業はこれでできると思います。
※・シートは実際には1000枚もありません。後の修正で最終行までループさせるようにするつもりです。
　・入力シート1には入力シート2に入力された日付のB列：シフト番号、C列：出勤時間、D列：退勤時間が入　　力されています。
　・入力シート2にはマクロで組んだボタンを配置するつもりです。




```vba
Sub 個人別シートへ出力()
Dim ws As Worksheet
Dim 社員番号 As Long
Dim b As Long
For b = 3 To 1000
社員番号 = Worksheets("入力データ1").Range("E" & b).Value
    For Each ws In Worksheets
    ws.Activate
        If ws.Name Like "*" & 社員番号 & "*" Then
             Range("D" & 日付行).Value = Worksheets("入力データ1").Range("B" & b).Value
             Range("E" & 日付行).Value = Worksheets("入力データ1").Range("C" & b).Value
             Range("F" & 日付行).Value = Worksheets("入力シート1").Range("D" & b).Value

　　　　　　　 MsgBox "ありました"
        End If
    Next ws
Next b
End Sub
```

![イメージ説明](ba82ec7bf53c16567c368a6d8f393144.jpeg)



↑入力データ1


![イメージ説明](eb76d895663f452cad13c5dd1ed26709.jpeg)


↑入力データ2


![イメージ説明](1601a74b578e393bdbaa7595b64b138c.jpeg)


↑各社員の個人シート

日付が一致した行に別シートに入力されているデータを転記したい

teratailを見ていると、ググれと**だけ**言っている回答をよく見かけます。
確かに、検索することは大事ですし、
検索しましょうと言うことは悪いことではありません。
でも、それだけでいいのでしょうか？

検索だけで知識を得るには、検索キーワードの選定から、
引っかかったサイトの取捨選択(情報が古いサイトや間違っているサイトは
インターネットに**たくさんあります**)、
内容を理解するための前提知識など、経験や知識が必要です。
あなたができることが質問者でもできるとは限りません。
検索して一発で正解に辿り着くのは希です。

つまり、回答者は「質問者はググったけどわからなかったから質問している」と
前提とすべきであると思います。
確かにググりもしない教えて君もいるかも知れませんが、
どうなのかは回答者にもわかりませんので、決めつけるのは早々です。

また、teratailのようなサイトは質問者だけではなく、
同じような問題を抱えた人がググった結果、辿り着く所だと思っています。
サイトの趣旨としても、ナレッジを集めることです。
そんな中、ググれとだけ書いてあっても、なんとも無意味な回答です。

ググった結果見つかるいくつかのサイトの紹介や、簡単な解説をして、
より多くのことを知りたい場合はググってねというのであれば文句はありません。
問題にしているのは「ググれ」**だけ**で終わってしまっている回答です。
ということで、私は、

  **ググれというだけの回答は避けるべき**

と提案したいと思います。
「ググれカス」というのは簡単です。
ですが、それは回答者としての思考停止であり、ある種の責任放棄だと思います。
皆様のご意見をお聞かせ下さい。

参考文献: [何故、答えがそこにあるのに、ググらない人が多いのでしょうか？](https://teratail.com/questions/20278)

何故、答えを知っているのに、ググれとだけ言う人が多いのでしょうか？

サクラエディタで完全一致を検索したいです。

$payment

に完全に一致するものを検索したいです。

どのように書けばよいですか？

/^$payment$/

のように記述し、正規表現にチェックを入れてもヒットしません。

サクラエディタで完全一致を検索したい

### 前提・実現したいこと

いつもお世話になっております。
VBA初心者ですが宜しくお願い致します。

Vlookup関数の代替として、Dictionaryを使用しております。
そこで質問なのですが、1つのKeyに対して複数のItemを持たせることは可能でしょうか？
それとも、Dictionaryとは別の方法が良いのでしょうか？
お手数お掛けしますが、ご確認お願い致します。

検索結果の出力先 : Book_bのSheet_cのAQ列とAR列
検索値 : Book_bのSheet_cのJ列
検索範囲 : Book_dのSheet_eのC~H列
列番号 : 5と6(E列とF列)
検索方法 : 完全一致 


### 該当のソースコード
下記のコードはDictionaryを使用し、1つのKeyに対して1つのItemを持たせております。

```ここに言語名を入力
Dim d As String
    Dim e As Worksheet
    Dim b As String
    Dim c As Worksheet
    Dim hsaisho As Long
    Dim isaigo As Long
    Dim dic_bpl As Dictionary
    Dim buff As Variant
    Dim name_b As Long
    Dim name_c As Long
        
            d = Application.GetOpenFilename(",*.xlsx")
    If d <> "False" Then
            With Workbooks.Open(d)             
Set e = .Worksheets("Sheet1")
            End With
    Else
            MsgBox "キャンセルしました"
            Exit Sub 
    End If

            b = Application.GetOpenFilename(",*.XLSX")
    If b <> "False" Then
            With Workbooks.Open(b) 
            Set c = .Worksheets("Sheet1")
            End With
    Else
            MsgBox "キャンセルしました"
            Exit Sub
    End If

            
    Set dic_bpl = New Dictionary
            
            Cells(1, 43) = "BPL"
            isaigo = e.Cells(Rows.Count, 3).End(xlUp).row
            hsaisho = c.Cells(Rows.Count, 43).End(xlUp).row + 1
            hsaigo = c.Cells(Rows.Count, 8).End(xlUp).row
        
  
    For name_c = 1 To isaigo
    
    If dic_bpl.Exists(e.Cells(name_c, 3).Value) = False Then
            dic_bpl.Add Key:=CStr(e.Cells(name_c, 3).Value), Item:=e.Cells(name_c, 6).Value
    End If
    Next name_c

            buff = c.Range(c.Cells(1, 1), c.Cells(hsaigo, 43)).Value
    
    For name_b = hsaisho To hsaigo

            buff(name_b, 43) = WorksheetFunction.RoundUp(c.Cells(name_b, 11).Value / dic_bpl.Item(CStr(buff(name_b, 10))), 0)

    Next name_b

            c.Range(c.Cells(1, 1), c.Cells(hsaigo, 43)) = buff
            

```




    


### 試したこと

・set Dictionary名 = nothing にしてから set Dictionary名 = new Dictionary