FREQUENCY問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-9-11 07:06 | 顯示全部帖子

回復 1# wes

Option Explicit
Sub Ex()
Dim data_array As Range, Bins_array As Range
With Sheets("Sheet1")
Set data_array = .Range("X1", .Range("X1").End(xlDown)) 'data_array是會變動的，x1為固定,x2的數值會隨者資料多寡而變動。
.Range("a:b").FormulaArray = "=FREQUENCY(" & data_array.Address & ",y1:y2)"
'*************************************************************************
'Set Bins_array = .Range("y1", .Range("y1").End(xlDown)) '如Bins_array是會變動的，y1為固定,y2的數值會隨者資料多寡而變動。
'.Range("a:b").FormulaArray = "=FREQUENCY(" & data_array.Address & "," & Bins_array.Address & ")"
'***************************************************************************
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 忘功不忘過，忘怨不忘恩。