String 如何比较单元格文本和字符串?

String 如何比较单元格文本和字符串?,string,vba,excel,String,Vba,Excel,如何将单元格中的文本与字符串进行比较?我想知道一个简单而直接的方法来做这件事,因为我下面的方法是不计算ABC的重复次数 ABC一词在excel中位于C17 谢谢 Sub MediaFornecedores() Dim counter As Integer Dim i As Integer Dim ABC As String i = 14 counter = 0 Do While i < 5 If UCase(Cells(i, 3)) = "ABC" Then

如何将单元格中的文本与字符串进行比较?我想知道一个简单而直接的方法来做这件事,因为我下面的方法是不计算ABC的重复次数

ABC一词在excel中位于C17

谢谢

Sub MediaFornecedores()


Dim counter As Integer
Dim i As Integer
Dim ABC As String


i = 14
counter = 0

Do While i < 5

    If UCase(Cells(i, 3)) = "ABC" Then
        counter = counter + 1
    End If

i = i + 1
Loop

Debug.Print counter

End Sub
子媒体fornecedores()
作为整数的Dim计数器
作为整数的Dim i
将ABC设置为字符串
i=14
计数器=0
当我<5岁的时候做
如果UCase(单元格(i,3))=ABC,则
计数器=计数器+1
如果结束
i=i+1
环
调试。打印计数器
端接头

这里应该有一些声明

Dim i As Integer
Dim test As String
Dim counter As Integer

Set i = 1
Set counter = 0
Set test = "ABC"

Do While i < 5
    If ActiveWorksheet.Cells(i, 3) = test Then
        counter = counter + 1
    End If
    i = i + 1
Loop
Dim i作为整数
作为字符串的Dim测试
作为整数的Dim计数器
集合i=1
设置计数器=0
设置test=“ABC”
当我<5岁的时候做
如果ActiveWorksheet.Cells(i,3)=测试
计数器=计数器+1
如果结束
i=i+1
环

您能准确定义“不工作”的含义吗?请参阅。您永远不会进入循环,因为“i”不小于5。如果您去掉3个变量上的Set语句,这会起作用。我对VBA语法仍然非常陌生。谢谢你的提示。不,没有。即时框中的计数器仍然为0。
i
从未达到17,因此您从未达到
C17
进行计数。仅供参考-@MiguelLeal-我们需要知道您想要循环通过哪个范围来设置有用的限制。