Excel VBA質問箱 IV

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

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


5728 / 76732 ←次へ | 前へ→

【76611】Re:VLOOKUPで一致した場合に特定の数値を返したい
発言  kanabun  - 15/2/9(月) 22:15 -

引用なし
パスワード
   ▼vba初心者 さん:

>BOOK1のV列とBOOK2のA列を比較し、一致するならBOOK1のU列に
>1699 と数字を入れたく思います
>一致しなければ何もしません

ある列とある列の比較なら VLOOKUP より MATCH でしょうね

Sub Try1()
 Dim r As Range, u As Range
 Dim a As Range, aAddress As String
 
 With Workbooks("Book1.xls").Worksheets(1)
   Set r = .Range("V2", .Cells(.Rows.Count, "V").End(xlUp))
   Set u = r.Offset(, -1)
 End With
 With Workbooks("Book2.xls").Worksheets(1)
   Set a = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
   aAddress = a.Address(External:=True)
 End With
 'U列に数式(V列と Book2のA列と照合して、一致したら 1699、なければ "" )
 u.Formula = "=IF(ISNUMBER(MATCH(V2," & aAddress & ",0)),1699,"""")"
 
End Sub

0 hits

【76609】VLOOKUPで一致した場合に特定の数値を返したい vba初心者 15/2/9(月) 21:08 質問[未読]
【76610】Re:VLOOKUPで一致した場合に特定の数値を返... β 15/2/9(月) 22:12 発言[未読]
【76612】Re:VLOOKUPで一致した場合に特定の数値を返... β 15/2/10(火) 6:37 発言[未読]
【76611】Re:VLOOKUPで一致した場合に特定の数値を返... kanabun 15/2/9(月) 22:15 発言[未読]
【76614】Re:VLOOKUPで一致した場合に特定の数値を返... VBA 15/2/10(火) 10:52 お礼[未読]
【76613】Re:VLOOKUPで一致した場合に特定の数値を返... β 15/2/10(火) 8:39 発言[未読]

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