统计D行有多少个×的问题

wkc720

1. 
   

复制代码

我在编一个查找D行，D3：D100有多少个×的代码。但是上面的代码编写好后，老是提示next缺少 for。我糊涂了。还望高手帮忙看一下哪里有问题。谢谢！
Sub shtname()
    Dim rg As Range, i As Integer
    For Each rg In Range("d3:d100")
        If rg = "×" Then
        i = i + 1
    Next
    Range("F1") = i
End Sub

yeminqiang

用countif不可以么？

wkc720

yeminqiang 发表于 2015-5-23 09:40
用countif不可以么？

可以，而且更简单。只是想练练手而已。

yeminqiang

wkc720 发表于 2015-5-23 09:52
可以，而且更简单。只是想练练手而已。

Sub shtname()
    Dim rg As Range, i As Integer
    For Each rg In Range("d3:d100")
     If rg = "x" Then
        i = i + 1
        End If
        Next rg
    Range("F1") = i
End Sub

非专业人士，代码请测试

wkc720

yeminqiang 发表于 2015-5-23 10:35
Sub shtname()
    Dim rg As Range, i As Integer
    For Each rg In Range("d3:d100")

对了！原来少了一个end if结束语句。谢谢了！！

wkc720

yeminqiang 发表于 2015-5-23 10:35
Sub shtname()
    Dim rg As Range, i As Integer
    For Each rg In Range("d3:d100")

我是新手，向你学习。

yeminqiang

wkc720 发表于 2015-5-23 10:51
我是新手，向你学习。

不知道有没有高手，用数组写个代码出来，我也是菜鸟。看了些数组的资料，犯迷糊...这题用数组该怎么写？

wkc720

yeminqiang 发表于 2015-5-23 11:45
不知道有没有高手，用数组写个代码出来，我也是菜鸟。看了些数组的资料，犯迷糊...这题用数组该怎么写？

1. Sub ab()
   
2. Dim arr, i As Variant, ar As Variant
   
3. arr = Sheets("sheet3").Range("A1:F10")
   
4. For Each ar In arr
   
5. If ar = "×" Then
   
6. i = i + 1
   
7. End If
   
8. Next
   
9. MsgBox i
   
10. End Sub

复制代码

这个是我写的代码，你看看是不是你想要的那种

yeminqiang

wkc720 发表于 2015-5-25 16:11
这个是我写的代码，你看看是不是你想要的那种

十分感谢！

laimingming

少了END IF嘛