vba - 如何将字符串格式的单元格地址与范围一起使用？

Question

我想获取包含 Nikunj 的单元格和包含 Deepak 的单元格之间的非空单元格计数。

Sub Count()
    Dim txt1 As String
    Dim txt2 As String
    txt1 = "Nikunj"
    txt2 = "Deepak"
    With Worksheets(1).Range("b1:b20")
        Set a = .Find(txt1, LookIn:=xlValues)
        Set b = .Find(txt2, LookIn:=xlValues)
    End With

    arra = Split(a.Address, "$")
    arrb = Split(b.Address, "$")
    newa = Join(arra, "")
    newb = Join(arrb, "")

    MsgBox WorksheetFunction.CountA(Range("newa:newb")) 
End Sub

我有一个 xlA1 格式的单元格地址，作为 newa 和 中的字符串newb 我无法与 WorksheetFunchtion.CountA 一起使用。

如何将单元格的地址从字符串转换为可接受范围的格式？

Answer 1

您可以将 Range(a, b) 传递给 CountA 并免除解析单元格地址的需要:

Option Explicit

Sub Count()

    Dim txt1 As String
    Dim txt2 As String
    Dim a As Range
    Dim b As Range

    txt1 = "Nikunj"
    txt2 = "Deepak"

    With Worksheets(1).Range("b1:b20")
        Set a = .Find(txt1, LookIn:=xlValues)
        Set b = .Find(txt2, LookIn:=xlValues)
    End With

    MsgBox WorksheetFunction.CountA(Range(a, b))

End Sub