Đếm số phần tử khác rỗng trong mảng

[Yeuvoyeucon]

Đếm số phần tử của mảng khác rỗng,
Giả sử em có Range từ A1: J2 và đặt là là một mảng. Em muốn đếm số phần tử khác rỗng của mảng này thì làm sao ạ. Em làm mà toàn ra 20 ạ.

Dim iCount1 As Integer, iCount2 As Integer
arr = Sheet2.Range("A1:J2").Value
iCount1 = UBound(arr, 1) - LBound(arr, 1) + 1
iCount2 = UBound(arr, 2) - LBound(arr, 2) + 1
Sheet2.Range("D14") = iCount1 * iCount2

 

[CHAOQUAY]

Đếm số phần tử của mảng khác rỗng,
Giả sử em có Range từ A1: J2 và đặt là là một mảng. Em muốn đếm số phần tử khác rỗng của mảng này thì làm sao ạ. Em làm mà toàn ra 20 ạ.

Dim iCount1 As Integer, iCount2 As Integer
arr = Sheet2.Range("A1:J2").Value
iCount1 = UBound(arr, 1) - LBound(arr, 1) + 1
iCount2 = UBound(arr, 2) - LBound(arr, 2) + 1
Sheet2.Range("D14") = iCount1 * iCount2

View attachment 262140

Thử xem có đúng ý hay không

for each i in arr
    if i="" then iCount1 = iCount1 +1
next i

 

[VetMini]

c = Application.CountBlank(Sheet2.Range("A1:J2"))
hoặc
c = Application.Countif(Sheet2.Range("A1:J2"), "")