返回列表 上一主題 發帖

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

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

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

多謝指教, 咁晒簡潔

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題