请问高手如何提高脚本运算速度

边缘码农

1. Sub Vlookup()
   
2.     '--------------------------
   
3.     ' 定义变量
   
4.     Dim i%, r%, L, S
   
5.     Dim sh1 As Worksheet
   
6.     Dim sh2 As Worksheet
   
7.     Dim Sh1ColList As String
   
8.     Dim Sh2ColList As String
   
9.     Dim X As Long
   
10.     '----------------------------
    
11.     Application.ScreenUpdating = False
    
12.     On Error Resume Next
    
13.     '从“列表”工作表中取数的列次
    
14.     Sh1ColList = "4,5,6,7,8,9,10,16,17,20,21,22,23"
    
15.     '写到“筛选”工作表的对应列次
    
16.     Sh2ColList = "17,18,19,20,21,22,23,24,25,26,27,28,29"
    
17.     Set sh1 = ThisWorkbook.Sheets("列表")
    
18.     Set sh2 = ThisWorkbook.Sheets("筛选")
    
19.     r = sh1.Range("A65536").End(xlUp).Row '列表已使用行数
    
20.     i = sh2.Range("A65536").End(xlUp).Row '筛选已使用行数
    
21.     ' 将 列表 工作表的数据导入数组
    
22.     With sh1
    
23.         MaxCol = .Cells(1, .Columns.Count).End(xlToLeft).Column '第1行最后一列
    
24.         MaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row '第1列最后一行
    
25.         sh1arr = .Range(.Cells(1, 1), .Cells(MaxRow, MaxCol)).Value
    
26.     End With
    
27.     ' 整理 筛选 工作表，删除部分数据
    
28.     sh2.Range("Q3:AC" & i).ClearContents
    
29.     sh2.[Q3:AC3] = Split("最新,涨幅,换手,量比,DDX,DDY,DDZ,BBD,单比,特差,大差,中差,小差", ",")
    
30.     ' 将 筛选 工作表的数据导入数组
    
31.     With sh2
    
32.         MaxCol = .Cells(3, .Columns.Count).End(xlToLeft).Column '第1行最后一列
    
33.         MaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row '第1列最后一行
    
34.         sh2arr = .Range(.Cells(4, 1), .Cells(MaxRow, MaxCol)).Value
    
35.     End With
    
36.     '将“列表”工作表和“筛选”工作表相对应的列次分割到数组中
    
37.     sh1colarr = Split(Sh1ColList, ",")
    
38.     sh2colarr = Split(Sh2ColList, ",")
    
39.     ' 按照 筛选 数组的成员数进行循环（不包含标题，从1开始）
    
40.     For S = 1 To UBound(sh2arr)
    
41.         ' 按照 列表 数组的成员数进行循环（包含标题，从2开始）
    
42.         For L = 2 To UBound(sh1arr)
    
43.             '判断两个数组的股票代码是否一致
    
44.             If sh2arr(S, 1) = sh1arr(L, 1) Then
    
45.                 '一致时，将列表中的相应列次的数据写入到筛选工作表数组中
    
46.                 For X = 0 To UBound(sh1colarr)
    
47.                     sh2arr(S, sh2colarr(X)) = sh1arr(L, sh1colarr(X))
    
48.                 Next
    
49.                 Exit For
    
50.             End If
    
51.         Next
    
52.     Next
    
53.     '将处理后的数组内容写入到 筛选 工作表中
    
54.     sh2.Range("A4").Resize(UBound(sh2arr, 1), UBound(sh2arr, 2)).Value = sh2arr
    
55.     Application.ScreenUpdating = True
    
56. End Sub

复制代码

边缘码农

代码回复需要审核。

边缘码农

截图也需要审核。

莫悠悠

边缘码农 发表于 2024-6-1 16:25
代码回复需要审核。

非常感谢，谢谢解释这么清晰，认真学习一下字典和数组（对这个一直都是懵逼得很）

yynrzwh

嵌套字典+数组 VLOOKUP求助.zip (58.56 KB, 下载次数: 4)

2024-6-2 11:20 上传

点击文件名下载附件

莫悠悠

边缘码农 发表于 2024-6-1 16:25

非常强大，我原来的脚本要花10几秒的时间，您这个脚本1秒不到就出结果，要向各位大佬学习

莫悠悠

yynrzwh 发表于 2024-6-2 11:20
嵌套字典+数组

将您的脚本放入原文件执行，出现类型不匹配提示，运行错误”13“

yynrzwh

应该是股票代码数据类型的问题

莫悠悠

边缘码农 发表于 2024-6-1 16:25

有个问题是执行添加数据后筛选里的股票代码会数值化，如000037会转为37

边缘码农

莫悠悠 发表于 2024-6-2 12:53
有个问题是执行添加数据后筛选里的股票代码会数值化，如000037会转为37

我在测试中也有这个问题，两个工作表中涉及到股票代码的列，先设置成文本格式试试。