作者：绿色风
分类：
时间：2022-08-18
浏览：92
楼主
xmyjk |
Q：SHEET4表中为外部获取的一些最新的数据，如何以其股票代码为关键字，匹配SHEET1的股票代码进行导入，导入关键字段要有股票名称和净利润。
A：- Option Explicit
- Sub test1()
- Dim i As Integer, n As Integer, arr()
- Dim d, k, t, ds, x
- Set d = CreateObject("Scripting.Dictionary")
- Set ds = CreateObject("Scripting.Dictionary")
- n = Sheet1.[b65536].End(3).Row
- arr = Sheet1.Range("b3:f" & n)
- For i = 1 To UBound(arr)
- d(arr(i, 1)) = ""
- ds(arr(i, 1)) = arr(i, 2)
- Next
- Erase arr
- n = Sheet4.[a65536].End(3).Row
- arr = Sheet4.Range("a2:e" & n)
- For i = 1 To UBound(arr)
- d(arr(i, 1)) = arr(i, 5) / 10000
- ds(arr(i, 1)) = arr(i, 2)
- Next
- k = d.keys
- t = d.items
- x = ds.items
- Sheet1.[b3].Resize(d.Count, 1) = Application.Transpose(k)
- Sheet1.[f3].Resize(d.Count, 1) = Application.Transpose(t)
- Sheet1.[c3].Resize(d.Count, 1) = Application.Transpose(x)
- Set d = Nothing
- Set ds = Nothing
- Erase k, t, x, arr
- End Sub
 沪深两市近八季度个股净利润数值表.rar
|
2楼
い卋玑┾宝珼 |
妃真棒
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一