VBA如果工作表1上的单元格（或范围）包含任何值，则清除工作表2上的单元格范围内容

Question

I am trying to achieve something which would be quite simple for you guys but proving a bit difficult for myself as beginner.

I am try to create script for following example:

"If Cells A1:A4 on sheet1 contain ANY value (text or int) then clear A1:A4 on sheet2"

I tried to construct few scripts but all failed.

Many thanks!

Answer 1

Try this

Sub Clear()
 If Not IsEmpty("A1") And Not IsEmpty("A2") And Not IsEmpty("A3") And Not IsEmpty("A4") Then
    Range("A1:A4").Clear
 End If
End Sub

Answer 2

How about:

Sub ClearCell()
    Dim r As Range

    For Each r In Sheets("Sheet1").Range("A1:A4")
        If r.Value <> "" Then Sheets("Sheet2").Range(r.Address).Clear
    Next r
End Sub

This assumes you need the check to be cell-by-cell.

Answer 3

Here's a one liner, the cell value is counted when it is an Empty String.

    Public Sub ClearRange()
        If Application.WorksheetFunction.CountIf(Range("a1:a4"), "<>") > 0 Then Range("a1:a4").ClearContents
    End Sub