[已解决]代码编写提示不匹配

晨雨1104

初学者，请教各位老师判断语句中如何用变量循环
Sub t1()Dim x As Integer
For x = 2 To 8
  If VBA.InStr(Range(Cells("x", 1), "")) Then
     Cells("x", 2) = ""
  Else
     Cells("x", 2) = ""
  End If
  Next x
End Sub

最佳答案

月排行榜 / 总排行榜

mathking77

2016-8-12 16:35

晨雨1104 发表于 2016-8-12 16:23
谢谢你的回复，这样是做出来了，很感谢。但如果我要同时把里面别的不是“辛丰”的内容改成别的，可以做到 ...

Sub t1()
Dim x As Integer
For x = 2 To 8
  If InStr(Cells(x, 1), "辛丰") Then
     Cells(x, 2) = "辛丰"
  ElseIf InStr(Cells(x, 1), "国信宜和") Then
     Cells(x, 2) = "国和"
  Else
     Cells(x, 2) = ""
  End If
  Next
End Sub

跳转到最佳答案楼层

mathking77

lz是想要什么效果？ 包含“幸丰” 字样 就显示“幸丰”，还是 是“幸丰”的单元格 对应显示“幸丰”？
变量“x”不需要加引号

mathking77

Sub t1()
Dim x As Integer
For x = 2 To 8
  If InStr(Cells(x, 1), "辛丰") Then
     Cells(x, 2) = "辛丰"
  Else
     Cells(x, 2) = ""
  End If
  Next
End Sub

晨雨1104

mathking77 发表于 2016-8-12 16:15
Sub t1()
Dim x As Integer
For x = 2 To 8

谢谢你的回复，这样是做出来了，很感谢。但如果我要同时把里面别的不是“辛丰”的内容改成别的，可以做到吗

mathking77

晨雨1104 发表于 2016-8-12 16:23
谢谢你的回复，这样是做出来了，很感谢。但如果我要同时把里面别的不是“辛丰”的内容改成别的，可以做到 ...

Sub t1()
Dim x As Integer
For x = 2 To 8
  If InStr(Cells(x, 1), "辛丰") Then
     Cells(x, 2) = "辛丰"
  ElseIf InStr(Cells(x, 1), "国信宜和") Then
     Cells(x, 2) = "国和"
  Else
     Cells(x, 2) = ""
  End If
  Next
End Sub