首页 > 编程语言 > 详细

VBA学习笔记(6)--抽取第一列中叫“虹虹”的个人信息

时间:2019-06-08 00:59:48      阅读:143      评论:0      收藏:0      [点我收藏+]

说明(2017.3.25):

1. 知识点为dim arr2(1 to 1000, 1 to 4)先定义一个足够大的二维数组,不然后面需要transpose转置成一维数组。

技术分享图片

技术分享图片
 1 ‘抽取列表中叫“虹虹”的所有信息,设置arr2数组1到1000,可以省略转置步骤
 2 Public Sub test1()
 3     Dim arr, arr2(1 To 1000, 1 To 4), k
 4     arr = Range("a1:d5")
 5 ‘    MsgBox (UBound(arr))
 6 ‘    Stop
 7     For i = 1 To UBound(arr, 1)
 8         If arr(i, 1) = "虹虹" Then
 9             k = k + 1
10             arr2(k, 1) = arr(i, 1)
11             arr2(k, 2) = arr(i, 2)
12             arr2(k, 3) = arr(i, 3)
13             arr2(k, 4) = arr(i, 4)
14             Cells(i, 5) = "这个"
15         End If
16     Next
17     Range("a" & (2 + i)).Resize(k, 4) = arr2
18 End Sub

VBA学习笔记(6)--抽取第一列中叫“虹虹”的个人信息

原文:https://www.cnblogs.com/medik/p/10989733.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!