从vba中的变体中删除元素

Question

我有一个包含源列表的变体

Dim source as variant
source = Range("A4:A" & rowcount)

有时rowcount 也是 4，所以在这种情况下，我将源重新分配给

source = Range("A4:A5")

现在我想删除最后一行source(2)/source(2,1)

如何删除？

我试过 Erase source 清除所有内容

我正在处理源中的数据并填充几个 dict 项 如果源不是数组，我必须在很多地方进行更改，因为我在很多地方都使用过每个地方

我怎样才能只保留第一个元素或删除最后一个元素？

Answer 1

您不能使用ReDim Preserve，因为即使只有一个单元格，您使用 Range 设置的变体也是二维的。

使用.Value 或.Value2 获得一个适当的数组和一个缓冲区变量，以擦除并传输回源数据：

Dim source as variant, A()
Redim A(0)

If rowcount<>4 Then
    source = Range("A4:A" & rowcount).Value
Else
    source = Range("A4:A5").Value
    A(0)=source(1,1)
    Redim source(1 To 1, 1 To 1)
    source(1,1)=A(0)
End if