Excel VBA-如果列B包含任何值，则使用值更新列A。 如果列B不包含任何值，则不要运行宏

Question

In my scenario I have four columns, columns AD. If column B contains any value whatsoever then the matching row in column A must be updated to contain a predetermined value. The same macro is applied for columns C and D. I have code right now that achieves that result:

Sub Update_Column_Based_On_Column_Value1()
On Error Resume Next
    Dim ws As Worksheet
    Dim lRow As Long

    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        lRow = .Range("B" & .Rows.Count).End(xlUp).Row

        .Range("A1:A" & lRow).SpecialCells(xlCellTypeBlanks).Formula = "=If(B1<>"""",""PREDETERMINED VALUE"","""")"
        .Range("A1:A" & lRow).Value = .Range("A1:A" & lRow).Value
    End With
End Sub

When column B contains a value the macro will write "PREDETERMINED VALUE" in the corresponding cell in column A.

An issue occurs when a column does not contain any values at all. What happens is the macro will write my new value to nearly all of the blank cells in the entire data-set.

Thank you in advance for your time! I apologize if my question is noobish, I am still very new to VBA.

Answer 1

The use of If WorksheetFunction.CountA(ws.Range("B:B")) = 1 in the comment section to avoid the problem is a good attempt but there can be exceptions as discussed below. Test it several times using various scenarios (especially using blank range) to see if you are getting the desired result every single time.

.SpecialCells attempts to simplify the codes, however sometime the .SpecialCells(xlCellTypeBlanks) VBA function does not work as expected in Excel .

Also, the statement On Error Resume Next shouldn't be used as far as practicable. But if you must, be sure to insert the On Error GoTo 0 statement ASAP as you don't want to mask other errors.

Instead of .SpecialCells , you may use For Each loop to avoid this problem. So let's see how it looks:

Sub Update_Column_Based_On_Column_Value1()
    Dim ws As Worksheet, lRow As Long, r As Range
    Set ws = ThisWorkbook.Sheets("Sheet1")
    With ws
        lRow = .Range("B" & .Rows.Count).End(xlUp).Row
        For Each r In .Range("A1:A" & lRow)
            If IsEmpty(r) Then
                r.Formula = "=If(B" & r.Row & "<>"""",""PREDETERMINED VALUE"","""")"
                r = r.Value
            End If
        Next
    End With
End Sub

Answer 2

Here is the answer everyone!

Sub Update_Column_Based_On_Column_Value_1()
    On Error Resume Next
        Dim ws As Worksheet
        Dim lRow As Long

        Set ws = ThisWorkbook.Sheets("Sheet1")

        If WorksheetFunction.CountA(ws.Range("B:B")) = 1 Then

        Else

            With ws
                lRow = .Range("B" & .Rows.Count).End(xlUp).Row
                .Range("A1:A" & lRow).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=If(LEN(RC2),""NEW TEXT HERE"", TEXT(,))"
                .Range("A1:A" & lRow).Value = .Range("A1:A" & lRow).Value
            End With
        End If
    End Sub