VBA删除整行莫名基妙全删除

zhangqinghua88

具体表格内容见附件！
问题类型：
1.我在使用VBA程序删除该表格A列含有FNV关键字的整行时，因是VBA小白，先用简单公司将FNV提取出来；
2.然后在论坛里找到删除指定内容单元格的VBA代码，测试新建一个表格有效；
3.放到我上传的附件里运行，就全部给我删除了；
求求各位大神帮我看一下什么原因。
万分感谢！！！
论坛里找到使用的代码如下：
Sub RowsDelete()
    Dim rng As Range, i%, str$, strMyr$
    strMyr = "FNV"
    For i = 5 To Cells(Rows.Count, 1).End(3).Row
        str = IIf(Cells(i, 2) <> "", Cells(i, 2), IIf(Cells(i - 1, 2) <> "", Cells(i - 1, 2), str))
        If InStr(strMyr, str) Or Cells(i, 4) = "" Then
            If rng Is Nothing Then
                Set rng = Cells(i, 1)
            Else
                Set rng = Union(rng, Cells(i, 1))
            End If
        End If
    Next
    If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub

不知道为什么

1. Sub RowsDelete()
   
2.     Dim rng As Range, i%, str$, strMyr$
   
3.     strMyr = "FNV"
   
4.     For i = 5 To Cells(Rows.Count, 1).End(3).Row
   
5.         
   
6.         If InStr(Cells(i, 1), strMyr) Then
   
7.             If rng Is Nothing Then
   
8.                 Set rng = Cells(i, 1)
   
9.             Else
   
10.                 Set rng = Union(rng, Cells(i, 1))
    
11.             End If
    
12.         End If
    
13.     Next
    
14.     If Not rng Is Nothing Then rng.EntireRow.Delete
    
15. End Sub

复制代码

zhangqinghua88

不知道为什么 发表于 2020-3-9 21:30

大神，请问能告诉我原来那个代码的问题出现在哪里吗，为什么会全部删除啊？谢谢了啊

zhangqinghua88

不知道为什么 发表于 2020-3-9 21:30

我是小白，如果大佬能在每个后面注释下代码意思不好了，非常感激

mmwwdd

你抄的那个代码思路不对

YZC51

zhangqinghua88 发表于 2020-3-9 22:22
我是小白，如果大佬能在每个后面注释下代码意思不好了，非常感激

请参考
Sub RowsDelete()                                                                '子程序 RowsDelete()
    Dim rng As Range, i%, str$, strMyr$                                         '定义变量 rng为 单元格区域,i%,str$,strMyr$
    strMyr = "FNV"                                                              'strMyr="FNV"
    For i = 5 To Cells(Rows.Count, 1).End(3).Row                                '设定变量范围为i=5到<单元格坐标>行数值,1 )的<末端>3 )的行标
        If InStr(Cells(i, 1), strMyr) Then                                      '如果 <正向判断字符串出现位置><单元格坐标>i,1),strMyr)则执行
            If rng Is Nothing Then                                              '如果 rng是 空值则执行
                Set rng = Cells(i, 1)                                           '设定rng=<单元格坐标>i,1)
            Else                                                                '否则
                Set rng = Union(rng, Cells(i, 1))                               '设定rng=Union(rng,<单元格坐标>i,1))
            End If                                                              'If判断过程结束
        End If                                                                  'If判断过程结束
    Next                                                                        '下一个
    If Not rng Is Nothing Then rng.EntireRow.Delete                             '如果 非 rng是 空值则执行  rng的全部行的删除
End Sub                                                                          '子程序结束

zhangqinghua88

YZC51 发表于 2020-3-10 09:25
请参考
Sub RowsDelete()                                                                '子程序 Ro ...

灰常灰常的感谢。。。

zhangqinghua88

mmwwdd 发表于 2020-3-10 05:54
你抄的那个代码思路不对

好吧，谢谢，但让我奇怪的是在人家的表格上或者我自己新建一个表格，随便整几个值就是对的，放到我要用的这个表格上就不对了。。。。

liulang0808

zhangqinghua88 发表于 2020-3-10 11:14
好吧，谢谢，但让我奇怪的是在人家的表格上或者我自己新建一个表格，随便整几个值就是对的，放到我要用的 ...

楼主要对应自己的表格数据去看
cells(i,2)是针对第二列数据处理，i对应行，2是列。
instr函数楼主查下帮助，字符串再前后有区别的
str这个逻辑关系楼主好好理解下

zhangqinghua88

liulang0808 发表于 2020-3-10 13:59
楼主要对应自己的表格数据去看
cells(i,2)是针对第二列数据处理，i对应行，2是列。
instr函数楼主查下 ...

好的，非常感谢啊