エクセルのマクロついて教えてください。

下記のマクロは先日教えて頂いたマクロです。
指定シートの指定セル範囲指定数式をコピーできます。
コードの
str2 = "=IFERROR(ROUNDDOWN(($O$" & i & "+$P$" & i & "),3),"""")"
部分を
=IFERROR(ROUNDDOWN(MIN(6*($O$4/$Q$4)-1.4,3),3),"3")
に変更する方法を教えてください。
尚、($O$4/$Q$4)の部分はO4及びQ4から4行づつで121まで
以上になります。
よろしくお願いいたします。

質問者からの補足コメント

• 回答ありがとうございます。
  申し訳ありません。
  最終行は、120行でよいでしょうか。
  はい、私の間違えです。
  ２．元のマクロは、str2をZ列に格納しています。今回もZ列へ格納で良いですか。
  はい、宜しくお願い致します。
  ３．シート名は"Table 2"でまちがいないですか。
  はい、宜しくお願い致します。

  No.1の回答に寄せられた補足コメントです。 補足日時：2024/09/09 17:16

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2024/09/09 17:12

不明点です。

１．($O$4/$Q$4)の部分はO4及びQ4から4行づつで121まで　・・・ということですが
そうすると
O4/Q4
O8/Q8
・・・
O120/Q120

となります。
最終行は、120行でよいでしょうか。121行にはなりません。

２．元のマクロは、str2をZ列に格納しています。今回もZ列へ格納で良いですか。

３．シート名は"Table 2"でまちがいないですか。

No.2 回答者： tatsumaru77 回答日時： 2024/09/09 17:31

以下のようにしてください。

Sub 水平距離を改造したもの()
Dim i As Long
Dim str1 As String
Dim str2 As String
Sheets("Table 2").Select
For i = 4 To 120 Step 4
str1 = "$Z$" & i
str2 = "=IFERROR(ROUNDDOWN(MIN(6*($O$" & i & "/$Q$" & i & ")-1.4,3),3),""3"")"
Range(str1).Formula = str2
Next
End Sub

この回答へのお礼

回答ありがとうございました。
早速試してみます。

お礼日時：2024/09/09 17:33