[算表] 請教一個篩選的問題

看板Office作者 (bless)時間10年前 (2015/05/31 15:07), 10年前編輯推噓0(0011)
留言11則, 2人參與, 最新討論串1/1
軟體:office 版本:2007 A列 2000 1000 2000A 1000A 當處于篩選模式,輸入2000,2000和2000A都被篩選出來,請問該如何操作? 我自己試了一下把A列全部轉換成文本格式,但是沒有成功. 如何把A列變成文本,如何給單元格是數字,左上角會帶綠標那種 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.38.52.136 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1433056047.A.9FC.html ※ 編輯: yyingx (27.38.52.136), 05/31/2015 16:41:19

05/31 16:44, , 1F
https://goo.gl/zunVJS 開始於2000 或 等於2000
05/31 16:44, 1F

05/31 16:50, , 2F
篩選不了,我想把數字變成左上角帶綠標那種文本格式
05/31 16:50, 2F

05/31 16:51, , 3F
請問如何寫個代碼呢,就是A列所用單元格加上"'"
05/31 16:51, 3F

05/31 16:52, , 4F
代碼是指?巨集嗎?
05/31 16:52, 4F

05/31 16:55, , 5F
另外原po提到篩選不了,如連結內的圖片,就是用開始於2000
05/31 16:55, 5F

05/31 16:55, , 6F
或 等於2000,而篩選出2000和2000A
05/31 16:55, 6F

05/31 16:56, , 7F
是的,寫一個轉換巨集,簡單的講我在A列單元格都加上"'"
05/31 16:56, 7F

05/31 17:01, , 8F
迴圈for..next,for each...next配合連結符號&來合併
05/31 17:01, 8F
So大請看回圈,感覺太慢了,有啥好的方法和建議嗎? Sub 轉換文本() Dim i As Integer a = [e65536].End(3).Row Range("e4", Range("e" & a)).NumberFormat = "@" For i = 4 To a Range("e" & i) = Format(Range("e" & i), "0") Next End Sub ※ 編輯: yyingx (27.38.52.136), 05/31/2015 17:35:36

05/31 17:45, , 9F
我想縮小范圍,就是當El列是數字就這樣轉換,非數字就不用了
05/31 17:45, 9F

05/31 17:46, , 10F
因為E列數字畢竟占小部分,這樣巨集運行起來會不會快些
05/31 17:46, 10F

05/31 18:22, , 11F
range.specialcells有常數(數字),可以縮小範圍
05/31 18:22, 11F
文章代碼(AID): #1LQhCldy (Office)
文章代碼(AID): #1LQhCldy (Office)