拜求EXCEL 統計問題

excel 統計出現次數

s_s 2022-03-08 08:54:39 ‧ 1026 瀏覽

分享至

請問大大
EXCEL 統計中如何設定排除只設定文字(國字)才會自動統計出現次數

英文、數字、符號出現時不會統計

謝謝

看更多先前的討論...收起先前的討論...

blanksoul12 iT邦研究生 5 級 ‧ 2022-03-08 09:00:11 檢舉

你的工作表大致是怎樣的,資料是怎樣的,貼張圖來看看

s_s iT邦新手 5 級 ‧ 2022-03-08 09:32:52 檢舉

例如

大明A123
小新A25
阿土

我只統計
阿土單純只有國字時才統計方式

謝謝

jasonlin268 iT邦研究生 3 級 ‧ 2022-03-08 16:19:48 檢舉

統計出現(純國字)的次數(B4)，不知道符不符合版主的需求。
假設：
A1：大明A123
A2：小新A25
A3：阿土

B1：=IF(LEN(A1)*2=LENB(A1),1,0)
B2：=IF(LEN(A2)*2=LENB(A2),1,0)
B3：=IF(LEN(A3)*2=LENB(A3),1,0)

B4：=SUM(B1:B3)

blanksoul12 iT邦研究生 5 級 ‧ 2022-03-08 17:38:54 檢舉

B1：=IF(LEN(A1)=LENB(A1),0,1)

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

blanksoul12

iT邦研究生 5 級 ‧ 2022-03-08 17:40:35

vba 寫法

Sub test()

For i = 1 To [a1048576].End(xlUp).Row
    If Len(Cells(i, "a").Text) <> LenB(StrConv(Cells(i, "a").Text, vbFromUnicode)) Then
        y = y + 1
    End If
Next

MsgBox "有 " & y & " 個儲存格有中文字"

End Sub

回應 1
分享
檢舉

blanksoul12 iT邦研究生 5 級 ‧ 2022-03-11 08:50:07 檢舉

另一個寫法

Sub test()

For i = 1 To [a1048576].End(xlUp).Row
    For y = 1 To Len(Cells(i, "a"))
        If WorksheetFunction.Unicode(Mid(Cells(i, "a"), y, 1)) > 19967 And WorksheetFunction.Unicode(Mid(Cells(i, "a"), y, 1)) < 40870 Then
            find_text = find_text + 1
            Exit For
        End If
    Next
Next

End Sub

登入發表回應