- 帖子
- 82
- 主題
- 7
- 精華
- 0
- 積分
- 112
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- WIN7
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-3
- 最後登錄
- 2020-9-21
|
你可能要把範例檔案放上來大家比較好觀察你要的程序指令
一開始你第一次貼的那個應該是用巨集錄製的 才會有這麼多不需要的指令
If Range("a" & i).Value <> "(元,股)" Then
Else
Rows(i).Delete Shift:=xlUp
End If
這段我有點不懂耶 你的Then 並不執行判斷後動作?
你這段的意思不是就等於
If Range("a" & i).Value <> "(元,股)" Then
'要做什麼?
Else '(不然要做以下動作)
Rows(i).Delete Shift:=xlUp
End If |
|
發表於 2013-7-4 13:21
| 