返回列表 上一主題 發帖

請問字串要如何統計次數不重復?

請問字串要如何統計次數不重復?

本帖最後由 oiggu 於 2010-7-24 12:47 編輯

請問字串要如何統計次數不重復

字串統計.JPG (54.67 KB)

字串統計.JPG

字串統計.zip (2.35 KB)

oiggu

本帖最後由 kimbal 於 2010-7-24 16:31 編輯

在d3 放上這個公式:
  1. =SUMPRODUCT((MID($A$1:$A$30,2,4)=D$2&"")*(LEFT($A$1:$A$30,1)=$C3)*($A$1:$A$30<>"")/COUNTIF($A$1:$A$30,$A$1:$A$30))
複製代碼
然後抄到其他格
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

回復 1# oiggu
選取d3儲存格,加入定義名稱x
公式=OFFSET(Sheet1!$A:$A,,,COUNTA(Sheet1!$A:$A),)

d3陣列公式
{=IF(ISNUMBER(MATCH($C3&D$2,LEFT(x,5),0)),SUM(1/COUNTIF(OFFSET($A$1,MATCH($C3&D$2,LEFT(x,5),0)-1,,COUNTIF(x,"="&$C3&D$2&"*")),OFFSET($A$1,MATCH($C3&D$2,LEFT(x,5),0)-1,,COUNTIF(x,"="&$C3&D$2&"*")))),0)}
向下向右複製
學海無涯_不恥下問

TOP

本帖最後由 gong 於 2010-7-24 17:08 編輯

d3=SUMPRODUCT((LEFT($A$1:$A$30,5)=$C3&D$2)*1/COUNTIF($A$1:$A$30,$A$1:$A$30))
知之為知之,不知為不知,誠實也!

TOP

謝謝各位:
經測試都可以使用,但遇到一個問題資料有5000筆會影響執行速度會非常摱
請問是否可改vba 再匯入格子加快執行速度。
oiggu

TOP

回復 5# oiggu
  1. Sub MyCount()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheet1
  4. For Each a In .Range(.[A1], .[A65536].End(xlUp))
  5.    If d(Left(a, 5)) = "" Then
  6.       d(Left(a, 5)) = a
  7.       ElseIf InStr(d(Left(a, 5)), a) = 0 Then
  8.       d(Left(a, 5)) = d(Left(a, 5)) & "," & a
  9.     End If
  10. Next
  11. For Each a In .[C3:C5]
  12.    For Each b In .[D2:F2]
  13.       .Cells(a.Row, b.Column) = UBound(Split(d(a & b), ",")) + 1
  14.     Next
  15. Next
  16. End With
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

本帖最後由 oiggu 於 2010-7-26 06:29 編輯

謝謝超級版主,太神了。
已經可以統計次數
請問要如何用VBA把金額統計出來
放入格式內、字串開頭+年月統計

統計.JPG (99.92 KB)

統計.JPG

統計.zip (9.51 KB)

oiggu

TOP

回復 7# oiggu
  1. Sub MyCount()

  2. Set d = CreateObject("Scripting.Dictionary")
  3. Set d1 = CreateObject("Scripting.Dictionary")

  4. With Sheet1

  5. For Each a In .Range(.[A1], .[A65536].End(xlUp))
  6. d1(Left(a, 5)) = d1(Left(a, 5)) + Application.Sum(a.Offset(, 1).Resize(, 3))
  7.    If d(Left(a, 5)) = "" Then

  8.       d(Left(a, 5)) = a

  9.       ElseIf InStr(d(Left(a, 5)), a) = 0 Then

  10.       d(Left(a, 5)) = d(Left(a, 5)) & "," & a

  11.     End If

  12. Next

  13. For Each a In .[F5:F7]

  14.    For Each b In .[G3:L3]
  15.       
  16.      If (b.Column Mod 2) = 1 Then Cells(a.Row, b.Column) = UBound(Split(d(a & b), ",")) + 1
  17.      If (b.Column Mod 2) = 0 Then Cells(a.Row, b.Column) = d1(a & b)

  18.     Next

  19. Next

  20. End With

  21. End Sub
複製代碼
學海無涯_不恥下問

TOP

[版主管理留言]
  • Hsieh(2010-7-27 18:57): 應該對上述技巧加以了解,自己嘗試後再針對問題發問

回復 8# Hsieh


感謝超級版主
你寫的 vba 簡潔有力,已經可以統計次數使用正常,
還請教一個問題,如何把同名稱的數字總計起來、
對照 材料項目分類計算,再用 VBA 匯入格式要如何作?

test.zip (3.29 KB)

oiggu

TOP

回復 9# oiggu

Sub sum()
For k = 2 To 10
Set d = CreateObject("Scripting.Dictionary")
With Sheets("date")
For Each a In Sheets("date").Range(.[a3], .[a65536].End(xlUp))
   d(a) = d(a) + a.Offset(, k - 1)
Next
For Each a In Sheets("a").Range([a3], [a65536].End(xlUp))
      Sheets("a").Cells(a.Row, k) = d(a)
    Next
End With
Next
End Sub

感謝板主
不曉得那裏出錯、 測試出來的值=0 不正確
請問 Sheets("a").Cells(a.Row, k) = d(a) 錯在那裏?
oiggu

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題