Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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