當前位置:成語大全網 - 書法字典 - 【VBA編程】將幾行相同值的數據合並成壹行。

【VBA編程】將幾行相同值的數據合並成壹行。

Sub?合並相似的項目()

暗淡?我& amp,?強生公司。,?啊?Brr,?Dic?作為?目標

設置?Dic?=?CreateObject("腳本。字典》)

Arr?=?範圍(單元格(1,“T”)、?單元格(行。數數,?“T”)。End(xlUp))

Brr?=?arrive)

雷迪姆?Brr(0?去哪?UBound(Arr)?-?1,?1?去哪?3)

為了什麽?我?=?1?去哪?欠奉

如果?不是嗎?Dic。存在(Arr(i,1))?然後

Dic(Arr(i,1))?=?Dic。數數

j?=?Dic(Arr(i,1))

Brr(j,?1)?=?Arr(我,?1):?Brr(j,?2)?=?細胞(我,?“AA”):?Brr(j,?3)?=?細胞(我,?“AB”)

其他

j?=?Dic(Arr(i,1))

Brr(j,?2)?=?Brr(j,?2)?& amp?","?& amp?細胞(我,?“AA”):?Brr(j,?3)?=?Brr(j,?3)?& amp?","?& amp?細胞(我,?“AB”)

結束?如果

下壹個?我

[AI1]。調整大小(Dic。數數,?3)?=?壓力感受器反射反應

設置?Dic?=?沒有任何東西

結束?潛水艇