| dear  all ¤j¤j 1.²[¼Æ¤j¼g¨Ï¥Î UPPER
 2.¹Ï¤@   If Sheet3.Cells(M, 4) Like "*" & "uball" & "*" Then  §Ú¥Î   If  UPPER(Sheet3.Cells(M, 4)) Like "*" & "uball" & "*" Then ¤£¯à¥Î
 2.1½Ð°ÝUPPER(Sheet3.Cells(M, 4))n§ï¬Æ????
 ·Ð¤£¥t½ç±Ð  THANS*10000
 
 ¹Ï¤@
 Sub ¼Ò«¬mod¦Û°Ê¤ñ¹ï4()
 Sheet6.Visible = True
 Sheet6.Select
 Range("L974").Select
 Sheet6.[O976:O985].ClearContents
 X = Sheet3.[D65536].End(xlUp).Row
 Y = 975
 For M = 1 To X
 If Sheet3.Cells(M, 4) Like "*" & "uball" & "*" Then
 Sheet6.Cells(Y + 1, 15) = Sheet3.Cells(M, 4)
 Y = Y + 1
 End If
 Next
 End Sub
 |