Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64326 / 76732

←次へ　｜　前へ→


	【16987】Re:シートの比較

ichinose - 04/8/18(水) 7:42 -


	引用なし

	パスワード

▼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

全角文字を半角文字直して検索するのであれば、方法はありますよ！！

確認して下さい。

1 hits

▼

【16985】シートの比較 KAME 04/8/18(水) 0:04