123
返回列表 上一主題 發帖

[發問] 請問如何讀取儲存格裡的詞的次數?

劉大胃

帖子
63 
主題
8 
精華
0 
積分
122 
點名
0  
作業系統
Windows 2007 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2019-4-16 
最後登錄
2023-3-24 
4# 跳轉到 »
發表於 2022-1-19 10:51 | 只看該作者
Hello gaishutsusuru,

這個看起來, 很難用公式的方式達成, 就如pen來說, 有在同一個句子裡, 出現過2次,  但全都要count出來, 依我的理解, 這個只能用巨集的方式進行了!!
Thanks ~
新手上路，請多包涵。

TOP

gaishutsusuru

帖子
146 
主題
46 
精華
0 
積分
220 
點名
0  
作業系統
7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-2-19 
最後登錄
2023-8-31 
3#
發表於 2022-1-19 08:14 | 只看該作者
回復 2# samwang


您好，謝謝您的幫忙，

但我實際測了以後，出現如下圖：
(按一次巨集)

(按二次巨集)


另一部份，
(1) 實際的資料，會超過A4:B6的三筆資料(而例子中只有列舉3筆)
(2) 實際想讀取的詞，也會超過E4,E5 的二個詞(而例子中只有列舉2個)

(如果可以，還是希望能有公式的解法><)

謝謝您的抽空幫忙。

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2026-5-26 
2#
發表於 2022-1-19 08:02 | 只看該作者
本帖最後由 samwang 於 2022-1-19 08:04 編輯

回復 1# gaishutsusuru
只會VBA，僅供參考，謝謝
Sub test()
Dim Arr, Brr, a, xD, T$, i&, i1&
Brr = Range([e4], [e65536].End(3).Offset(, 2))
Arr = Range([a4], [b65536].End(3))
For i1 = 1 To UBound(Brr)
    T = Brr(i1, 1)
    For i = 1 To UBound(Arr)
        a = Split(Arr(i, 2), " ")
        For j = 0 To UBound(a)
            If InStr(a(j), ",") Then a(j) = Replace(a(j), ",", "")
            If InStr(a(j), ".") Then a(j) = Replace(a(j), ".", "")
            If a(j) = T Then
                Brr(i1, 2) = Brr(i1, 2) + 1
                Brr(i1, 3) = IIf(Brr(i1, 3) = "", Arr(i, 1), Brr(i1, 3) & "," & Arr(i, 1))
            End If
        Next
    Next
Next
Range("e4").Resize(UBound(Brr), 3) = Brr
End Sub

1.JPG (18.62 KB)

1.JPG

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
123
返回列表 上一主題