小编tec*_*unj的帖子

这是我的数据集:

我想得到包含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一起使用

基本上我需要帮助将单元格的地址从字符串转换为接受为范围的格式.

我是VBA的新手,也不经常在这里发帖询问.如果问题不符合现场标准,请原谅我.