清除看不見的空格並參照 - Excel程式區

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

8^# 跳轉到 »

發表於 2015-12-6 17:53 | 只看該作者

回復 6# yen956

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

7^#

發表於 2015-12-6 17:27 | 只看該作者

回復 6# yen956
如圖說明，應該明瞭了吧！

yen956

高中生 Rank: 3 Rank: 3

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

6^#

發表於 2015-12-6 14:43 | 只看該作者

回復 3# c_c_lai
請問大大:
要怎樣設定才能使監看視窗有作用?謝謝!!
如下圖:

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

5^#

發表於 2015-12-5 11:44 | 只看該作者

本帖最後由 c_c_lai 於 2015-12-5 11:49 編輯

回復 4# 准提部林
沒錯！我是直接使用他的原始程式去偵測，
沒留意到變數未加事前宣告，剛才我
自行再寫一個測試碼，如您的加上變數
宣告，正吶悶為何又 Pass了，謝謝您提醒！

Sub 刪除空格()
Dim Rng As Range
For Each Rng In Selection
' If Not IsError(Rng) Then
Rng = Trim(Application.Clean(Rng))
' End If
Next
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

4^#

發表於 2015-12-5 11:28 | 只看該作者

回復 3# c_c_lai

第一個隱藏字元CODE=12, 是可以CLEAN去除,
原因是Rng未定義為Range物件, 轉換後值只留在[變數], 而不是取代儲存格的值~~

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

3^#

發表於 2015-12-5 09:56 | 只看該作者

本帖最後由 c_c_lai 於 2015-12-5 09:59 編輯

回復 1# paddyliu
回復 2# 准提部林

你可用其他函式將小於33以下的字元去除掉，
在一般轉入檔案內容時，常會帶入些控制字元。

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2015-12-5 09:49 | 只看該作者

Sub 刪除空格()
For Each Rng In Selection
　　Rng.Value = Trim(Application.Clean(Rng))　'加入.value表示Rng是Range
Next
End Sub

Sub 刪除空格()
Dim Rng As Range　'這是標準宣告
For Each Rng In Selection
　　Rng = Trim(Application.Clean(Rng))
Next
End Sub