- 帖子
- 12
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- Xp
- 閱讀權限
- 20
- 註冊時間
- 2017-12-26
- 最後登錄
- 2019-5-21
|
回復 1# ychuang
Public Sub instr_()
Dim str1 As String
str1 = "don't"
For Row = 1 To 10
For col = 1 To 10
If (InStr(1, Cells(Row, col), str1)) Then
Range(Cells(Row, col), Cells(Row, col)).Select
End If
Next
Next
End Sub
|
|
發表於 2017-12-27 23:57
| 