綱舉目張

• 說明
• 代碼code
• 使用說明

說明

在Excel的單元格中輸入函數=LEN(“abc”)結果為3；輸入函數=LEN(“啊bc”)結果也是3，看似沒有問題但是實際上LEN的兩個參數實際占用的長度可是不一樣的，見下圖：

“啊bc”就是比“abc”長1個字符。原因是LEN函數計算的是字符的個數，雖然1個漢字占據了兩個英文字母的長度，但是也是1個字符。
如果在實際的應用中我們要考慮的是字符串占據的長度該如何呢？那么就有請LENB函數：輸入函數=LENB(“abc”)結果為3；輸入函數=LENB(“啊bc”)結果為4。
今天的文章就這么結束了？并沒有，我們還有一個問題要繼續探討，如果在VBA中使用這兩個函數會是什么樣的結果呢？先寫代碼如下：

Sub 有趣的LEN()Cells(3, 4).Value = Len(Cells(3, 1).Value)Cells(4, 4).Value = Len(Cells(4, 1).Value)Cells(3, 5).Value = LenB(Cells(3, 1).Value)Cells(4, 5).Value = LenB(Cells(4, 1).Value) End Sub

運行代碼后，效果如下：

可以看到在LEN函數在Excel單元格函數與VBA函數得到的結果是一致的，但是LENB函數就出現了不同，這就表明在Excel單元格函數中LENB將英文及數字認為只占用了1個字符，漢字占用了2個字符；在VBA函數中LENB將英文及數字與漢字一視同仁均視為占用了2個字符。
如果我們想要在VBA函數中達到Excel單元格函數的LENB的效果該怎么編寫代碼呢？各位看官，代碼來了！

代碼code

Sub 有趣的LEN()Cells(3, 4).Value = Len(Cells(3, 1).Value)Cells(4, 4).Value = Len(Cells(4, 1).Value)Cells(3, 5).Value = LenB(Cells(3, 1).Value)Cells(4, 5).Value = LenB(Cells(4, 1).Value)Cells(3, 6).Value = LenC(Cells(3, 1).Value)Cells(4, 6).Value = LenC(Cells(4, 1).Value) End Sub'字符長度，因為中文和英文所占字符長度不同，故另寫函數獲取 Public Function LenC(strContent As String) As IntegerDim intC As IntegerLenC = 0For intC = 1 To Len(strContent)If AscW(Mid(strContent, intC, 1)) > 256 Or AscW(Mid(strContent, intC, 1)) < 0 ThenLenC = LenC + 2ElseLenC = LenC + 1End IfNext End Function

使用說明

通過自己編寫一個名為LenC的函數，逐個判斷字符串的每一個字符是什么類別的，從而計算字符串的占位長度。本例整體運行效果如下圖：

如有意見建議或使用中出現Bugq請留言，謝謝！

總結

以上是生活随笔為你收集整理的【Excel VBA】Len的有趣之处——获取的长度怎么不一致？的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。