用vba判断单元格b4是否有值，如果有值则查找字符串a中的zxy将其替换成单元格b4中的内容，如果单元格b4中没有值，则查找字符串a中的zxy并且删除

下面是VBA代码实现：

Sub ReplaceOrDelete()
    Dim strA As String
    Dim strB4 As String
    
    strA = "This is a test string containing zxy."
    strB4 = Range("B4").Value
    
    If strB4 <> "" Then
        strA = Replace(strA, "zxy", strB4)
    Else
        strA = Replace(strA, "zxy", "")
    End If
    
    MsgBox strA
End Sub

在这个代码中，我们首先将单元格B4的值赋给变量 `strB4`，然后判断它是否为空。如果不为空，我们就用 `Replace` 函数将字符串A中的 "zxy" 替换成 `strB4`。如果为空，我们就将 "zxy" 替换成空字符串，即删除它。最后，我们用 `MsgBox` 显示替换后的字符串A。