请帮助修改成变量型的

lvmou

Sub Macro1()
'
    Dim i As Integer
For i = 2 To 20
'If InStr(Range("b2"), "TD") > 0 Then [q2] = "1-Td" Else [r2] = 5   这个能实现预期，b2包含TD则“1-TD”，否则“5”
If InStr(Range("B" & i), "TD") > 0 Then ["Q" & i] = "1-Td" Else ["R" & i] = 5   希望能修改成b2到b20行，执行报错，错误“424”，要求对象
Next
'
End Sub

清风竹-

Sub Macro1()
Dim i As Integer
For i = 2 To 20
  If InStr(Range("B" & i), "TD") > 0 Then Cells(i, "Q") = "1-Td" Else Cells(i, "R") = 5
Next
End Sub
试试

lvmou

清风竹- 发表于 2015-5-11 18:11
Sub Macro1()
Dim i As Integer
For i = 2 To 20

谢谢，就是这个

lvmou

清风竹- 发表于 2015-5-11 18:11
Sub Macro1()
Dim i As Integer
For i = 2 To 20

您好：谢谢您的帮助。麻烦你推荐个vba的教程吧，知道的太少了。网上搜了几个教程，不太实用。