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

Question

这里是全新的 VBA 用户：

我正在尝试从 excel 中的过滤表中获取计算表形式。我知道过滤后的表只隐藏值，所以任何偏移量或索引仍然返回隐藏的过滤值，所以互联网促使我使用 VBA。

在使用 VBA 时，我似乎无法将变量插入到 range.value 中，该变量在每个循环中都会增长，因此单元格会增长，直到可见的过滤表完成。我相信 Do Until 函数是我应该用来实现这一目标的，但我需要一些关于我的代码的主要帮助，或者我不知道更简单的过程：

当前破解密码：

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 将始终是相同的值。

如果将Rng 变量声明为范围，则可以直接使用该变量。

    Dim Rng as Range
'... code leading up to this ...
    Set Rng = Range("A"&iPlug)

    ' Store the current cell value in the dCellValues array

    Rng = Cells(iRow, 1).Value

您也可以直接使用 Range 方法，而不使用变量。

Range("A"&iPlug) = Cells(iRow, 1).Value