| |
▼KAME さん：
おはようございます。
>Sheet1には以下の文字列が書かれています。
>
> Ａ Ｂ Ｃ
>１ アイス Ｄ１
>２ ガム Ａ３
>３ アメ Ｂ２
>４ チョコ Ａ１
>５ 水 Ｃ３
>・ ・ ・
>・ ・ ・
>・ ・ ・
>
>Sheet2には以下の座標が書かれています。
>
> Ａ Ｂ Ｃ Ｄ
>１ D1 C1 B1 A1
>２ D2 C2 B2 A2
>３ D3 C3 B3 A3
>４ D4 C4 B4 A4
例題は、
Sheet1のＢ列は全角文字でSheet2の各セルの文字は半角でしたが、
全角文字を半角文字に直して検索ではないですよね？
そうではないと思ってのコードです。
'==================================
Sub main()
Dim rng As Range 'Sheet1のＡ列の中でに入力されているセル範囲
Dim crng As Range
Dim g_rng As Range 'Sheet2を検索して見つかったセル
Dim sht2 As Worksheet
Set sht2 = Worksheets("sheet2")
With Worksheets("sheet1")
Set rng = .Range("a1", .Cells(.Rows.Count, 1).End(xlUp))
End With
With Worksheets("sheet3")
For Each crng In rng
Set g_rng = sht2.Cells.Find(What:=crng.Offset(0, 1).Value, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
)
If Not g_rng Is Nothing Then
crng.Offset(0, 2).Value = .Range(g_rng.Address).Value
End If
Next
End With
End Sub
全角文字を半角文字直して検索するのであれば、方法はありますよ！！
確認して下さい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
