標題: 清除範圍內儲存格文字前後多出的空格 [打印本頁]

---

作者: enoch    時間: 2012-2-16 16:11     標題: 清除範圍內儲存格文字前後多出的空格

如何使用TRIM 公式一次過將範圍a1:e10 內的儲存格內文字前後多出空格刪除
請問在那裡出錯呢?
請指教

Sub TEST()
Dim REF As Object
Set REF = Range("a1")
'設定欄數
For Col = 1 To 5
'設定行數
For Row = 1 To 10
REF = Trim(REF)
Set REF = REF.Offset(1, 0)
Next Row
'重設ROW 為第一行及向右過一欄
Set REF = REF.Offset(-5, 1)
Next Col
End Sub

---

作者: GBKEE    時間: 2012-2-16 16:40

回復 1# enoch

1. Sub TEST()
   
2.     Dim REF As Object, Row As Integer, Col As Integer
   
3.     Set REF = Range("a1")
   
4.     For Col = 1 To 5    '設定欄數
   
5.         For Row = 1 To 10    '設定行數
   
6.             REF.Cells(Row, Col) = Trim(REF.Cells(Row, Col))
   
7.         Next
   
8.     Next
   
9. End Sub

複製代碼

---

作者: enoch    時間: 2012-2-16 16:52

多謝指教, 咁晒簡潔

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)