年终汇报数据 | WPS表格——VBA系列之Scripting.Dictionary应用案例

⭐场景：Scripting.Dictionary的具体应用。

📢具体要求：2026年公司员工的姓名以及要发的奖金如下："张三",1000;"李四",2000;"王五",1000;"赵六",500;"何七",3000;"刘八",800;"杨九",650;"闫十",300;"江虎一",4800;"姜龙一",3200。使用VBA生成对应的表格。

📌说明：本文属于基础知识的应用，建议高手大神可以直接跳过忽略。

步骤1：先打开WPS软件，新建一份表格，并输入相应的内容。如下图所示：我们来实际操作一下。

步骤2：点击【工具】，【开发工具】，【查看代码】，然后点击【插入】，【模块】，然后输入具体代码，如下所示：

Option Explicit

Sub test()

Dim d As Object

Set d = CreateObject("Scripting.Dictionary")

d.Add "张三", 1000

d.Add "李四", 2000

d.Add "王五", 1000

d.Add "赵六", 500

d.Add "何七", 3000

d.Add "刘八", 800

d.Add "杨九", 650

d.Add "闫十", 300

d.Add "江虎一", 4800

d.Add "姜龙一", 3200

Dim i As Variant

Dim j As Variant

i = d.keys

j = d.items

Range("A2").Resize(d.Count, 1).Value = Application.WorksheetFunction.Transpose(i)

Range("B2").Resize(d.Count, 1).Value = Application.WorksheetFunction.Transpose(j)

With Range("A2").Resize(d.Count, 2)

.Borders.LineStyle = xlContinuous

.Font.Color = RGB(255, 0, 0)

.Font.Bold = True

.Interior.Color = vbYellow

End With

End Sub

然后点击【运行】，就可以得到所要的结果。如下所示：

以上就是今天要分享的内容，欢迎大家评论区留言，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!