0

我曾尝试寻找解决方案,但找不到。

我有一个产品清单,每个产品都有很多部分。VBA中是否有HasNext函数来查看产品是否有更多零件?例如,对于鸡肉汉堡,我想挑选出所有的部分,将它们放在一个数组中并显示在另一张表中。

我不能对数组进行硬编码,因为客户将来会添加更多产品。可能有 15、20、23 个部分等。是否有 HasNext 函数来获取下一列中的值并将其添加到数组中?

Product        | Part 1 | Part 2 | Part 3
Chicken Burger | Veggie | Bun    | Patty
4

1 回答 1

0

您可以使用Range.End属性来检测标题行的“长度”:

Dim col
col=Range("A1").End(xlToRight).Column
For i = 1 to col
    If Cells(1, col).Value <> "" Then
    '...
End

PS我想知道为什么MSDN将其称为“属性”而不是“方法”......

于 2013-03-11T09:37:04.153 回答