VBA の質問です。 Sub 呼び出し() Dim 検索範囲 As Range Set 検索範囲=Sheets(“データベース”).Range(“A1:BL500”) Dim 検索値 As Range Set 検索値 =Range(“U2”) ここから S=19 For Each rag In Range(“B20,N20,P20,S20”) rag.value=WorksheetFunction.Vlookup(検索値,検索範囲,S,False) S=S+1 Next S=S+1 For Each rag In Range(“B22,N22,P22,S22”) rag.value=WorksheetFunction.Vlookup(検索値,検索範囲,S,False) S=S+1 Next S=S+1 For Each rag In Range(“B24,N24,P24,S24”) rag.value=WorksheetFunction.Vlookup(検索値,検索範囲,S,False) S=S+1 Next S=S+1 ここまで ここから〜ここまでの構文を変数をもう1つ使い、2重ループにすればもっとすっきりした文になると思うのですがうまく行きません。 VBA初心者で恐縮ですが、ご教授いただきますようよろしくお願い致します。
Excel