Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Return cell value in a range as an array

Sub Array3()   Dim Data As Variant   Data = Range("A1:A20").Value   MsgBox "Number of Non Blank Elements = " & WorksheetFunction.CountA(Data) & vbCr End Sub