Question

我只有下面的For Each循环返回最后一列，其值为＆lt;＆gt; 0。虽然我确信有更有效的方法，但这种方法很好。

    Dim LastColFcst As Integer
    For Each p In Range("E44:P44,S44:AD44,AG44:AR44,AU44:BF44,BI44:BU44")
    If p.Value <> 0 And p.Offset(-35, 0).Value = "Forecast" Then
    LastColFcst = p.Column
    End If
    Next p

我现在希望为不同的行86,88,95,99获取值为＆lt;＆gt; 0的最后一列。我可以通过复制和粘贴我的原始代码四行并具有IF语句来实现这一点。然而，这似乎是实现简单任务的非常低效的方式。示例代码如下; **编辑完整样本（下面发布的长效低效代码）

    Dim LastColFcst As Integer
For Each p In Range("E86:P86,S86:AD86,AG86:AR86,AU86:BF86,BI86:BU86")
If p.Value <> 0 And p.Offset(-77, 0).Value = "Forecast" Then
LastColFcst = p.Column
End If
Next p

For Each L In Range("E88:P88,S88:AD88,AG88:AR88,AU88:BF88,BI88:BU88")
If L.Value <> 0 And L.Offset(-79, 0).Value = "Forecast" And L.Column > LastColFcst Then
LastColFcst = L.Column
End If
Next L

For Each J In Range("E95:P95,S95:AD95,AG95:AR95,AU95:BF95,BI95:BU95")
If J.Value <> 0 And J.Offset(-79, 0).Value = "Forecast" And J.Column > LastColFcst Then
LastColFcst = J.Column
End If
Next J

For Each K In Range("E97:P97,S97:AD97,AG97:AR97,AU97:BF97,BI97:BU97")
If K.Value <> 0 And K.Offset(-88, 0).Value = "Forecast" And K.Column > LastColFcst Then
LastColFcst = K.Column
End If
Next K

任何人都可以建议一下这种情况的最佳方式吗？

从右到左搜索（多个范围）

0 个答案: