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

c_c_lai

博士班 Rank: 6 Rank: 6

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

1^# 跳轉到 »

發表於 2015-12-5 09:56 | 顯示全部帖子

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

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

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

2^#

發表於 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

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

3^#

發表於 2015-12-6 17:27 | 顯示全部帖子

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

4^#

發表於 2015-12-6 17:53 | 顯示全部帖子

回復 6# yen956

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

5^#

發表於 2015-12-6 17:59 | 顯示全部帖子

回復 c_c_lai
謝謝c大的指導, 了解了!!
yen956 發表於 2015-12-6 17:55

#8 是不是給你解答了？

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

6^#

發表於 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

c_c_lai