12
返回列表 上一主題 發帖

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

paddyliu

帖子
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)
收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
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

TOP

c_c_lai

帖子
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以下的字元去除掉，
在一般轉入檔案內容時，常會帶入些控制字元。

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
4#
發表於 2015-12-5 11:28 | 只看該作者
回復 3# c_c_lai


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

TOP

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了，謝謝您提醒！
  1. Sub 刪除空格()
  2.     Dim Rng As Range
  3.    
  4.     For Each Rng In Selection
  5.         '  If Not IsError(Rng) Then
  6.             Rng = Trim(Application.Clean(Rng))
  7.         '  End If
  8.     Next
  9. End Sub
複製代碼

TOP

yen956

帖子
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
請問大大:
要怎樣設定才能使監看視窗有作用?謝謝!!
如下圖:
test.gif

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2015-12-6 17:27 | 只看該作者
回復 6# yen956
如圖說明，應該明瞭了吧！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
8#
發表於 2015-12-6 17:53 | 只看該作者
回復 6# yen956

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
9#
發表於 2015-12-6 17:55 | 只看該作者
本帖最後由 yen956 於 2015-12-6 17:57 編輯

回復 7# c_c_lai
謝謝c大的指導, 了解了!!

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
10#
發表於 2015-12-6 17:58 | 只看該作者
本帖最後由 yen956 於 2015-12-6 18:02 編輯

謝謝c大詳細的圖解,
難怪我的監看視窗一片空白, 謝謝!!

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
12
返回列表 上一主題