mmggmm

GBKEE :
謝謝,請問H3:AL400內如是空格亦保留,請問如何?

GBKEE

回復 11# mmggmm

1. Sub Ex()
   
2.     Dim Ay(1), Y As Integer, A As Range
   
3.     With Sheets("POSIT")
   
4.         Ay(0) = Application.Transpose(.Range("P2:P" & .Range("P" & Rows.Count).End(xlUp).Row))
   
5.         Ay(1) = Application.Transpose(.Range("Q2:Q" & .Range("O" & Rows.Count).End(xlUp).Row))
   
6.     End With
   
7.     For Each A In ActiveSheet.[H3:AL400]
   
8.         If A <> "" Then
   
9.             Y = Application.Match(A, Ay(0), 0)
   
10.             If IsError(Y) Then
    
11.                 A.Value = "X"
    
12.             ElseIf Y > 0 Then
    
13.                 If (Y <= 14 Or Y >= 24) And Cells(A.Row, "G") = Ay(1)(Y) Then A.Value = "X"
    
14.             End If
    
15.         End If
    
16.     Next
    
17. End Sub

複製代碼

mmggmm

下載 (18.29 KB)

2011-7-4 22:21

下載 (43.8 KB)

2011-7-4 22:22

GBKEE :執行後現以上情況

GBKEE

回復 13# mmggmm
Dim Ay(1), Y As Integer, A As Range
Y為數字型態是Integer
Y不為數字則傳回 錯誤值 "#NA"
固須改為   As Variantr 沒被明確宣告為其他型態

mmggmm

GBKEE :
   請問As Variantr 和 As Variant 有何分別因為改為 As Variant 就ok了

GBKEE

回復 15# mmggmm
更正是 As Variant 不是  As Variantr  是我不太用心!!  
PS:感謝 oobird 版主指正