只取出字串中的中文字元

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2013-8-6 21:59 | 只看該作者

A1="3D. 偉大(中文版)"
B1=IF(LENB(MID($A1,COLUMN()-1,1))=2,MID($A1,COLUMN()-1,1),"")&C1
B1公式右拉複製(右拉格數為字串最大長度)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

3^#

發表於 2013-8-7 12:03 | 只看該作者

多謝指教,右拉取得結果,以前沒試過,我用vb右拉20格,這20格是隱藏的,所以B欄取得我要的結果,十分感激你

lmh

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2013-8-7 12:31 | 只看該作者

處理文字沒有陣列組合函數，所以利用右拉多格公式來合併處理
若你用VBA就不用那麼辛苦

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

5^#

發表於 2013-8-7 13:27 | 只看該作者

再請教vb里lenb如何用?
vb里 lenb(3)出錯,lenb("3")=2,何解?

lmh

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

6^#

發表於 2013-8-7 13:38 | 只看該作者

問題解決了
Function ZW(A)
For i = 1 To Len(A)
If LenB(StrConv(Mid(A, i, 1), &H80)) = 2 Then
zw2 = zw2 & Mid(A, i, 1)
End If
Next i
ZW = zw2
End Function
還是要謝謝你

lmh

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

7^#

發表於 2013-8-9 10:37 | 只看該作者

Function ZW(A)
For i = 1 To Len(A)
If LenB(StrConv(Mid(A, i, 1), &H80)) = 2 Then
zw2 = zw2 & Mid(A, i, 1)
End If
Next i
ZW = zw2
End Function

拿掉 StrConv 函數如下，執行就不對，WHY?

Function ZW1(A)
ZW = ""
For i = 1 To Len(A)
If LenB(Mid(A, i, 1)) = 2 Then
ZW = ZW & Mid(A, i, 1)
End If
Next i
End Function

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

8^#

發表於 2013-8-10 00:49 | 只看該作者

本帖最後由 mhl9mhl9 於 2013-8-10 00:50 編輯

我是看到以下兩段知道vba里lenb和excel的lenb不同
VBA中：LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。
而在工作表，结果似乎表明汉字当双字节而字母和数字当单字节处理的。

Function LenMbcs(ByVal str As String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
Sub yyy()
a = LenMbcs("劉abc")
End Sub
a=5------(2+3)

lmh

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

9^#

發表於 2013-8-10 19:30 | 只看該作者

可參考 http://forum.twbts.com/viewthrea ... a=pageD2&page=1

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

10^#

發表於 2013-8-11 20:50 | 只看該作者

用 “正規表示式”

Function CountDblChr(ByVal sCh As String) As Integer

Set re = CreateObject("vbscript.regexp")

're.Pattern = "[\u4e00-\u9fa5]" '判斷中文字(包括特殊字，但不包括符號。和數字如１）

re.Pattern = "[^\x00-\xff]" '判斷所有的全形字

re.Global = True

re.IgnoreCase = True

Set matches = re.Execute(sCh)

CountDblChr = matches.Count

Set re = Nothing

End Function

ss