[已解决]修改VBA代码

superle!

1. Private Sub CommandButton1_Click()
   
2. For i = 2 To 403
   
3. If InStr(Range("B" & CStr(i)).Text, "夹克") > 0 Then
   
4.       Rows(CStr(i) & ":" & CStr(i)).Select
   
5.       Selection.delete shift:=xlUp
   
6.       i = i - 1
   
7.   End If
   
8. Next i
   
9. End Sub

复制代码

这是一段查找行符合相同的值删除，一次实现代码只能实现一个词或词组，如果实现多个词符合的都删除，应该怎么修改？

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-11 16:17

1. Sub 替换()
   
2. w = Array("中老年", "超夹")
   
3. For i = 0 To UBound(w)
   
4.     [b2:b403].Replace "*" & w(i) & "*", ""
   
5. Next
   
6. [b2:b403].SpecialCells(xlCellTypeBlanks).EntireRow.delete
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. w = Array("夹克", "体恤衫")
   
3. For i = 0 To UBound(w)
   
4.     [b2:b403].Replace w(i), ""
   
5. Next
   
6. [b2:b403].SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
   
7. End Sub
   

复制代码

superle!

dsmch 发表于 2014-5-11 14:47

我要的是一个单元格包含的相同值，然后删除单元格所在的整行。

su45

楼上思路不错，先把相关格替换为空，然后再删除空格

superle!

dsmch 发表于 2014-5-11 14:47

还是有问题

1. Sub CommandButton1_Click()
   
2. w = Array("薄", "2014")
   
3. For i = 0 To UBound(w)
   
4.     [b2:b403].Replace w(i), ""
   
5. Next
   
6. [b2:b403].SpecialCells(xlCellTypeBlanks).EntireRow.delete
   
7. End Sub

复制代码

superle!

dsmch 发表于 2014-5-11 14:47

符件已上传，请帮忙下，谢谢

dsmch

1. Sub 替换()
   
2. w = Array("中老年", "超夹")
   
3. For i = 0 To UBound(w)
   
4.     [b2:b403].Replace "*" & w(i) & "*", ""
   
5. Next
   
6. [b2:b403].SpecialCells(xlCellTypeBlanks).EntireRow.delete
   
7. End Sub
   

复制代码