ExcelのVBAについてです。関数の入力について sheet1にB2:E5の枠があります。 B2には、=IFERROR(Sheet2!A2/Sheet2!B2,"")と入れてあります。

画像

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

ベストアンサー

0

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

お二人とも良かったのですが、今回はこちらの方を選ばさせていただきます。 ありがとうございました!

お礼日時:7/3 11:15

その他の回答(1件)

0

Sheet2のデータは何行でもいいです。データのある最終行まで数式を入れます。 Sub test() Dim lr As Long, k As Long, r As Range Application.ScreenUpdating = False lr = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row - 1 Sheets("Sheet1").Select For Each r In Range("B2:E" & Rows.Count) If k = lr Then Exit For r = "=IFERROR(Sheet2!A" & k + 2 & "/Sheet2!B" & k + 2 & ","""")" k = k + 1 Next End Sub