函數(shù)法-365函數(shù)式編程用法
VBA法-數(shù)組字典組合實(shí)戰(zhàn)應(yīng)用
PQ法-PowerQuery中M函數(shù)輕松搞定
基礎(chǔ)技巧-多重透視表,小白0基礎(chǔ)可用
JSA法:WPS中JS編程寫(xiě)法
ETS法:Office最新編程語(yǔ)法,OfficeScript
▼格式化后的公式 =LET( _u, UNIQUE(TOCOL(A1:G15, 1)), VSTACK( {'名稱(chēng)', '出現(xiàn)次數(shù)'}, HSTACK( _u, MAP(_u, LAMBDA(x, SUM(N(A1:G15 = x)))) ) ) )
Option Explicit
'作者:E精精
'下載:公眾號(hào)-Excel辦公實(shí)戰(zhàn)
'功能:區(qū)域數(shù)據(jù)去重計(jì)數(shù)
'-----------------------------------------------------------
Sub 去重計(jì)數(shù)()
Dim dic As Object, arr, vItem As Variant
'字典
Set dic = VBA.CreateObject('scripting.dictionary')
'數(shù)據(jù)裝入數(shù)組
arr = Sheet2.Range('A1').CurrentRegion.Value
For Each vItem In arr
'不為空
If Len(vItem) > 0 Then
'相同內(nèi)容計(jì)數(shù)+1
dic(vItem) = dic(vItem) + 1
End If
Next
'輸出結(jié)果
With Sheet2
.[I1:J1] = [{'名稱(chēng)','次數(shù)'}]
.Range('I2').Resize(dic.Count, 2).Value = _
Application.Transpose(Array(dic.keys, dic.items))
End With
End Sub
06 - OFFICE-Script
上面用的是WPS中的JS學(xué)法,在office365中新增的TypeScript,我稱(chēng)之為T(mén)SA!之前我們寫(xiě)過(guò)一篇初體驗(yàn)(Office Script初體驗(yàn)!下一代辦公自動(dòng)化!)
今天我們通過(guò)這個(gè)案例,給大家寫(xiě)一下試試,我自己目前也只是寫(xiě)過(guò)一兩次,琢磨一下,應(yīng)該也能寫(xiě)出來(lái),走你……
▼ 動(dòng)畫(huà)演示
從今天的實(shí)戰(zhàn)來(lái)看,目前TSA目前支持到的ES版本沒(méi)有JSA高,比如數(shù)組flat方法目前還支持,更多方法有待測(cè)試,不過(guò)整體功能還是可以實(shí)現(xiàn)的!如果你可以寫(xiě)JSA,那么寫(xiě)TSA問(wèn)題也不會(huì)太大,我基本也是瞎摸索……新手~
等小編抽時(shí)間再琢磨琢磨,微軟也在更新中,完善一些,我們也會(huì)考慮加入到學(xué)習(xí)圈中更新這個(gè)系列,office更新什么,我們跟著時(shí)代給大家更新!
公眾號(hào)的朋友也不用擔(dān)心,我們陸續(xù)也會(huì)更新一部分!
聯(lián)系客服