Excel VBA質問箱 IV

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

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


46491 / 76732 ←次へ | 前へ→

【35211】Re:ワークシート関数使用時の他シートデータ参照について
発言  ponpon  - 06/2/23(木) 20:43 -

引用なし
パスワード
   こんばんは。

>シート1のA列、B列という表とシート2のA列、B列という表の二つの表があり、
>シート1のA列のデータを頭から全て順に、シート2のA列のデータと比較して
>データが一致したらシート2のB列の値をシート1アクティブセルの隣のセル
>(B列)データを転記するVBAを作りたいと思っています。

シート2のA列のデータには、重複は、ないのでしょうか?

Vlookupでは、ありませんが、
シート1のA列のデータを上から順に見ていき、シート2のA列のデータと
一致したら、シート2のB列の値を検索したシート1のA列の隣(B列)に
転記します。
 こういう意味でしょうか?

Sub test()
  Dim myR As Range
  Dim r As Range
  Dim FR As Variant
 
  With Sheets("Sheet1")
   Set myR = Range("A1", Range("A65536").End(xlUp))
  End With
  
  Application.ScreenUpdating = False
  For Each r In myR
   FR = Application.Match(r.Value, Sheets("Sheet2").Range("A:A"), 0)
   If Not IsError(FR) Then
     r.Offset(, 1).Value = Sheets("Sheet2").Cells(FR, 2).Value
   End If
  Next
  Application.ScreenUpdating = True
End Sub

0 hits

【35207】ワークシート関数使用時の他シートデータ参照について hiropon 06/2/23(木) 19:51 質問
【35211】Re:ワークシート関数使用時の他シートデー... ponpon 06/2/23(木) 20:43 発言
【35218】Re:ワークシート関数使用時の他シートデー... ponpon 06/2/23(木) 21:47 発言
【35220】Re:ワークシート関数使用時の他シートデー... hiropon 06/2/23(木) 21:51 お礼
【35213】Re:ワークシート関数使用時の他シートデー... Kein 06/2/23(木) 20:51 発言
【35221】Re:ワークシート関数使用時の他シートデー... hiropon 06/2/23(木) 21:58 お礼
【35214】Re:ワークシート関数使用時の他シートデ... 太公望 06/2/23(木) 20:56 回答
【35223】Re:ワークシート関数使用時の他シートデ... hiropon 06/2/23(木) 22:09 お礼

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