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

说明（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), k4     arr = Range("a1:d5")5 '    MsgBox (UBound(arr))6 '    Stop7     For i = 1 To UBound(arr, 1)8         If arr(i, 1) = "虹虹" Then9             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

转载于:https://www.cnblogs.com/medik/p/10989733.html

VBA学习笔记（6）--抽取第一列中叫“虹虹”的个人信息相关推荐

VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接
VBA学习笔记1:将同个文件夹中的工作簿汇总为一个工作簿,并建立目录超链接 1.将文件夹中的xlsx文件名复制到新工作簿: 2.将文件夹中的xlsx数据簿中的sheet复制到新表并重命名: 3.插入超 ...
oracle复制另一个字段,【学习笔记】Oracle存储过程表中列不同时动态复制表中数据到另一个表中...
天萃荷净分享一篇关于Oracle存储过程实现表之间数据复制功能.两表中列不同,动态的将一表中的数据复制到另一个表中案例因为要用到回收站功能,删除一条记录,要先放到一个delete表中,以便以后恢复 ...
VBA学习笔记8：单元格的合并与拆分
VBA学习笔记8:单元格的合并与拆分如下图,需要实现1图到2图(单元格合并),或2图到1图(单元格拆分). 1图: 2图: 合并单元格代码如下: Sub 合并单元格()Dim k%, rng As ...
VBA学习笔记3：合并同一工作簿下的多个表格
VBA学习笔记3:合并同一工作簿下的多个表格 1.建立一个新的汇总表: 2.将其他sheet数据复制到汇总表中. 效果如下: 需要将3个sheet的表的数据汇总起来汇总后的数据: 代码如下: Sub ...
VBA学习笔记（9）--生成点拨（1）
VBA学习笔记(9)--生成点拨(1) 说明(2017.3.26): 1. 还没写完,写到新建文件夹了,下一步新建word,重命名,查找点拨,把点拨复制进去,因为要给点拨编号,应该会很麻烦 1 Pub ...
oracle update单引号,Oracle学习笔记：update的字段中包括单引号
平时update的时候直接更改字段内的值,例如: update table_temp set name = 'Hider' where id = 100; 但更新后的值中包括单引号,则不能按以上方式进 ...
Django：学习笔记(2)——创建第一个应用
Django:学习笔记(2)--创建第一个应用创建应用在 Django 中,每一个应用都是一个 Python 包,并且遵循着相同的约定.Django 自带一个工具,可以帮你生成应用的基础目录结构, ...
MySQL学习笔记（六）-MySQL中库和表的管理
MySQL学习笔记(六)-MySQL中库和表的管理作者:就叫易易好了日期:2020/11/23 1 2 DDL即数据定义语言创建:create 修改:alter 删除:drop 库和表的管理: ...
Hadoop学习笔记—13.分布式集群中节点的动态添加与下架
Hadoop学习笔记-13.分布式集群中节点的动态添加与下架开篇:在本笔记系列的第一篇中,我们介绍了如何搭建伪分布与分布模式的Hadoop集群.现在,我们来了解一下在一个Hadoop分布式集群中,如 ...
VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿
VBA学习笔记5:将同一工作簿的数据按照类别拆分为多个工作簿 1.对每行数据按照类别所在列进行循环,判断某类别的工作簿是否存在: 2.如果不存在,则新建工作簿并将该行数据复制粘贴: 3.如果存在则打开 ...

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

VBA学习笔记（6）--抽取第一列中叫“虹虹”的个人信息相关推荐

最新文章

热门文章