Re: [算表] 去除 字串前後 多餘空白鍵--VBA,TRIM(VBA)
以下這一段會比較快，先檢查不一樣再改 ....
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
推
03/13 11:15, , 1F
03/13 11:15, 1F
推
03/13 15:00, , 2F
03/13 15:00, 2F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
