帮忙看看，用ＶＢＡ选择性提取数据代码咋写？

厦门行 · 发表于 2023-2-11 16:45

　　　因数据量大，用函数慢，想用ＶＢＡ做一下，在网上找了几个代码，可本人水平太差，无法按需求改动，麻烦高手看看，可否实现？

　即按照固定资产编码，在数据源中查找部分需要的信息，设点模块，点一下，即可提取

iu950 · 发表于 2023-2-11 17:38

附件供参考......

杨建营 · 发表于 2023-2-11 17:46

请楼主参考，解压使用。

sxbjzjf110 · 发表于 2023-2-11 17:59

明天会更好zj · 发表于 2023-2-11 18:02

Sub tt()
Dim Rng As Range

Sheets(2).Range("b2:d100000").ClearContents
For i = 2 To Sheets(2).[a65536].End(3).Row
Set Rng = Sheets(1).Columns("a:a").Find(Sheets(2).Cells(i, 1))
If Not Rng Is Nothing Then
      Sheets(2).Cells(i, 2) = Rng.Offset(0, 1)
      Sheets(2).Cells(i, 3) = Rng.Offset(0, 4)
      Sheets(2).Cells(i, 4) = Rng.Offset(0, 5)
      Sheets(2).Cells(i, 5) = Rng.Offset(0, 8)
End If
Next
End Sub

sxbjzjf110 · 发表于 2023-2-11 18:03

参与一下，看是否符合要求。

幼稚园儿童 · 发表于 2023-2-11 20:40

本帖最后由幼稚园儿童于 2023-2-11 20:47 编辑

新人练下手

tanglf188 · 发表于 2023-2-11 21:26

字典练手，请测试

厦门行 · 发表于 2023-2-12 10:48

谢谢，好好学习各位的代码

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

[求助] 帮忙看看，用ＶＢＡ选择性提取数据代码咋写？