EXCELVBA統(tǒng)計(jì)個(gè)數(shù)？Sub統(tǒng)計(jì)()DimnandIntegern(Range(A:A),李強(qiáng))MsgBoxA列中李強(qiáng)的個(gè)數(shù)為：nEndSub以上為兩個(gè)簡(jiǎn)單的版本。下面是一個(gè)不依賴(lài)感工作表函數(shù)的版

EXCELVBA統(tǒng)計(jì)個(gè)數(shù)？

Sub統(tǒng)計(jì)()DimnandIntegern(Range(A:A),李強(qiáng))MsgBoxA列中李強(qiáng)的個(gè)數(shù)為：nEndSub

以上為兩個(gè)簡(jiǎn)單的版本。下面是一個(gè)不依賴(lài)感工作表函數(shù)的版本，即可做統(tǒng)計(jì)李強(qiáng)也可統(tǒng)計(jì)數(shù)據(jù)張三，而且會(huì)消掉首尾空格再都很的版本。這連個(gè)把按本都可以可以修改為Function。

Sub統(tǒng)計(jì)數(shù)據(jù)2()DimiandIntegerDimrandInteger,nlikeInteger Dim str,rngstr(prompt:請(qǐng)輸入輸入要在A列中統(tǒng)計(jì)的姓名:,Default:李強(qiáng),Type:2)strTrim(str) r Cells(,1).End(xlUp).RowrngRange(A1:Ar)Fori1didrIfTrim(rng(i,1))strThennn1NextiMsgBoxA列中str的個(gè)數(shù)為：nEndSub

vba 變量定義？

答：vba變量定義如下

VBA變量要貯放在某個(gè)位置，這個(gè)地方是模塊。有兩種基本都類(lèi)型的模塊：標(biāo)準(zhǔn)模塊和類(lèi)模塊。模塊中的每個(gè)過(guò)程可能會(huì)是函數(shù)過(guò)程，也可能會(huì)是子程序。

模塊：它是才是一個(gè)單元需要保存在一起的VBA定義和過(guò)程的集合。類(lèi)模塊：VBA不能你創(chuàng)建角色自己的對(duì)象，對(duì)象的定義真包含在類(lèi)模塊中。

你的大部分工作集中在一起在標(biāo)準(zhǔn)模塊中（簡(jiǎn)稱(chēng)為模塊）。當(dāng)錄制宏時(shí)要是不必然模塊，EXCEL會(huì)不自動(dòng)創(chuàng)建一個(gè)。EXCEL和VBA不如此關(guān)心代碼能保存在哪一個(gè)模塊中，只要你代碼必然于打開(kāi)的工作簿中表就行。

VBA編譯錯(cuò)誤這個(gè)怎么改？

答：錯(cuò)的，onkey是指禁重新指定鍵，或是更改按開(kāi)指定你鍵再一次發(fā)生特定的過(guò)程。Application.OnKey{space}的意思是修改密碼空格鍵，你的算法有問(wèn)題，你用我的方法通過(guò)替代，而且excel不支持什么鍵盤(pán)記錄你的操作。

再打開(kāi)VBA建立起一個(gè)模塊再輸入下面代碼就行了。

Subbb()Application.OnKey {f1},kwan當(dāng)按過(guò)f1鍵cha不運(yùn)行

EndSub

Submai()

a

b

Ifb2Anda1Then‘除B1外B列的任何一個(gè)單元格

MsgBox已按動(dòng)F1鍵，當(dāng)前活動(dòng)單元格位置為‘這里輸入你是需要正常運(yùn)行的過(guò)程

EndIf

EndSub

注意取一個(gè)你不需要的鍵作快鍵。

我這里是設(shè)備F1鍵。