看板 Office 關於我們 聯絡資訊
軟體:excel 版本:任何版本 我有請同仁做彙整 但是來的儲存格 尾端都一定要有句號 我寫vba去加入 == i = Range("A4").End(xlDown).Row For X = 5 To i If Right(Trim(Range("K" & X)), 1) <> "。" Then Range("K" & X) = Trim(Range("K" & X)) & "。" End If Next X === 不過遇到下面狀況會不行 1. 昨天天氣很糟。 今天天氣很好。 <=== 若是句號後面有空格 就會變成 昨天天氣很糟。 今天天氣很好。 。 2. 昨天天氣很糟。 今天天氣很好。 <===若是後面有換行符號 會變成 昨天天氣很糟。 今天天氣很好。 。 有些人輸入不知道怎麼搞的都會在尾巴出現空格或者換行符號 這時候程式不知道要怎麼改? -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.77 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1490943027.A.D46.html
soyoso: 測試句號後面有空白儲存格時,並無出現原文的情況 03/31 15:12
soyoso: https://i.imgur.com/Vt7Q6LB 03/31 15:12
檔案如下 https://drive.google.com/open?id=0BwCgrQhGgaw7WHk3Y3VKc2RsVHM 空格的會正確 發現是同仁本來就打了兩個句號 害我誤會XD 不過現在是尾端有char(10)的問題 ※ 編輯: ljuber (60.250.67.77), 03/31/2017 15:23:10
soyoso: https://i.imgur.com/TfbRbg6 試試 03/31 15:36
ljuber: 感謝S大~ 03/31 16:12