恳请大师们帮忙看下，我这个代码要咋修改成可以清除整行

qiongmei6 · 发表于 2024-11-24 19:17

我附件有个代码，之前我是在表格的第2到第3000，只要第1列的文字是“模板编号" ，他就会将第一列有“模板编号"的单元格变成空白，但是我想改成在第2到第3000，凡是第一列有“模板编号"，“模板编号"所在的那行都变成空白，看了半天都不知道咋修改，因此发上来给大师们看看，谢谢各位大师的指导。

Sub 清除多余题目()
For i = 2 To 3000
For j = 1 To 1
      If Not Cells(i, j).HasFormula And Cells(i, j) = "模板编号" Then
         Cells(i, j) = ""
      End If
Next
Next
End Sub

shiruiqiang · 发表于 2024-11-24 19:58

按照你的要求：

shiruiqiang · 发表于 2024-11-24 20:01

ykcbf1100 · 发表于 2024-11-24 20:01

本帖最后由 ykcbf1100 于 2024-11-24 20:03 编辑

附件供参考。。

ykcbf1100 · 发表于 2024-11-24 20:02

参与一下。。。

romecyf · 发表于 2024-11-24 21:07

将原代码第5行 Cells(i, j) = ""
改为 rows(i) = ""
就可以实现

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

[求助] 恳请大师们帮忙看下，我这个代码要咋修改成可以清除整行

评分

评分

评分