vba中如何使用函数counta

COUNTA是excel中统计非空单元格的函数，有的时候我们在写vba代码的时候也非常需要这个函数。

下面记录一下如何使用。

Option Explicit

Sub test()
  Dim i As Long
  Dim j As Long
  Dim sht_name As String
  Dim rng As Range
  Dim wb As Workbook
  
  sht_name = "work"
  Set wb = Workbooks.Open("C:\Users\Joshua\Desktop\1.xlsx")
  Set rng = wb.Sheets(sht_name).Columns(1)
 
  
  i = COUNTA_(rng)
  j = Application.WorksheetFunction.CountA(rng)
  
  Debug.Print i
  Debug.Print j
  
  wb.Close False
End Sub

Private Function COUNTA_(rng As Range) As Integer
  COUNTA_ = Application.WorksheetFunction.CountA(rng)
End Function

我们可以知道，counta接受一个参数，这个参数是range类型的。

Application.WorksheetFunction 可能会有点太长了，所以我们有的时候会自己写一个函数来简化。

可以参照COUNTA_这个函数。

另外我们在跨文件操作的时候，只要传入对应的workbook.sheets(sheets_name).range，就可以轻松的跨文件操作了。