我正在尝试提出一个代码,该代码根据同一行但不同列中的单元格值选择所有单元格。我有以下代码:
Dim rCell As Range
Dim rRng As Range
For Each rCell In Range("b:b")
If rCell.Value >= DateValue(#1/1/2016#) Then
If rRng Is Nothing Then
Set rRng = rCell
Else
Set rRng = Application.Union(rRng, rCell)
End If
End If
Next
rRng.Select
这将选择B列中的单元格,但我希望它选择位于相同行但位于列I中的单元格。然后可能显示所选单元格的平均值。
这项任务是否有优雅的解决方案。非常感谢所有可能为此做出贡献的人。