软体:Excel
版本:2007
从系统下载档案，
其中有几个储存格看似有空格，
For Each Rng In Selection
Rng.Value = Application.WorksheetFunction.Clean(Trim(Rng.Value))
Next Rng
Columns("A:D").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
先以clean再用trim来做删除空格的整理，
但整理後仍无做开头以1筛选的处理，
档案连结，A2储存格
https://drive.google.com/file/d/0B6ayWCNy9KtIbzNvRkRtbk13Z1E/view?usp=sharing
请协助看是什麽情况呢？
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.228.226.113
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1448387477.A.7F7.html
1F：→ soyoso: 储存格内除空格外还有无法辨示字元，可先用工作表函数 11/25 07:29
2F：→ soyoso: clean，再以trim或replace删除空格 11/25 07:31
3F：→ paces: So大，依您的建议修改如上仍无法筛选出来，求教是何原因？ 11/25 22:58
4F：→ soyoso: Strg是什麽？原文内并无说明 11/25 23:13
5F：→ paces: 不好意思，已更改如上~求教 11/25 23:39
6F：→ soyoso: clean那一列改为储存格=applicatio.worksheetfunction... 11/26 00:01
7F：→ soyoso: trim内也为储存格 11/26 00:01
8F：→ soyoso: 测试可以1筛选，如多笔请设回圈 11/26 00:02
9F：→ soyoso: 如是系统转出都会有无法辨示字元的话，也可用 11/26 00:07
10F：→ soyoso: range.replace取代，what以left(储存格,1)来抓，同取代空 11/26 00:11
11F：→ soyoso: 格，就可不用回圈 11/26 00:11
※ 编辑: paces (114.45.112.11), 11/26/2015 00:50:57
12F：→ paces: 我确实是A栏有多笔资料有此种状况，故依So大所说加入回圈 11/26 00:53
13F：→ paces: 但速度慢到在打转，是否内容有误？ 11/26 00:54
14F：→ soyoso: 那以range.replace的方式取代 11/26 00:55