Question

我有一个文件，其日期值为列标题，最后一列将始终标记为“Grand Total”。我想要一种方法来查看列标题（在单元格D4：I4中）和输入公式以便稍后填充。

例如，如果我们检查D4，并且它不包含“Grand Totals”，那么我需要在单元格L4和L5中输入以下公式：

Range("L4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
    "=""Weekending ""&TEXT(RC[-8],""mm/dd/yyy"")&"" Compliant?"""
Range("L5").Select
ActiveCell.FormulaR1C1 = _
"=IF((IF(RC17=""Duplicate"",SUMIF(C2,RC2,C[-8]),RC[-8]))<27,""Compliant"",
  IF((IF(RC17=""Duplicate"",SUMIF(C1,RC1,C[-8]),RC[-8]))<30,""Approaching Limit"",
  ""Over""))"

然后它将转到单元格E4，如果它不包含“Grand Totals”，则需要在单元格M4和M5中输入公式...一旦找到“Grand Totals”[在顶部循环]，我需要退出循环（但不是sub）。

我试图将我发现的代码中的位拼凑起来：

Dim GrTot As String
Dim rng1 As Range
Set rng1 = Range("D4:I4")
GrTot = "Grand Total"

Range("D4").Select
Do While ActiveCell.Value <> GrTot

但我不知道该去哪儿。任何帮助表示赞赏。

修改

此后我尝试了另一种基于找到here示例的方法。这就是我目前所拥有的：

Dim x As Integer
Dim y As Integer
With Worksheets("Pivot")
x = 4
Do Until .Cells(4, x).Value = "Grand Total"
    For y = 12 To 16
        .Cells(4, y).Formula = "=""Weekending ""&TEXT(RC[-8],""mm/dd/yyy"")&"" 
          Compliant?"""
        .Cells(5, y).Formula = "=IF((IF(RC17=""Duplicate"",SUMIF(C2,RC2,C[-8]),
          RC[-8]))<27,""Compliant"",IF((IF(RC17=""Duplicate"",
          SUMIF(C1,RC1,C[-8]),RC[-8]))
          <30,""Approaching Limit"",""Over""))"
    Next y
    x = x + 1
Loop
End With
End Sub

但是这个没有正确退出。它将循环通过，按照我的要求编写公式，但是当它到达“Grand Total”列时它不会退出循环。我在这里做错了什么？

Answer 1

循环遍历范围内的每个单元格;如果单元格没有值，则可以向单元格写入任何内容，然后将某些内容写入偏移量。只要在您的范围内找到总计，就可以退出循环并移动到下一个范围。

For Each item In Range

    If item.Value = GrTot Then
    Exit For
    'Perform action on cell 
    item.Value = formula
    item.offset(0,1).Value = formula 
    item.offset(0,2).Value = formula

End If

找到VBA Do Until字符串，然后退出步骤

1 个答案: