|
▼KAME さん:
おはようございます。
>Sheet1には以下の文字列が書かれています。
>
> A B C
>1 アイス D1
>2 ガム A3
>3 アメ B2
>4 チョコ A1
>5 水 C3
>・ ・ ・
>・ ・ ・
>・ ・ ・
>
>Sheet2には以下の座標が書かれています。
>
> A B C D
>1 D1 C1 B1 A1
>2 D2 C2 B2 A2
>3 D3 C3 B3 A3
>4 D4 C4 B4 A4
例題は、
Sheet1のB列は全角文字でSheet2の各セルの文字は半角でしたが、
全角文字を半角文字に直して検索ではないですよね?
そうではないと思ってのコードです。
'==================================
Sub main()
Dim rng As Range 'Sheet1のA列の中でに入力されているセル範囲
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
全角文字を半角文字直して検索するのであれば、方法はありますよ!!
確認して下さい。
|
|