Question

将多个单元格沿循环向下移动

我对VBA还是很陌生，我正在努力自学。我正在使用4列。 “ I”是开始日期，“ J”是结束日期，“ M”是每日支出，“ N”是每周支出。

我现在要说，如果当前日期大于开始日期且小于结束日期，则将“ M”乘以7。它适用于一行。问题是我无法让所有列都掉下来。意思是，开始日期是活动单元格，我可以抵消。我也无法获得每日抵消行。我已经尝试了所有我知道该怎么做的方法，并浏览了许多不同的论坛，但无法使其正常工作。我确信这是非常基本的，但是任何帮助都将不胜感激。

Sub WeeklyAdvertisingSpend()

Dim dspend As Currency
Dim wspend As Currency


dspend = Worksheets("2018 Information").Range("m3")

wspend = dspend * 7

Range("i3").Activate

Do Until ActiveCell = Empty
    ActiveCell.Offset(1, 0).Activate


        If Range("i3") <= Date And Range("j3") >= Date Then

        Range("n3").Value = wspend

        End If



Loop



End Sub

使用if then语句查找不同广告系列的每周支出。

Answer 1

您可以这样做，没有偏移，但是使用行计数器。循环从第3行开始，到第I列最后使用的条目（第{{1}行）结束。

循环同时向下移动2个单元格

1 个答案: