下記のVBAを簡単できませんか?

Visual Basic | Excel57閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時:10/11 19:44

その他の回答(1件)

0

Sub sample() Range("G2").ClearContents Range("P2").Formula = "=VLOOKUP($K$2,OFFSET(J15,0,0,COUNTA(J:J)-1,9),3,FALSE)" Range("C5").Formula = "=VLOOKUP($K$2,OFFSET(J15,0,0,COUNTA(J:J)-1,9),9,FALSE)" Range("B8").Formula = "=VLOOKUP($K$2,OFFSET(J15,0,0,COUNTA(J:J)-1,9),6,FALSE)" Range("C8").Formula = "=VLOOKUP($K$2,OFFSET(J15,0,0,COUNTA(J:J)-1,9),7,FALSE)" Range("I8").Formula = "=VLOOKUP($K$2,OFFSET(J15,0,0,COUNTA(J:J)-1,9),8,FALSE)" End Sub