找對應字元問題

basarasy

請問大大有什麼方法可以找出A4:A10的資料內有 A1對應字元的就在B:B 出1.

GBKEE

回復 1# basarasy
b4=IF(ISERROR(FIND($A$1,A4)),"",1)  下拉

basarasy

回復 2# GBKEE


    謝謝大大.
但 B10沒有出1.

GBKEE

回復 3# basarasy
你是要找出A1隨意排列的文字嗎?
這考題有深度待我想想!!

GBKEE

自訂函數
1]請將程式碼,複製到Module一般模組中後,執行Sub Ex
2工作表 B4  =WordCheck($A$1,A4) 下拉

1. Sub Ex()
   
2. Application.MacroOptions Macro:="WordCheck", Description:="W1 要比對的字元 ,W2 被比對的字元"
   
3. End Sub
   
4. Function WordCheck(W1 As String, W2 As String)
   
5.     'W1 要比對的字元  'W2 被比對的字元
   
6.     Dim i As Integer, Ar()
   
7.     ReDim Ar(1 To Len(W1))
   
8.     For i = 1 To Len(W1)
   
9.         If IsError(Application.Find(Mid(W1, i, 1), W2)) Then
   
10.             WordCheck = ""
    
11.             Exit Function
    
12.         Else
    
13.             Ar(i) = Application.Find(Mid(W1, i, 1), W2)
    
14.         End If
    
15.     Next
    
16.     If Application.Max(Ar) - Application.Min(Ar) <> Len(W1) - 1 Then
    
17.             WordCheck = ""
    
18.             Exit Function
    
19.     End If
    
20.     WordCheck = 1
    
21. End Function

複製代碼

basarasy

回復 5# GBKEE
謝謝GBKEE大大.
這個自訂函數太強大了.