今日的內容是「VBA之EXCEL應用」的第九章「字符串（String）的操作」。這講是第五節「計算工作表中以空格為分隔的詞語（或單詞）個數」。這套教程從簡單的錄製宏開始講解，一直到窗體的搭建，內容豐富，案例眾多。大家可以非常容易的掌握相關的知識，這套教程面向初學人員，共三冊，十七章，都是我們在利用EXCEL工作過程中需要掌握的知識點，希望大家能掌握利用。第五節 計算工作表中以空格為分隔的詞語（或單詞）個數大家好，我們今日講解字符串函數的最後一講，也是一個實例的講解，這個實例中大家會進一步認識到字符串函數，同時我會再給大家講解一個字符串函數Trim函數。這個函數也是字符串函數中經常用到的。1 Trim函數這個函數一共有三個，分別是LTrim、RTrim 和Trim 函數，返回返回Variant (String) ，包含指定字符串的副本（不含前面空格 (LTrim)、不含後面空格 (RTrim) 和不含前後空格 (Trim)）。語法：LTrim(string) RTrim(string) Trim(string)l使用LTrim函數去除前導空格, 使用RTrim函數從字符串變量中去除尾部空格。使用Trim函數可以去除字符串的前後所有空格。2 以空格為分隔符號實現工作表中詞語計數的場景分析這個界面中，有很多漢語、英語的字符串，我們要實現這些所有詞語的計數工作，前提是詞語是以空格為間隔的，通過這個例子，我們進一步學習字符串函數的實例應用。3 以空格為分隔符號實現工作表中詞語計數的思路分析為了達到我們計數詞語的目的，我們先進行一下思路的分析，大家在寫代碼的時候，這種分析是必不可少的過程。 1）我們要在工作表的所有以A1單元格為基準的單元格區域中進行遍歷循環。 3）由於詞語是以空格為分隔的，我們要以空格為基準進行查找，查找到的詞語要前後去掉空格，這一點非常關鍵，以避免出現兩個空格或多個空格的現象。 4）在單元格中詞語計數過程中，要利用mid函數循環獲得去掉前一個空格前餘下詞語部分。4 以空格為分隔符號實現工作表中詞語計數的代碼實現Sub mynzE() '以空格為分隔符號實現工作表中詞語計數 Dim myRng As Range, myCell As Range, myContent As String Set myRng = Range("A1").CurrentRegion If Not myCell.HasFormula Then myContent = Trim(myContent) Do While InStr(myContent, " ") > 0 myContent = Mid(myContent, InStr(myContent, " ")) myContent = Trim(myContent) MsgBox "以A1單元格為起始的區域中共有" & t & "個詞語!" 1）If Not myCell.HasFormula Then 指的是在沒有公式的單元格中進行判斷 2）myContent = myCell.Value myContent = Trim(myContent)3）myContent = Mid(myContent, InStr(myContent, " ")) myContent = Trim(myContent) 獲得去掉前一個空格之前餘下的詞語部分，並去掉前後的空格。大家可以利用提供的程序文件進行測試一下。要測試一下trim函數的作用。 1） 如何實現工作表中以某個分隔符為基準的詞語計數？VBA的應用及學習方法：VBA是利用Office實現個人小型辦公自動化的有效手段（工具）。這是我對VBA的應用界定。在取代OFFICE新的辦公軟體沒有到來之前，誰能在數據處理方面做到極致，誰就是王者。其中登峰至極的技能非VBA莫屬！我記得20年前自己初學VBA時，那時的資料甚少，只能看源碼自己琢磨,真的很難。20年過去了，為了不讓學習VBA的朋友重複我之前的經歷，我根據自己多年VBA實際利用經驗，推出了七部VBA專門教程。第一套：VBA代碼解決方案 是VBA中各個知識點的講解，教程共147講，覆蓋絕大多數的VBA知識點，提供的程序文件更是一座不可多得的代碼寶庫，是初學及中級人員必備教程；目前這套教程提供的版本是修訂第二版，程序文件通過32位和64位兩種OFFICE系統測試。第二套：VBA資料庫解決方案 資料庫是數據處理的專業利器，教程中詳細介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作，適合中級人員的學習。目前這套教程提供的是修訂第一版教程，程序文件通過32位和64位兩種OFFICE系統測試。第三套：VBA數組與字典解決方案 數組和字典是VBA的精華，字典是VBA代碼水平提高的有效手段，值得深入的學習，是初級及中級人員代碼精進的手段。目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種OFFICE系統測試。第四套：VBA代碼解決方案之視頻 是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。這套教程是第一套教程（修訂一版）的視頻講解，視頻更易接受。第五套：VBA中類的解讀和利用 這是一部高級教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細的學習可以促進自己VBA理論的提高。這套教程的領會主要是讀者的領悟了，領悟一種佛學的哲理。目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種OFFICE系統測試。第六套教程：VBA信息獲取與處理，這是一部高級教程，涉及範圍更廣，實用性更強，面向中高級人員。教程共二十個專題，包括：跨應用程式信息獲得、隨機信息的利用、電子郵件的發送、VBA網際網路數據抓取、VBA延時操作，剪切板應用、Split函數擴展、工作表信息與其他應用交互，FSO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定製工作表信息函數等等內容。程序文件通過32位和64位兩種OFFICE系統測試。第七套教程：VBA之EXCEL應用 這是一部初級教程這部教程共三冊，從從創建宏、對話框、工作簿和工作表對象、單元格對象等基礎內容講起，到循環結構、錯誤處理、字符串操作、日期和時間、事件、數組應用，函數過程等方面，一直講解到控制項和窗體對象的應用都是我們提高自己EXCEL水平的必須。以上各教程學習順序：7→1(或者4)→3→2→6→5。其中第四套是對第一套的視頻講解，所以第一和第四隻選其一即可。
_______________________________
更多關聯閱讀