帖子: 44
主題: 22
精華: 0
積分: 79
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2011-1-22
最後登錄: 2017-5-9

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-12-4 23:26 | 只看該作者

[發問] 清除看不見的空格並參照

從系統下載檔案，
其中有幾個儲存格看似有空格，在討論區得到協助，建立如下VBA
For Each Rng In Selection
　Rng = Trim(Application.Clean(Rng))
　Next
先以clean再用trim來做刪除空格的整理，
但整理後仍無做開頭以1篩選的處理，
並用vlookup參照到此號碼
能否請看看是什麼狀況呢？

儲存格問題.rar (7.73 KB)

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

17^#

發表於 2015-12-7 10:48 | 只看該作者

本帖最後由 c_c_lai 於 2015-12-7 18:24 編輯

回復 15# paddyliu
另外，可以不用人工框選：

Sub 刪除空格2()
Dim Rng As Range
For Each Rng In sheet1.UsedRange
Rng = Trim(Application.Clean(Rng))
Next
End Sub
下載 (4.25 KB)

2015-12-7 18:24

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

16^#

發表於 2015-12-7 10:05 | 只看該作者

本帖最後由 c_c_lai 於 2015-12-7 10:54 編輯

回復 15# paddyliu

TOP

paddyliu

中學生 Rank: 2

帖子: 44
主題: 22
精華: 0
積分: 79
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2011-1-22
最後登錄: 2017-5-9

15^#

發表於 2015-12-7 00:05 | 只看該作者

請問是否要先把A欄選出來？若停留在其它儲存格執行VBA好像還是無法清除看不見的空格

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

14^#

發表於 2015-12-6 19:30 | 只看該作者

本帖最後由 yen956 於 2015-12-6 19:33 編輯

回復 13# c_c_lai
謝謝再三指導,
終於試出來了,
1. 勾選監視窗
2. 偵錯→新增監看式
3. 輸入運算式或欲檢測變數->按確認
4. F8
真心感謝c大大, thanks a lot!

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

13^#

發表於 2015-12-6 18:55 | 只看該作者

本帖最後由 c_c_lai 於 2015-12-6 18:57 編輯

回復 12# yen956
你可以一口氣連續 (點選欲偵測變數貨運算式(滑鼠右鍵)
->輸入運算式或欲檢測變數->按確認)
或分次輸入你要偵測的變數，或判斷，例如：
Asc(Mid(Rng, 1, 1)) '  檢查第一個字元值為何
Asc(Mid(Rng, 2, 1)) '  檢查第二個字元值為何
Asc(Mid(Rng, 3, 1)) '  檢查第三個字元值為何
Asc(Mid(Rng, 4, 1)) '  檢查第四個字元值為何
Asc(Mid(Rng, 5, 1)) '  檢查第五個字元值為何
Rng                            '  檢查 Rng 目前值為何
Mid(Rng, 4, 1)          '  檢查第四個字元為何
.
.
等等多項運算式監測。

TOP

yen956