Excel 删除行和列，直到指定范围

我有一个Excel工作簿，我在其中使用

.Find

搜索标题中的日期

例如，如果它位于

范围（“C3”）

中，那么它应该删除上方的行和前面的列

请帮助我编写VBA代码以执行此操作

Dim WSD As Worksheet
Set WSD = Worksheets("report")
Dim MyRange As Range
Set MyRange = WSD.Range("A:AZ")
Set R = MyRange.Find("Date", LookIn:=xlValues)
Debug.Print R.Address

试试看

试试看

另一种方式：

Dim MyRange  As Range
With Worksheets("report")
    Set MyRange = .Range("A:AZ").Find("Date", LookIn:=xlValues)
    If Not MyRange Is Nothing Then MyRange.Resize(.UsedRange.Rows.Count + MyRange.Row, .UsedRange.Columns.Count + MyRange.Column).Cut Destination:=.Range("A1")
End With

或

另一种方式：

Dim MyRange  As Range
With Worksheets("report")
    Set MyRange = .Range("A:AZ").Find("Date", LookIn:=xlValues)
    If Not MyRange Is Nothing Then MyRange.Resize(.UsedRange.Rows.Count + MyRange.Row, .UsedRange.Columns.Count + MyRange.Column).Cut Destination:=.Range("A1")
End With

或

---

所以，出于所有的意图和目的，你们将日期转移到A1…？是的。我希望我的标题从1行1列开始。我的宏包含许多模块，它基于A1。其余的都只在一张纸上完成了，我的进度暂停了。所以出于所有的意图和目的，你们把日期改为A1…？是的。我希望我的标题从1行1列开始。我的宏包含许多模块，它基于A1。其余的都只完成了一张，我的进度暂停了。非常感谢@Jeeped。我真的很感谢你的支持。它确实解决了我的问题。非常感谢你@Jeeped。我真的很感谢你的支持。它确实解决了我的问题。

Dim MyRange  As Range
With Worksheets("report")
    Set MyRange = .Range("A:AZ").Find("Date", LookIn:=xlValues)
    If Not MyRange Is Nothing Then
        .Rows(1).Insert
        .Columns(1).Insert
        With .Range("A1", MyRange)
            .Resize(, .Columns.Count - 1).EntireColumn.Delete
            .Resize(.Rows.Count - 1).EntireRow.Delete
        End With
    End If
End With