vba中如何将数组清空(利用VBA提取特定行及清空数组举例)
日常工作生活中,我们处理表格时,需要提取一个工作簿中特定行的内容,下面将介绍利用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
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com