Excel総合相談所 132

**名無しさん＠そうだ選挙にいこう** · 2018/07/01(日) 12:22:32.86

▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類　　　　 .】 Windows**
【2 Excelのバージョン　】 Excel**
【3 VBAが使えるか　　 .】はい･いいえ
【4 VBAでの回答の可否】可･否

▼━関連スレ━━━━━━━━━━━━

前スレ
Excel総合相談所 131
https://find.5ch.net/search?q=excel

Excel VBA 質問スレ Part51(1000到達済み)
https://find.5ch.net/search?q=excel+vba

【質問不可】Excel総合相談所スレの雑談・議論スレ4
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 19:07:31.18

>>742
Sub Macro3()
Dim rowA As Long
rowA = Range("A4").End(xlDown).Row
Dim rowH As Long
rowH = Range("H4").End(xlDown).Row

Range("C4").Formula = "=IFERROR(VLOOKUP(A4, H$4:J$" & rowH & ", 3, FALSE), ""＼(＾o＾)／"")"
Range("C4").Copy Range("C5:C" & rowA)
End Sub

**名無しさん＠そうだ選挙にいこう** · 2018/10/23(火) 19:15:01.88

て、マクロにして毎回変わる行数へ使えるようにしたいのでは無かったのかw
１回で良ければ$付けてコピーすりゃ良い