Excel VBA質問箱 IV

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

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


4909 / 76735 ←次へ | 前へ→

【77441】Re:VBAで別ブックから反映について
発言  β  - 15/10/6(火) 6:41 -

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

それでは以下で。

Sub Test2()
  Dim shA As Worksheet
  Dim shB As Worksheet
  Dim dic As Object
  Dim c As Range
  
  Set shA = Workbooks("ブックA.xlsx").Sheets("Sheet1")  '★
  Set shB = Workbooks("ブックB.xlsx").Sheets("Sheet1")  '★
  Set dic = CreateObject("Scripting.Dictionary")
  
  For Each c In shA.Range("A2", shA.Range("A" & Rows.Count).End(xlUp))
    dic(c.Value) = c.EntireRow.Range("C1").Value
  Next
  
  For Each c In shB.Range("A2", shB.Range("A" & Rows.Count).End(xlUp))
    If dic.exists(c.Value) Then c.EntireRow.Range("F1").Value = dic(c.Value)
  Next
  
End Sub
0 hits

【77432】VBAで別ブックから反映について 15/10/1(木) 23:03 質問[未読]
【77433】Re:VBAで別ブックから反映について β 15/10/2(金) 0:17 発言[未読]
【77440】Re:VBAで別ブックから反映について 15/10/5(月) 14:07 質問[未読]
【77441】Re:VBAで別ブックから反映について β 15/10/6(火) 6:41 発言[未読]
【77442】Re:VBAで別ブックから反映について 15/10/6(火) 12:36 お礼[未読]

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