tft每日頭條

 > 生活

 > excel取非重複值的vba代碼

excel取非重複值的vba代碼

生活 更新时间:2024-08-13 13:13:58
  • 系統環境:Windows 10
  • Excel:2016版本

本系列講講字典功能

今天講講字典鍵不能重複的特性


Part 1:應用場景
  1. 已知1列數據,想對其進行去重,如圖1所示

excel取非重複值的vba代碼(專項-字典-02-去重)1

圖1 去重


Part 2:邏輯過程
  1. 通過循環将源數據全部寫入字典的鍵,因為字典的是不能重複的,重複的值寫入,鍵本身不會發生變化
  2. 将字典的鍵取出來,放入表格中

Part 3:代碼

Sub test() Set d = CreateObject("Scripting.Dictionary") Set sht = ThisWorkbook.Worksheets("示例") maxRow = sht.Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To maxRow Step 1 x = sht.Cells(i, "A") d(x) = "" Next i rowNum = 2 For Each x In d.keys sht.Cells(rowNum, "C") = x rowNum = rowNum 1 Next End Sub

excel取非重複值的vba代碼(專項-字典-02-去重)2

圖2 代碼截圖

excel取非重複值的vba代碼(專項-字典-02-去重)3

圖3 執行結果

excel取非重複值的vba代碼(專項-字典-02-去重)4

圖4 字典數據結構


Part 4:部分代碼解讀
  1. d.keys 表示字典的所有鍵,字典内部結構:鍵:值

以上,為本次的介紹内容,下回見。

本文首發于Excel高效辦公之VBA。排版和細節略作修改,發于頭條

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关生活资讯推荐

热门生活资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved