求助各位大大一段简单的代码不知道为什么没效果

skyzxh · 发表于 2017-10-22 19:30

应该是InStr(Cells(11, i), "蓝色") 这样吧？前面参数1是啥意思？

martinchen99 · 发表于 2017-10-22 19:38

我也是在想 instr的用法，1 这是什么意思呢？

xyxcc177 · 发表于 2017-10-22 19:47

For i =  [a65535].End(xlUp).Row  TO 3 STEP-1
      If InStr(1, Cells(11, i), "蓝色") <> 0 And Cells(12, i) = "" And Cells(13, i) = "" And Cells(14, i) = "" Then
            Rows(i).Delete
   End If
  Next iEND SUB
instr函数用错，instr(串1，串2），返加串2在串1中的出现的位置，你用了3个参数，cells(11,i)中，i 表示列数，你求出的i代表的是行数。

lsc900707 · 发表于 2017-10-22 19:50

本帖最后由 lsc900707 于 2017-10-22 19:51 编辑

1、没分清变量i到底是行还是列
2、这样删除行要倒循环。
Sub kb()
For i = Cells(Rows.Count, 1).End(3).Row To 3 Step -1
   If InStr(Cells(i, 11), "蓝色") = 0 And Cells(i, 12) = "" And Cells(i, 13) = "" And Cells(i, 14) = "" Then
         Rows(i).Delete
   End If
  Next
  End Sub

y1230305 · 发表于 2017-10-22 20:41

已经明白怎么回事了感谢各位相助，特别感谢版主指点

		自动登录	找回密码
密码			免费注册

[已解决] 求助各位大大一段简单的代码不知道为什么没效果

评分

评分

评分

最新热点 /1

[已解决] 求助各位大大 一段简单的代码不知道为什么没效果

评分

评分

评分

最新热点 /1

[已解决] 求助各位大大一段简单的代码不知道为什么没效果