Excel VBAsearch和删除

所以我使用1dcutx程序，发射信息的电子表格。 目前，我已经删除了一些单元格，然后将它们重新命名为页面。 有些东西改变位置，就像每张电子表格都不一样。 因此，我需要的是一种search和删除该单元格的方法，在某些情况下还可以在其左侧单元格中进行search和删除。

例如：利用率，％：在一个单元格中62.74将在这个量的变化旁边。

所以我需要一个search和删除，让它select左边的单元格，并删除该单元格。

这是我到目前为止

Sub Macro1() ' ' Macro1 Macro ' ' Sheets("1D_report").Select Rows("3:9").Select Selection.Delete Shift:=xlUp Range("E1:F2").Select Selection.ClearContents Columns("H:H").Select Selection.ClearContents Sheets("1D_report").Select Sheets("1D_report").Name = "s_report" End Sub 

Answer 1

试试这个：

 Sub asdf() Dim r As Range Set r = Cells.Find(What:="Utilization, %", After:=Range("A1")) Range(r, r.Offset(0, 1)).Clear End Sub 

编辑：

如果要将单元格清除到find的单元格的左侧，请使用：

偏移（0，-1）

代替：

偏移（0,1）

EDIT2：

我喜欢几个短的macros而不是长的macros，所以我会使用类似于：

 Sub MAIN() Call Macro1 Call asdf End Sub 

EDIT3：

试试这个版本 – 你得到的错误信息？

 Sub asdf() Dim r As Range Dim s As String s = "Utilization, %" Set r = Cells.Find(What:=s, After:=Range("A1")) If r Is Nothing Then MsgBox s & " could not be found" & vbCrLf & "I'am going on break" Exit Sub End If Range(r, r.Offset(0, 1)).Clear End Sub