Excel VBA質問箱 IV

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

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


14157 / 76734 ←次へ | 前へ→

【68076】Re:検索して一致した隣の列を返す
回答  UO3  - 11/1/28(金) 17:56 -

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

もう1つだけ。
なんとなくVBAらしい(?)コードを。

Sub Sample3()
  Dim dic As Object
  Dim z As Long, k As Long
  Dim c As Range
  Dim v() As Variant
  
  Set dic = CreateObject("Scripting.Dictionary")
  
  With Worksheets("マスタ")
    For Each c In .Range("A2:B" & .Range("A" & .Rows.Count).End(xlUp).Row)
      dic(c.Value) = c.Offset(, 1).Value
    Next
  End With
  
  With Worksheets("レポート")
    z = .Range("J" & .Rows.Count).End(xlUp).Row
    ReDim v(1 To z, 1 To 1)
    For Each c In .Range("J1").Resize(z)
      k = k + 1
      v(k, 1) = dic(c.Value)
    Next
    .Range("K1").Resize(z).Value = v
  End With
  
  Set dic = Nothing
  
End Sub

2 hits

【68071】検索して一致した隣の列を返す ののか 11/1/28(金) 17:02 質問
【68073】Re:検索して一致した隣の列を返す UO3 11/1/28(金) 17:34 回答
【68075】Re:検索して一致した隣の列を返す UO3 11/1/28(金) 17:50 回答
【68085】Re:検索して一致した隣の列を返す ののか 11/1/31(月) 11:16 質問
【68086】Re:検索して一致した隣の列を返す UO3 11/1/31(月) 12:57 回答
【68087】Re:検索して一致した隣の列を返す ののか 11/1/31(月) 13:29 質問
【68088】Re:検索して一致した隣の列を返す ののか 11/1/31(月) 13:42 お礼
【68076】Re:検索して一致した隣の列を返す UO3 11/1/28(金) 17:56 回答
【68084】Re:検索して一致した隣の列を返す ののか 11/1/31(月) 8:56 お礼

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