在VBA裡面，可以使用VarType獲得變數以及單元格的資料型別，數值型別值為5（vbDouble）、空型別為0（vbEmpty）、字串型別為8（vbString ）。

例子程式碼1：顯示A1單元格的資料型別

Sub test() MsgBox VarType([a1])End Sub

例子程式碼2：判斷A1單元格資料型別是否數值

Sub test() If VarType([a1]) = vbDouble Then MsgBox "A1是數值型別" Else MsgBox "A1不是數值型別" End IfEnd Sub

實際上VB還有vbLong、vbDecimal等型別，但單元格為數值時預設是vbDouble。

Private Sub Text1_Change()

If Text1 <> "" Then

Command1.Enabled = True

Else

Command1.Enabled = False

End If

End Sub

vb中如何判斷excel單元格為空

while 迴圈前將n=1，cells(n,1)後加.value

Private Sub Command1_Click()

Set objexcel = CreateObject("Excel.application")

Set objworkBook = objexcel.Workbooks.Open("d:\k.xls", 3, False)

Set ExcelSheet = objworkBook.Worksheets(1)

objexcel.Visible = ture

以下三行是想如果單元格不為空就讓變數n加1。

n=1"需要指定n的初始值，否則n為空值，下面的語句將錯誤。

Do While ExcelSheet.cells(n, 1).value