想利用VB做一个查询拆分数据的，有没有高手

107976422 · 发表于 2020-1-9 17:32

VB能实现这样吗？已付件。有没有高手。我是小白不会

tptopy · 发表于 2020-1-9 19:32

是这个意思吗？

107976422 · 发表于 2020-1-9 20:13

tptopy 发表于 2020-1-9 19:32
是这个意思吗？

是这样，谢谢啊、

Sub find()
Set d = CreateObject("scripting.dictionary")
ar = Sheet1.[a1].CurrentRegion
br = Sheet2.[a1].CurrentRegion
For i = 2 To UBound(ar)
  d(ar(i, 2)) = ""
Next
k1 = 2
k2 = 2
For i = 2 To UBound(br)
If d.exists(br(i, 2)) Then
   Sheet3.Cells(k1, 1) = br(i, 1)
   Sheet3.Cells(k1, 2) = br(i, 2)
   k1 = k1 + 1
Else
Sheet4.Cells(k2, 1) = br(i, 1)
Sheet4.Cells(k2, 2) = br(i, 2)
   k2 = k2 + 1
End If
Next
End Sub

这个能解析一下代码意思嘛

tptopy · 发表于 2020-1-10 08:47

107976422 发表于 2020-1-9 20:13
是这样，谢谢啊、

Sub find()

几句话说不清的，你自己查阅一下有关字典的内容。

petergaod · 发表于 2020-1-10 09:29

字典。。。。。。。

varytina · 发表于 2020-1-10 09:57

inner，left，right 跟快吧，数据量大了以后字典速度可能会慢一些，个人感觉

107976422 · 发表于 2020-1-10 14:47

varytina 发表于 2020-1-10 09:57
inner，left，right 跟快吧，数据量大了以后字典速度可能会慢一些，个人感觉

可以帮忙修改一下附件嘛？查询一次自动更新一次那种最好

107976422 · 发表于 2020-1-12 08:10

tptopy 发表于 2020-1-10 08:47
几句话说不清的，你自己查阅一下有关字典的内容。

可以在帮忙修改一下嘛、右边在加3栏，根据前面的名字的工资，查询拆分后也会自动跟着走的那种

micch · 发表于 2020-1-12 09:16

如果你能看懂代码，直接改改就行，要不就上个新的附件，其实在表2里加一列判断是否在表1，直接透视表就出来结果了

107976422 · 发表于 2020-1-12 11:04

本帖最后由 107976422 于 2020-1-12 11:17 编辑

micch 发表于 2020-1-12 09:16
如果你能看懂代码，直接改改就行，要不就上个新的附件，其实在表2里加一列判断是否在表1，直接透视表就出来 ...

可以帮忙修改一下吗。谢谢

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

[求助] 想利用VB做一个查询拆分数据的，有没有高手

评分

评分