Re: [算表] VBA陣列運算問題(SUMIF)

看板Office作者 (深呼吸~)時間10年前 (2016/03/01 20:23), 編輯推噓0(004)
留言4則, 2人參與, 最新討論串2/2 (看更多)
小弟實在不才,上網找了一些跟evaluate相關的說明,還是不清楚""、join、&的用法... 繼sumif後,我嘗試要做countif,不過得到到ary(i)陣列值皆是0。 請問版上大大我要如何修改? 謝謝!! Sub test() Dim a, b Dim d, i& Dim ary(10) a = Array("A", "B", "A", "B", "B", "C", "B", "C", "D", "B") b = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) d = UBound(a) For i = 0 To d ary(i) = Evaluate("count({""" & Join(a, """,""") & """}=""" & a(i) _ & """)") Next End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.106.121 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1456834983.A.B4C.html

03/02 00:11, , 1F
evaluate內改為"count(if({""" & Join(a, """,""") & """}
03/02 00:11, 1F

03/02 00:11, , 2F
=""" & a(i) & """,1))"
03/02 00:11, 2F

03/02 00:12, , 3F

03/02 12:19, , 4F
測試沒問題,謝謝你!
03/02 12:19, 4F
文章代碼(AID): #1MrOcdjC (Office)
文章代碼(AID): #1MrOcdjC (Office)