VBA检查单元格中的非特定值

Question

我需要excel来检查单元格中是否有文本（B4）以及是否有复制并将单元格（A4）中的任何内容粘贴到新工作簿中。 （B4）中的文字将是7中的3个，4个中的3个等等，但总是会改变。我不知道如何检查保持chaning的值，或者我是否应该检查单元格本身。

Answer 1

此宏将执行复制并使新工作簿保持活动状态：

Sub CheckVal()
    If [B4] <> "" Then
        Set r1 = Range("A4")
        Workbooks.Add
        r1.Copy Range("A4")
    End If
End Sub