- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
本帖最後由 starry1314 於 2015-10-12 09:33 編輯
功能：Ｄ欄內 不為【Ｌ。Ｐ。Ｔ。Ｑ。Ｉ】一律取代為Ａ
請問如何改為以陣列模式執行呢？ 因就算關閉螢幕刷新與自動計算，還是有點慢- Sub 代號替換()
- For I = 2 To 50000
- Ν = Range("d" & I)
- If Ν <> "L" And Ν <> "P" And Ν <> "T" And Ν <> "Q" And Ν <> "I" Then
- Range("D" & I) = "A"
- End If
- Next
- End Sub
|
|
發表於 2015-10-12 09:19
| 
