GBKEE

回復 1# ii31sakura
   

如果想要新開一個分頁去Run 程式碼" 異常批統計_1判定，它都不會去理小弟、動也不動…(例：附件中的分頁"總控制")

例：附件中的分頁"總控制"

1. Public Sub 異常批統計_1判定()
   
2. Dim ARR
   
3. Dim ARR1
   
4. Dim arr2
   
5. Dim arr3 'test
   
6. Dim arr4 ' test1
   
7. Dim c As Integer
   
8.     MsgBox [h65536].End(3).Row
   
9.     For i = 2 To [h65536].End(3).Row  
   
10.     ' *** 當[h65536].End(3).Row  小於 2 這 For的迴圈是不會執行的 ***
    
11.     Set findvalue = Worksheets("批異常Data").Columns("O").Find(What:=Worksheets("異常批統計").Cells(i, 8))
    
12.    
    
13.     If findvalue.Row = 1 Then

複製代碼