[已解决]老师们，帮忙看一下我的代码哪里出错了，谢谢

haohaizi007

  我那个问题2，我自己查了一下，编了一段代码，但是运行的时候显示
对象 _default 的方法 Range 失败  
请老师们指点一下该怎么做。 谢谢  

Sub 宏5()
'
'宏5 宏
Dim i As Integer
For i = 4 To 429

If Cells(R, i) = "√" Or "△" Then
     Cells(T, i) = "12"
     End If
If Cells(R, i) = "" Then
     Cells(T, i) = "11"
          End If
If Cells(Q, i) = "" Then
     Cells(T, i) = "10"
          End If
           If Cells(P, i) = "" Then
     Cells(T, i) = "9"
          End If
           If Cells(O, i) = "" Then
     Cells(T, i) = "8"
          End If
           If Cells(N, i) = "" Then
     Cells(T, i) = "7"
          End If
           If Cells(M, i) = "" Then
     Cells(T, i) = "6"
          End If
           If Cells(L, i) = "" Then
     Cells(T, i) = "5"
          End If
           If Cells(K, i) = "" Then
     Cells(T, i) = "4"
          End If
           If Cells(J, i) = "" Then
     Cells(T, i) = "3"
          End If
           If Cells(i, i) = "" Then
     Cells(T, i) = "2"
          End If
           If Cells(H, i) = "" Then
     Cells(T, i) = "1"
          End If
           If Cells(G, i) = "" Then
     Cells(T, i) = "0"
          End If
     Next

End Sub

最佳答案

月排行榜 / 总排行榜

qh8600

2015-6-13 17:12

haohaizi007 发表于 2015-6-13 16:56
感谢老师回复。

按照老师指点，改成

If Cells(i, "R") = "√" Or cells(i,"R")="△" Then
改成这样

跳转到最佳答案楼层

qh8600

cells(行，列)，行列是数字和变量的不用引号的，字母就要加引号

haohaizi007

qh8600 发表于 2015-6-13 16:39
cells(行，列)，行列是数字和变量的不用引号的，字母就要加引号

感谢老师回复。

按照老师指点，改成

Sub 宏5()
'
'宏5 宏
Dim i As Integer
For i = 4 To 429

If Cells(i, "R") = "√" Or "△" Then
     Cells(i, "T") = "12"
     End If
If Cells(i, "R") = "" Then
     Cells(i, "T") = "11"
          End If
If Cells(i, "Q") = "" Then
     Cells(i, "T") = "10"
          End If
           If Cells(i, "P") = "" Then
     Cells(i, "T") = "9"
          End If
           If Cells(i, "O") = "" Then
     Cells(i, "T") = "8"
          End If
           If Cells(i, "N") = "" Then
     Cells(i, "T") = "7"
          End If
           If Cells(i, "M") = "" Then
     Cells(i, "T") = "6"
          End If
           If Cells(i, "L") = "" Then
     Cells(i, "T") = "5"
          End If
           If Cells(i, "K") = "" Then
     Cells(i, "T") = "4"
          End If
           If Cells(i, "J") = "" Then
     Cells(i, "T") = "3"
          End If
           If Cells(i, "I") = "" Then
     Cells(i, "T") = "2"
          End If
           If Cells(i, "H") = "" Then
     Cells(i, "T") = "1"
          End If
           If Cells(i, "G") = "" Then
     Cells(i, "T") = "0"
          End If
     Next

End Sub



运行时候出现  类型不匹配

点击调试 红色字体标成了黄色。

qh8600

haohaizi007 发表于 2015-6-13 16:56
感谢老师回复。

按照老师指点，改成

If Cells(i, "R") = "√" Or cells(i,"R")="△" Then
改成这样

haohaizi007

qh8600 发表于 2015-6-13 17:12
If Cells(i, "R") = "√" Or cells(i,"R")="△" Then
改成这样

完美解决，非常感谢您的指导。