用VBA代替VLOOKUP函数查找数据

zjwsm · 发表于 2023-11-12 13:28

本帖最后由 zjwsm 于 2023-11-12 13:35 编辑

我想用VBA代替VLOOKUP函数查找对应数据？

hourhand · 发表于 2023-11-12 14:43

本帖最后由 hourhand 于 2023-11-12 14:44 编辑

附件仅供参考。

ykcbf1100 · 发表于 2023-11-12 15:11

工作表事件

灵犀之声 · 发表于 2023-11-12 15:22

能用公式解决的，别去用VBA

ykcbf1100 · 发表于 2023-11-12 20:23

灵犀之声发表于 2023-11-12 15:22
能用公式解决的，别去用VBA

数据少时用公式没毛病，但如果数据多时，用VBA更快。

zhangcheng6688 · 发表于 2023-11-13 07:09

本帖最后由 zhangcheng6688 于 2023-11-13 07:19 编辑

练习一下

arr = Sheets("清单").[a2].CurrentRegion
s = Sheets("打印").[a2]
For i = 2 To UBound(arr)
If s = arr(i, 1) Then
   Sheets("打印").[c3] = arr(i, 1)
   Sheets("打印").[d3] = arr(i, 2)
   Sheets("打印").[c5] = arr(i, 3)
   Sheets("打印").[d5] = arr(i, 4)
   Sheets("打印").[c7] = arr(i, 5)
   Sheets("打印").[d7] = arr(i, 6)
   Exit Sub
End If
Next
Sheets("打印").[c3] = "无数据"
Sheets("打印").[d3] = "无数据"
Sheets("打印").[c5] = "无数据"
Sheets("打印").[d5] = "无数据"
Sheets("打印").[c7] = "无数据"
Sheets("打印").[d7] = "无数据"

680926 · 发表于 2023-11-13 08:10

Sub t()
Dim arr
Dim brr(1 To 6, 1 To 2)
arr = Sheets("清单").Range("a1").CurrentRegion
str1 = Sheets(1).Range("a2")
brr(1, 1) = arr(1, 1): brr(1, 2) = arr(1, 2)
brr(3, 1) = arr(1, 3): brr(3, 2) = arr(1, 4)
brr(5, 1) = arr(1, 5): brr(5, 2) = arr(1, 6)
For i = 2 To UBound(arr)
If arr(i, 1) = str1 Then
      brr(2, 1) = arr(i, 1): brr(2, 2) = arr(i, 2)
      brr(4, 1) = arr(i, 3): brr(4, 2) = arr(i, 4)
      brr(6, 1) = arr(i, 5): brr(6, 2) = arr(i, 6)
End If
Next
[g2].Resize(6, 2) = brr
End Sub

范子恒 · 发表于 2023-11-27 09:59

ykcbf1100 发表于 2023-11-12 15:11
工作表事件

麻烦您详细讲解一下每一个步骤，我用的时候总报错

七之月 · 发表于 2024-11-11 19:14

学习了 ,收藏.

yanglinzi · 发表于 2024-11-11 20:20

		自动登录	找回密码
密码			免费注册

[已解决] 用VBA代替VLOOKUP函数查找数据

评分