前两天，一个朋友问我，有没有办法在excel里实现一个表单里是原始数据，在另一个表单里显示搜索到的行，搜索关键词可用~分隔开，并把搜索历史记录下来？
我想了想，用vba实现肯定可以啊，但是我又在想，有没有可能excel自身的功能就可以实现了呢，但是后来没有发现excel自带这种功能。于是思考自己用vba给实现吧。
于是我打开我的电脑，结果发现我的office版本是wps，根本就没有vba功能，网上说的使用vba模块安装，但是始终没有安装成功。最后放弃了，自己下载一个office2013, 自带vba功能。
其实搜索功能实现思路相当简单，无非就几个循环，把关键词分割出来循环，按行搜索循环，按列搜索循环，然后得到结果后，填充结果，对于历史记录，则需要得到最后一行的行号等。
附件已上传，可点击去下载： 跨表单搜索示例-2003.zip
http://files.cnblogs.com/files/yougewe/%E8%B7%A8%E8%A1%A8%E5%8D%95%E6%90%9C%E7%B4%A2%E7%A4%BA%E4%BE%8B-2003.zip
关键功能代码提示：
Sheets("原始数据").Range("A6").CurrentRegion '获取选择区域数据searchArr = Split(searchStr, "~") ' 分割关键词Range("A9:V" & Rows.Count).ClearContents ' 清空原有数据Sheets("搜索记录").Range("A65536").End(xlUp).Row '获取最大行的行号Sheets("搜索记录").Range("A" & maxRow).Resize(m, columnCount) = brr '数据填充实现代码如下：
Sub 点击搜索原始数据() Dim i&, j&, m&, c%, t$, columnCount Dim arr, brr(), searchArr()&n
延伸阅读
- ssh框架
2016-09-30
- 阿里移动安全 [无线安全]玩转无线电——不安全的蓝牙锁
2017-07-26
- 消息队列NetMQ 原理分析4-Socket、Session、Option和Pipe
2024-03-26
- Selective Search for Object Recognition 论文笔记【图片目标分割】
2017-07-26
- 词向量-LRWE模型-更好地识别反义词同义词
2017-07-26
- 从栈不平衡问题 理解 calling convention
2017-07-26
- php imagemagick 处理 图片剪切、压缩、合并、插入文本、背景色透明
2017-07-26
- Swift实现JSON转Model - HandyJSON使用讲解
2017-07-26
- 阿里移动安全 Android端恶意锁屏勒索应用分析
2017-07-26
- 集合结合数据结构来看看(二)
2017-07-26
学习是年轻人改变自己的最好方式