Excel VBA質問箱 IV

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

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


11282 / 13646 ツリー ←次へ | 前へ→

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

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

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

Sheet3には以下の座標が書かれています。

  A B C D
1 04 03 02 01
2 05 14 13 12
3 06 15 16 11
4 07 08 09 10

Sheet1のB列にはSheet2の座標がランダムで割り当てられています。
Sheet1のB列で割り振られた座標の値と同じ位置にある
Sheet3の座標の値をSheet1のC列に表示させたいです。

結果としては以下のようにしたいです。

   A   B  C
1 アイス D1  04
2 ガム  A3  11
3 アメ  B2  13
4 チョコ A1  01
5  水  C3  15
・  ・   ・  ・
・  ・   ・  ・
・  ・   ・  ・

ご教示のほどよろしくお願い致します。

【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


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

確認して下さい。

【16992】Re:シートの比較
お礼  KAME  - 04/8/18(水) 10:15 -

引用なし
パスワード
   ▼ichinose さん:

おはようございます。

大変ありがとうございました!!
おかげさまで理想以上に早く処理することができました。
今後ともよろしくお願いいたします。

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