Excel VBA質問箱 IV

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

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


14158 / 76734 ←次へ | 前へ→

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

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

一応、ループの中でVLOOKUPを使うものもアップしておきます。

Sub Sample2()
  Dim x As Long, z As Long, k As Long
  Dim c As Range
  Dim v() As Variant
  Dim tbl As Range
  
  With Worksheets("マスタ")
    Set tbl = .Range("A2:B" & .Range("A" & .Rows.Count).End(xlUp).Row)
  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) = Application.VLookup(c.Value, tbl, 2, False)
    Next
    .Range("K1").Resize(z).Value = v
  End With
  
  Set tbl = Nothing
  
End Sub
1 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 お礼

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