0

所以我使用了 1dcutx 程序，它可以输出带有信息的电子表格。目前我让它删除一些单元格并将它们向上移动，然后重命名页面。有些东西会改变位置，就像每个电子表格都不一样。所以我需要留下的是一种搜索和删除该单元格的方法，在某些情况下，它还包括它左侧的单元格。

示例：利用率，%：在一个单元格中 62.74 会在旁边，但这个数量会发生变化。

所以我需要一个搜索和删除，让它选择左边的单元格并删除那个单元格。

这是我到目前为止所拥有的

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
4

1 回答 1

2

试试这个：

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

编辑：

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

偏移量(0,-1)

代替：

偏移量(0,1)

编辑2：

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

Sub MAIN()
    Call Macro1
    Call asdf
End Sub

编辑3：

试试这个版本 - 你收到错误信息了吗？

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
于 2013-09-20T22:09:46.630 回答