具有日期值> = Date的Excel VBA联合行

Question

我正在尝试编写一个宏，如果行中的日期单元格（列H）大于或等于当前日期，则填充包含范围内行的电子邮件。

以下代码使用看似随机的行填充电子邮件。

Dim rng As Range
Dim row As Range
Dim rng2 As Range

Set rng = Range("B52:I79")

For Each row In rng.Rows
    If row.Columns("H") >= Date Then
        If Not rng2 Is Nothing Then
            Set rng2 = Union(rng2, row)
        Else
            Set rng2 = row
        End If
    End If
Next

任何帮助都会很棒！

Answer 1

由于您的范围从B列开始，如果您的日期在H列中，那么您需要将其称为G列，如下所示：

Dim rng As Range
Dim row As Range
Dim rng2 As Range

Set rng = Range("B52:I79")

For Each row In rng.Rows
    If row.Columns("G") >= Date Then
        If Not rng2 Is Nothing Then
            Set rng2 = Union(rng2, row)
        Else
            Set rng2 = row
        End If
    End If
Next

Answer 2

不使用范围内的字母引用列，而是使用数字。 这样他们相对来说就更明显了。

范围从b到i，列h实际上将返回i ...虽然称之为第7列，但您得到的混淆结果更少。

此外，要调试此操作，请逐步执行代码并将匹配结果发送到除union命令之外的变量。

这样，您可以在每次匹配时在本地窗口中看到，并且您可以确保要匹配的信息是正在匹配的信息。