小编J. *_*Doe的帖子

VBA 迭代表

我正在尝试迭代过滤表,并打印 3 列的值。我希望他们将每一行作为一组(供应商、工厂、价格)进行打印。这是我到目前为止的代码。

For Each Row In Union(Range("TblRawData[Supplier]"), Range("TblRawData[plant]"), Range("TblRawData[price]")).Rows
    If Row.EntireRow.Hidden = False Then
          Debug.Print Row.Value
    End If
Next Row
Run Code Online (Sandbox Code Playgroud)

该代码打印所有供应商,然后打印所有工厂,然后打印所有价格。而不是每一行都是一组。

Code Results:        Desired Result:
supplier1            supplier1, plant1, $1.50
supplier2            supplier2, plant2, $2.00
supplier3            supplier3, plant3, $3.00
plant1
plant2
plant3
$1.50
$2.00
$3.00
Run Code Online (Sandbox Code Playgroud)

excel vba

2
推荐指数
1
解决办法
2549
查看次数

标签 统计

excel ×1

vba ×1