[已解决]EXCEL VBA提取数据

lijian8003

EXCEL VBA提取数据
数据2是数据1一列中的一个，找出这个数据所在的位置，取该位置的上下单元格数据即 if 函数 转化为VBA
比如：
若数据2的A1=数据1的A5，则提取数据1的A4 A6，写入数据3的A1 A2
若数据2的B1=数据1的B5，则提取数据1的B4 B6，写入数据3的B1 B2
若数据2的C1=数据1的C1，则提取数据1的C2，写入数据3的C1
若数据2的D1=数据1的D21，则提取数据1的D20，写入数据3的D1
......
数据1 数据2 共有7315列
数据1各列数据行数不一
这样的VBA如何写？

最佳答案

月排行榜 / 总排行榜

tinytiger

2016-11-7 15:48

写了一个，你看合不合适

跳转到最佳答案楼层

tinytiger

数据1和数据2之间看不出什么关联和规律，没法写

lijian8003

tinytiger 发表于 2016-11-7 15:01
数据1和数据2之间看不出什么关联和规律，没法写

数据2是数据1一列中的一个，找出这个数据所在的位置，取该位置的上下单元格数据

tinytiger

写了一个，你看合不合适

tinytiger

lijian8003 发表于 2016-11-7 15:22
数据2是数据1一列中的一个，找出这个数据所在的位置，取该位置的上下单元格数据

这么表达，多清楚明了

lijian8003

tinytiger 发表于 2016-11-7 15:48
写了一个，你看合不合适

谢谢！满足需求。

tinytiger

lijian8003 发表于 2016-11-7 16:23
谢谢！满足需求。

稍微改进了一下，防止行数多于32768时出错

wangez

谢谢分享！