Excel是眾所周知的一種強(qiáng)大的數(shù)據(jù)處理軟件，它可以通過內(nèi)置的VBA編程實(shí)現(xiàn)各類操作。今天，我們將為大家介紹如何使用VBA編程來求Excel區(qū)域中非空單元格的數(shù)量。打開含有數(shù)據(jù)的Excel表格首先，我

Excel是眾所周知的一種強(qiáng)大的數(shù)據(jù)處理軟件，它可以通過內(nèi)置的VBA編程實(shí)現(xiàn)各類操作。今天，我們將為大家介紹如何使用VBA編程來求Excel區(qū)域中非空單元格的數(shù)量。

打開含有數(shù)據(jù)的Excel表格

首先，我們需要打開一個(gè)含有數(shù)據(jù)的Excel表格，如下圖所示。在這里，我們將以該工作表為例，演示如何求出所有非空單元格的個(gè)數(shù)。

點(diǎn)擊“開發(fā)工具”選項(xiàng)卡中的“Visual Basic”

接下來，我們需要點(diǎn)擊Excel的“開發(fā)工具”選項(xiàng)卡中的“Visual Basic”按鈕，如下圖所示。這將會打開一個(gè)新的窗口，進(jìn)入到VBA編輯界面。

輸入VBA代碼

在打開的VBA編輯界面中，我們需要先點(diǎn)擊左側(cè)數(shù)據(jù)所在工作表，然后在右側(cè)彈出的代碼編輯區(qū)中輸入以下代碼：

Sub 魚木混豬()

For Each r In UsedRange

If r <> "" Then k k 1

Next

MsgBox k

End Sub

如下圖所示。

這段代碼使用了一個(gè)For循環(huán)，遍歷Excel表格中的每一個(gè)單元格。當(dāng)單元格不為空時(shí)，就將計(jì)數(shù)器k加1。最后，我們使用MsgBox函數(shù)將計(jì)數(shù)器k的值輸出到屏幕上。

運(yùn)行VBA代碼

完成上述代碼的輸入之后，我們需要點(diǎn)擊代碼中的任意位置，然后再點(diǎn)擊上方的“運(yùn)行子程序”按鈕，如下圖所示。

這樣，就會在Excel中顯示當(dāng)前工作表中所有非空單元格的個(gè)數(shù)，如下圖所示。

總結(jié)

本文向大家介紹了如何使用VBA編程來求Excel中非空單元格的數(shù)量。通過編寫簡單的VBA代碼，我們能夠通過快捷而高效的方式獲取到Excel工作表中所有非空單元格的個(gè)數(shù)，提高了工作效率。