时间戳

首页 > 解决方案 > Excel VBA多次重复3行相同的值

excel - Excel VBA多次重复3行相同的值

问题描述

我有下面的代码，用于根据特定列标准显示偶数行和奇数行。但是如何从 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

标签： excelvbaloops

解决方案

试试这个，请代码：

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

推荐阅读