在VBA中实现VLOOKUP功能

lsc900707

很多表格都要用到这个函数呢，感觉是个好例子，下载学习先。

新兵小石蛋

初学者过来学习

九有先生

俺是个新手刚学VBA没多长时间，试着写了一个宏，能运行，就是扩展性差，要用到其他的数据上可能需要改里面的一些参数：
Sub tianchong()
    Dim a As Range, b As String, c As String
    b = Worksheets("筛选数据").Cells(1, "A").End(4).Row
    c = Worksheets("原始数据").Cells(1, "A").End(4).Row
    For j = 3 To b
    Set a = Worksheets("筛选数据").Cells(j, "B")
    For i = 3 To c
        If a.Value = Worksheets("原始数据").Cells(i, "B").Value Then
           a.Offset(0, 1).Value = Worksheets("原始数据").Cells(i, "B").Offset(0, 1)
           a.Offset(0, 2).Value = Worksheets("原始数据").Cells(i, "B").Offset(0, 2)
           a.Offset(0, 3).Value = Worksheets("原始数据").Cells(i, "B").Offset(0, 3)
           a.Offset(0, 4).Value = Worksheets("原始数据").Cells(i, "B").Offset(0, 4)
           a.Offset(0, 5).Value = Worksheets("原始数据").Cells(i, "B").Offset(0, 5)
           a.Offset(0, 6).Value = Worksheets("原始数据").Cells(i, "B").Offset(0, 6)
        End If
      Next
      Next
End Sub

wenwen000424

做个记号学习。

maxiaoan

非常好用，谢谢了

anthony850117

smhf_6 发表于 2010-12-27 17:48
修改一下，中午在单位里一直出问题，所以变通了一下，晚上回家一试，行了：
Sub xx()
Dim d As Object

谢谢老师，但是这个只能在excel03中用，麻烦能不能提供个excel07之后版本能用的？

smhf_6

1、如果你原来的格式没有变化，仅仅是数据量增加，则将65536改成1000000即可。
    其他没有什么变化

2，也有坛友提出用数组，是的，用数组要比直接操作单元格速度快
3，你说有20万条数据，这样似乎有点大，对EXCEL打开保存运行本身就有影响了。建议将原始数据统一存入D盘下的一个文本文件内，数据格式统一为：
邹中华|3501111956*********6|女|文化管理|四级|39981|飞龙镇洋中10号
庄文武|3501111956*********296|男|汉语言|三级|40009|飞龙镇北园村尚兵林20号
........
这样，这个工作簿就轻装上阵了。
要使用时，程序从文本中提取，然后通过数组转换到登记表中
这里涉及到1、原始数据的汇总处理、存档、添加、重置等工作，2、对数据的运用这二件事

smhf_6

这个 是根据excel2010写的, 虽然是2个工作簿,当然仍可以合并为一个工作簿.
如果楼主不想用D盘, 则C\E\F盘都可以修改
如果不想用文本存储,仍在表格中也可以

jsgj2023

占位学习。

kszcs

留下记号。谢谢