龙空技术网

利用VBA提取特定行及清空数组举例

宣仁在路上 614

前言:

现时各位老铁们对“释放数组空间的方法”都比较注重,看官们都想要知道一些“释放数组空间的方法”的相关内容。那么小编同时在网上网罗了一些对于“释放数组空间的方法””的相关内容,希望咱们能喜欢,咱们一起来了解一下吧!

日常工作生活中,我们处理表格时,需要提取一个工作簿中特定行的内容,下面将介绍利用VBA,快速的提取我们想要的内容。

例如下图,我们想要提取第一列内容为"b"的所有行的内容,代码如下:

Sub 提取特定行()

Dim arr, arr1(1 To 1000, 1 To 8) '声明两个数组变量

Dim x, k

arr = Range("a1:h11")

For x = 1 To UBound(arr) ‘表示arr数组中最大一行

If arr(x, 1) = "b" Then

k = k + 1

arr1(k, 1) = arr(x, 1)

arr1(k, 2) = arr(x, 2)

arr1(k, 3) = arr(x, 3)

arr1(k, 4) = arr(x, 4)

arr1(k, 5) = arr(x, 5)

arr1(k, 6) = arr(x, 6)

arr1(k, 7) = arr(x, 7)

arr1(k, 8) = arr(x, 8)

End If

Next x

Range("a15").Resize(k, 8) = arr1 ’此处表示以a15单元格为起点的k行8列的内容

End Sub

结果如下图所示:

下面将介绍一种需要清空数组的例子,如下图,我们需要将第一列中的内容以空行为界,分别提到D列,E列,F列中。

代码如下:

Sub 清空数组()

Dim arr, arr1(1 To 1000, 1 To 1)

Dim x, m, k

arr = Range("a1:a16")

For x = 1 To UBound(arr)

If arr(x, 1) <> "" Then

k = k + 1

arr1(k, 1) = arr(x, 1)

Else

m = m + 1

Range("c1").Offset(0, m).Resize(k) = arr1

Erase arr1 '表示将arr1数组中的内容清除掉

k = 0

End If

Next

End Sub

标签: #释放数组空间的方法 #数组清空 vba #vba数组清空后释放内存吗