- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-8-7
  
|
dear all 大大
1.涵數大寫使用 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))要改甚????
煩不另賜教 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 |
|