Excel VBA Повторять одно и то же значение в течение 3 строк несколько раз

Question

У меня есть код ниже для отображения значения четной и нечетной строки в соответствии с критериями столбца c. Но как отобразить 3 разных значения из 3-й строки и продолжить цикл для этого 3-го значения для другой строки 90 или более. В конце каждое значение повторяется 30 раз.

Sub OddRowAlert()
With Range("B16:B100") ' working
    .Formula = "=IF(A16="""","""",IF((MOD(ROW(B16),2)),""=+SEK!$I$6"",""=+SEK!$K$6""))"
    .Formula = .Value
End With
End Sub

Answer 1

Попробуйте, введите код:

Sub testFillDownThreeRows()
  Dim sh As Worksheet
  Set sh = ActiveSheet
   sh.Range("A2").formula = "=Today()"  'use here what formulas you need
   sh.Range("A3").formula = "=Today()+1"
   sh.Range("A4").formula = "=Now()"
   sh.Range("A2:A4").AutoFill Destination:=sh.Range("A2:A21"), Type:=xlFillDefault
End Sub