[算表] 陣列函數寫成VBA

[tina1688 ()]

各位 大大

想計算 範圍內的  不重複文字的 個數
但不知如何轉寫成VBA，有大大可以解惑嗎? 謝謝喔~

示意圖
https://imgur.com/a/LZh4J

檔案連結
https://goo.gl/9Zp6mq

--
Sent from my Windows

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.194.200.173
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1519823881.A.8CC.html
→ soyoso: 迴圈，range.find、range.findnext來尋找範圍區間
→ soyoso: 最後一個區間則判斷當尋找到的儲存格為第一次找到的
→ soyoso: range.address時則以最後一筆有值的儲存格
→ soyoso: 有起迄區間儲存格，可配合evaluate來使用原工作表內
→ soyoso: 所寫的陣列公式，儲存格置換為上述起迄區間儲存格位置字
→ soyoso: 串以range.address，連接符號以&
→ soyoso: 儲存格偏移上以range.offset
大大，研究一下後
用evaluate來輸入陣列函數，程式碼如下
但是執行顯示型態不符QQ
我已經找到區間範圍，剩下把陣列公式值丟到儲存格就好了

我要把=SUM(1/COUNTIF(範圍))  ，丟進去。再麻煩大大解惑

        ActiveSheet.Range("V" & kkk + 1).Value = Application.Evaluate("=SUM("
& "1/COUNTIF(" & ActiveCell.Range("T" & kkk & ":U" & kkk + ADress_Row) & "))")


※ 編輯: tina1688 (1.160.76.45), 03/10/2018 15:13:10