Sub test1()
Dim max_row As Integer
Dim i As Integer
Calculate '重算所有儲存格
max_row = Sheets("contorl").Cells(Rows.Count, 2).End(xlUp).Row '獲取B欄最後一格的位置(第幾位)
For i = 2 To max_row
If Not IsError(Range("N" & i)) Then error_var = i '取得第一個碰到是NA的格子
Next i
Debug.Print "出現na位置"; error_var; "總行數"; max_row
End Sub
'這裡的If Not IsError(Range("N" & i)) Then error_var = i '取得第一個碰到是NA的格子
'照我理解應該要是If IsError(Range("N" & i)) Then error_var = i 才是有碰到NA把位置I寫進error_var裡
'但實際執行卻是If Not IsError(Range("N" & i)) Then error_var = i 才會把碰到的NA寫進error_var裡
;==================我是分格線====================
Sub test2()
Dim max_row As Integer
Dim i As Integer
Calculate '重算所有儲存格
max_row = Sheets("contorl").Cells(Rows.Count, 2).End(xlUp).Row '獲取最後一格的位置(第幾位)
For i = 2 To max_row
If Range("N" & i) = "E2" Then error_var = i '取得第一個碰到是E2的格子
Next i
Debug.Print error_var
End Sub
以上的巨集下面這句會報 "執行階段錯誤 '13': 型態不符合"
If Range("N" & i) = "E2" Then
請問應該如何修改
發表於 2021-12-14 20:05
| 
發表於 2021-12-14 22:36
| 
