VBA 第11课数组,取特定行数据

最新推荐文章于 2025-03-24 16:43:51 发布

王小涛_同學

最新推荐文章于 2025-03-24 16:43:51 发布

阅读量3.7k

点赞数 1

分类专栏： VBA 文章标签： win10 vba excel2013 excel 数据

本文链接：https://blog.youkuaiyun.com/u013511642/article/details/48916133

版权

该篇博客介绍了如何使用VBA从Excel表格中筛选出首列值为"B"的行，并将这些行的数据复制到一个新的二维数组中。通过遍历数组并使用条件判断，博主展示了如何创建和填充新数组，最后将结果粘贴到工作表的指定位置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub d1()
Dim arr, arr1(1 To 1000, 4)
arr = Range("a1:d10")
Dim x, k
For x = 1 To UBound(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)
    End If
Next x
    Range("a13").Resize(k, 5) = arr1
End Sub