c_c_lai

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

#8 是不是給你解答了？

yen956

回復 11# c_c_lai
謝謝c大再三指導,
本以為應可以試出來,
結果還在試!?
(只出來一列, 但Rng已會一直變, 不會向下展開,
應該也可以監看想要看的, 謝謝!!)

c_c_lai

回復 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)             '  檢查第四個字元為何
.
.
等等多項運算式監測。

yen956

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

paddyliu

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

c_c_lai

回復 15# paddyliu

下載 (67.14 KB)

2015-12-7 10:05

下載 (1.75 KB)

2015-12-7 10:54

c_c_lai

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

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

   2015-12-7 18:24

複製代碼

下載 (90.26 KB)

2015-12-7 10:48