清除範圍內儲存格文字前後多出的空格

enoch

如何使用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

回復 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

多謝指教, 咁晒簡潔