如何在Excel中计算出过滤表，可能使用VBA

Question

这里有全新的VBA用户：

我正在尝试从excel中的过滤表中获取计算表形式。我知道过滤后的表格仅隐藏值，因此进行任何偏移量或索引编制仍会返回隐藏的过滤后的值，因此互联网促使我转向使用VBA。

在使用VBA时，我似乎无法将变量插入在每个循环中增长的range.value中，因此单元格会增长，直到可见的筛选表完成为止。我相信应该使用“直到操作”功能来实现此目的，但是我的代码需要一些主要帮助，或者我没有意识到更简单的过程：

当前无效代码：

Sub TableCreate()

iRow = 1

iPlug = 1

Do Until IsEmpty(Cells(iRow, 1))

Set Rng = Range("A"iPlug)

' Store the current cell value in the dCellValues array

Range(Rng).Value = Cells(iRow, 1).Value

iRow = iRow + 1

iPlug = iPlug + 1

Loop


End Sub

谢谢，

EEE

Answer 1

[如果要在单元格地址中使用数字变量，则必须将数字与和号&符号连接起来。

Set Rng = Range("A" & iPlug)

看起来您也只需要一个变量，因为iPlug和iRow将始终是相同的值。