A列最底端有資料的單元格[a65536].end(xlup).row如果是統計每列有多少非空單元格就要呼叫COUNTA函式方便些WorksheetFunction.CountA (Range("A:A"))

Sub ww()Dim i, j%For i = 1 To 3For j = 1 To 4If Sheet1.Cells(i, j) "" ThenSheet2.Cells(i, j) = Sheet1.Cells(i, j)End IfNextNextEnd Sub

有三種方法：

1、直接在Sheet2標籤上點右鍵，彈出的選單上面有個“隱藏”，點後就可以隱藏它了，想取消隱藏直接在其它工作表標籤上點右鍵——取消，選想取消隱藏的工作表即可。這種方法較方便，取消也方便。當然也可以保護工作薄讓人無法輕易取消隱藏。

2、可以用Alt+F11 開啟VBA編輯器，在左側上方，選中Sheet2，然後在左下方的屬性框內，將Visible（最下面）設成“0－XlsheetHidden”即第二個。也可以實現隱藏Sheet23、按Alt+F11 開啟VBA編輯器，在左側上方，選中ThisWorkBook，複製程式碼Private Sub Workbook_Open()Sheet2.Visible = xlSheetVeryHiddenEnd Sub到右邊空白處，儲存工作薄，重啟時啟用宏，也可以實現隱藏Sheet2的效果。

=SUMPRODUCT(N(A1:A10""))

意思是在A1至A10單元格中統計不為空值的單元格個數

(不包含假空單元格的個數)

=COUNT(A1:A10)

意思是在A1至A10單元格中統計數字單元格個數

=COUNTA(A1:A10)

意思是在A1至A10單元格中統計非空值的單元格個數(但包含假空單元格個數)

假空是指公式得出的空值,如=""這樣的值,是公式產生的結果,也就是說單元格有內容,但內容是公式得出的空值

真空單元格是指單元格沒有寫入任何內容,在編輯欄中看不到任何值和公式