[已解决]删除表格内容

apple_orange

想要删除表格最后6行，另外通过查找找到GY这个单元格，并删除GY及其上面两行。以下为代码：
Sub TEST()
Dim Zx As Long
Dim Kk As String
  With Sheets("1")
  
    Zx = .Range("A65536").End(xlUp).Row
   
    Cells(Zx, "A").Offset(rowOffset:=-6, columnOffset:=13).Delete shift:=xlUp '删除表格最后6行13列
   
    Kk = Range("A:A").Find(What:="GY ").Address '获取此单元格的位置
   
    Cells(Kk+1, "A").Offset(rowOffset:=-3, columnOffset:=13).Delete shift:=xlUp
   
  End With
End Sub
问题：
1.运行后最后6行13列没有删除，为啥？
2.删除GY及其上面2行 代码运行也不对，请高手指导一下。多谢！

最佳答案

月排行榜 / 总排行榜

zjdh

2012-12-21 17:56

Sub TEST()
    Dim Zx&, Kk&
    With Sheets("1")
        Zx = .Range("A65536").End(xlUp).Row
        Cells(Zx - 5, "A").Resize(6, 13).Delete
        Kk = .Range("A:A").Find(What:="GY ").Row
        Cells(Kk - 2, "A").Resize(3, 13).Delete
    End With
End Sub

跳转到最佳答案楼层

hoogle

上传附件说明下问题呗

zjdh

Sub TEST()
    Dim Zx&, Kk&
    With Sheets("1")
        Zx = .Range("A65536").End(xlUp).Row
        Cells(Zx - 5, "A").Resize(6, 13).Delete
        Kk = .Range("A:A").Find(What:="GY ").Row
        Cells(Kk - 2, "A").Resize(3, 13).Delete
    End With
End Sub

apple_orange

感谢两位的热心帮助，代码很有用
我在查找里面加了个循环，可以实现GY全部删除。
    For X= 2 To 5
        Kk = .Range("A:A").Find(What:="GY ").Row
        Cells(Kk - 2, "A").Resize(3, 13).Delete
    Next