求大侠帮忙解决 谢谢

xxzy

要求：(B2：B1000) 任意单元格内有任意文本（不是数字），就当此单元格为数字1，现在要通过VBA在D2单元格内把(B2：B1000)中有文本的单元格累计，无文本不计算或删除了也自动减去。一个有任意文本的单元格为视为数字1。

求大侠帮忙解决~~~谢谢咯

nihao123456789

要啥宏，公式就可以了。
=COUNTA(B2:B1000)

ww87725244

上传附件，并说明情况

xxzy

nihao123456789 发表于 2024-7-17 10:58
要啥宏，公式就可以了。
=COUNTA(B2:B1000)

谢谢！试了下确实很好，谢谢！！赞。
就怕输错单元格，把公式删除了。

xxzy

ww87725244 发表于 2024-7-17 11:12
上传附件，并说明情况

谢谢关心，就用2楼的公式把，谢谢！

kyxfyzg

Sub test()
Dim arr
arr = Range("b2:b1000")
For i = 1 To UBound(arr)
    If WorksheetFunction.IsText(arr(i, 1)) Then
        n = n + 1
    End If
Next
    [d2] = n
End Sub

xxzy

kyxfyzg 发表于 2024-7-18 15:56
Sub test()
Dim arr
arr = Range("b2:b1000")

谢谢，确实能达到效果，避免勿删除公式的尴尬。
不过需要加一个按钮去人工运行代码，能不能做到自动运行？代码怎木修改？谢谢
！