Excel VBA：将单元格“地址”消息内容复制到新工作表

Question

我有这段代码可以在A列中找到空白单元格，并用红色突出显示它们。 然后，msgbox将使用“地址”显示空白单元格的位置。 例如，它将显示：“ $ A $ 15中没有值”。

Sub CeldassinData()

Dim i As Long, r As Range, coltoSearch As String

coltoSearch = "A"

For i = 1 To Range(coltoSearch & Rows.Count).End(xlUp).Row
    Set r = Range(coltoSearch & i)
    If Len(r.Value) = 0 Then
         r.Interior.ColorIndex = 3 ' Red
          r.Select
          MsgBox "No Value, in " & r.Address
    End If
Next
End Sub

我需要以下帮助：对于将弹出并找到空白单元格的每条消息，我想复制例如消息中显示的值“ $ A $ 15”，并将其粘贴到同一工作簿中另一张纸的A列中。

如果有人帮助我，我将非常感激。 先感谢您。

Answer 1

在msgbox之后，输入以下内容：

Sheets("Log").Range("A" & Sheets("Log").Range("A" & rows.count).end(xlup).Row).offset(1,0).formula = r.Address

确保那里有一个名为Log的工作表，它将填充