Re: [算表] 去除 字串前後 多餘空白鍵

[windknife18 (windknife18)]

以下這一段會比較快，先檢查不一樣再改 ....

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cell As Range
    For Each cell In Target
       If cell.Value <> Trim(cell.Value) Then
        cell.Value = Trim(cell.Value)
       End If
    Next cell

End Sub




※ 引述《windknife18 (windknife18)》之銘言：
: 你的回信很快，就在幫忙一下囉，
: 按「Alt-F11」的VBA視窗中，點選 「Microsoft Excel 物件」-> 「Sheet1 (Sheet1)」
: 在右邊視窗輸入以下程式即可，記得不是在模組裡喔！
: 看看合不合用囉 ...
: Private Sub Worksheet_Change(ByVal Target As Range)
:     Dim cell As Range
:     For Each cell In Target
:        cell.Value = Trim(cell.Value)
:     Next cell
: End Sub
: ※ 引述《shinjiyano (矢野真士)》之銘言：
: : 軟體: Microsoft Excel
: : 版本: 2003
: : 在下的工作是常常要複製網頁的資料，貼到EXCEL上
: : 但這些人名時常會在前或後有多餘空白鍵。
: : 雖然知道TRIM函式可以做到，但是我只會用以下這種沒效率的方式：
: : １．將複製的十筆人名貼到A1~A10
: : ２．在B1~B10分別寫入公式  =TRIM(A1)  ...  =TRIM(A10)
: : ３．將B1~B10選取，複製，再貼至A1~10
: : ４．刪除B1~B10的內容
: : 是否有高手可以指點更有效率的辦法? 校訂裡面沒有這功能嗎?
: : 如果得用巨集也OK~

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.229.81.50
推 shinjiyano:請受在下一拜XD 完全符合在下的需求，謝謝您!!!!
推 JieJuen:推