Excel VBA質問箱 IV

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

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


64326 / 76732 ←次へ | 前へ→

【16987】Re:シートの比較
回答  ichinose  - 04/8/18(水) 7:42 -

引用なし
パスワード
   ▼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


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

確認して下さい。

1 hits

【16985】シートの比較 KAME 04/8/18(水) 0:04 質問
【16987】Re:シートの比較 ichinose 04/8/18(水) 7:42 回答
【16992】Re:シートの比較 KAME 04/8/18(水) 10:15 お礼

64326 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free