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 |