當前位置:成語大全網 - 書法字典 - 如何根據兩列的名稱和編號在excel中進行VB編程?

如何根據兩列的名稱和編號在excel中進行VB編程?

方法壹,使用公式

C2 =如果(B2 & lt;& gt""、IFERROR(VLOOKUP(B2,$B$1:C1,2,)、MAX($ C $ 1:C 1)+1)、IF(sum product(($ B $ 1:B 1 = " ")*(A $ 1:A 1 = A2))、MAX(($ B $ 1:B 655438

數組公式,Ctrl+Shift+Enter結束。拉下即可使用的

方法二:VBA

先看效果

把下面的代碼放到這個工作表中:(註意:Name1不能和Name2重名,否則可能導致排序錯誤,不應該有來自妳的名字)。

Sub?測試()

暗淡?d,?啊?rs,?我& amp,?k & amp,?m$,?n$,?x美元

設置?d?=?CreateObject(" scripting . dictionary ")

arr?=?[A2]。調整大小([A65536]。結束(3)。劃?-?1,?2)

rs?=?[C2]。調整大小([A65536]。結束(3)。劃?-?1,?1)

k?=?1

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

m?=?arr(我,?1)

n?=?arr(我,?2)

x?=?IIf(n?& lt& gt?"",?n,?m)

如果?不是嗎?d .存在(x)?然後

d(x)?=?k

rs(我,?1)?=?k

k?=?k?+?1

其他

rs(我,?1)?=?d .項目十

結束?如果

然後

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

[C2]。調整大小([A65536]。結束(3)。劃?-?1,?1)?=?同悅

結束?潛水艇