清除从 A 列中下一个空白单元格开始的特定范围内的所有单元格

Question

我正在尝试在 excel 中编写一些 VBA，它将清除从 A 列中的下一个空单元格开始的所有单元格（数据从 A2 开始）。例如，如果 A5 为空白，那么我希望 A5:P300 全部被清除（如所有公式和数据都消失了）。依此类推...所以如果 A20 为空白，则它会从 A20:P300 中删除所有内容..

我将如何写这篇文章？我还需要它来引用活动工作簿，但需要一个名为 ("Develop") 的特定工作表。

感谢您提供的任何帮助。

Sub Clear()

Dim x As Worksheet
Dim rng, cell As Range

Set x = ThisWorkbook.Worksheets("R&DCosts(2)")

Set rng = x.Range("A2:A340").Cells(Rows.Count, 1).End(xlUp)

  For Each cell In rng
   If cell.Value = "" Then

      x.Range(cell.Address & ":P350").ClearContents
      End

    End If

  Next cell

 End Sub

Answer 1

请试试这个代码：

Sub clearRange_Bis()
  Dim sh As Worksheet, firstEmpt As Long
  Set sh = ThisWorkbook.Worksheets("R&DCosts(2)")
  firstEmpt = sh.Range("A1").End(xlDown).Row + 1
    If firstEmpt > 1000000 Then
        sh.Range("A2:P300").Clear
    Else
        sh.Range("A" & firstEmpt  & ":P300").Clear
    End If
End Sub

Answer 2

更简单的解决方案

Option Explicit

Sub Clear()

 Dim x As Worksheet
 Dim rng, cell As Range

 Set x = ThisWorkbook.Worksheets("RDCosts(2)") ' you cannot use "&"

 Set rng = x.Range("A2:A340", Cells(Rows.Count, 1).End(xlUp))

 For Each cell In rng
    If cell.Value = "" Then

        x.Range(cell.Address & ":P350").ClearContents
        End

    End If

 Next cell

 End Sub