[VBA] 神秘數字9527

問題：

靈感：

使用【函數】方法，請參考：

此篇的 VBA 方法，需將時間點回溯到 2023/7/27，當時群裡大家剛好在討論如何刪除不可見的空白，當時寫的 Excel VBA 雖然可以順利解決問題(只限儲存格內，存在單一個數值時)，但好心的奇大哥還是點出這個程式的一個問題點，那就是無法在【一個句子 或 多個換行的句子】的頭尾做判斷。

時隔一年半之久，藉由社群網友的提問，再出發! (OS：再出發啦~ 溫系勇敢ㄟ小飛俠~)

再次將 VBA 程式修改成也能用在【一個句子 或 多個換行的句子】的頭尾，來判斷是否有空白，如果有空白就自動移除，而句子內的空白，則不做移除。

以下是兩個情境的 VBA 基礎版 和 VBA 進階版 兩者的執行結果：

(情境一)、單行文字內容的【前、中、後】空白處理

原始狀況：
英文：句首有 1 個空白；句中有 5 個空白；句尾有 2 個空白。
中文：句首有 1 個空白；句中有 0 個空白；句尾有 2 個空白。

(情境一)、原始狀況

VBA 基礎版 的執行結果：【只要有空白的地方就全部刪除。】
英文：句首有 0 個空白；句中有 0 個空白；句尾有 0 個空白。
中文：句首有 0 個空白；句中有 0 個空白；句尾有 0 個空白。

(情境一)、VBA 基礎版 的執行結果

VBA 進階版 的執行結果：【只刪除頭尾的空白，中間的空白不會刪除。】
英文：句首有 0 個空白；句中有 5 個空白；句尾有 0 個空白。
中文：句首有 0 個空白；句中有 0 個空白；句尾有 0 個空白。

(情境一)、VBA 進階版 的執行結果

(情境二)、多行文字內容的【前、中、後】空白處理

原始狀況：
英文 + 中文：句首總共有 40 個空白；句中總共有 54 個空白；句尾總共有 22 個空白。

(情境二)、原始狀況

VBA 基礎版 的執行結果：【單一個儲存格內，多行的所有空白全部刪除。】
英文 + 中文：句首總共有 0 個空白；句中總共有 0 個空白；句尾總共有 0 個空白。

(情境二)、VBA 基礎版 的執行結果

VBA 進階版 的執行結果：【單一儲存格內，多行的前、後空白都刪除，中間保留。】
英文 + 中文：句首總共有 0 個空白；句中總共有 54 個空白；句尾總共有 0 個空白。

(情境二)、VBA 進階版 的執行結果

VBA 基礎版 vs. VBA 進階版 功能比較：

功能比較

VBA 基礎版 - 檔案下載

VBA 進階版 - 檔案下載

彩蛋

艾爾伯特‧愛因斯坦(Einstein, Albert) 說：

“Imagination is more important than knowledge.”
「想像力比知識更重要。」

參考文獻：

1. 奇大哥
2. Facebook

【opa 沙龍】的 GPT NamiKo 助理 ( 使用舊版 ChatGPT DALL-E )：
https://chatgpt.com/g/g-slUIye2q5-namiko

最近 ChatGPT 4o 的新圖像模型很流行【吉卜力】畫風，所以再拿出塵封以久，
使用 ChatGPT 舊版 DALL-E 製做的 NamiKo GPT 助理來跟大家打聲招呼 ~~

NamiKo 助理 - 上班的樣子

NamiKo 助理 - 公園的樣子

NamiKo 助理 - 書房的樣子

以上就是這次的分享，請持續關注 我 和 Meiko微課頻道，謝謝大家 ~

有任何問題，請到【opa的沙龍】的【Excel VBA 情境學習】一起討論有關 函數 的基本問題，或加入 LINE社群 Meiko微課小綠群(粉絲交流群)，歡迎您的加入。

opa_AI生圖館

LINE Bot：@634apgbp

不定期推送當下最流行的圖片，您也可以許願~ 但請注意個資不要輸入到給此LINE機器人 ! 因為大家都會看到喔 !