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

我有这个代码将find列A中的空白单元格，并将它们以红色突出显示。 然后，msgbox将使用“Address”显示空白单元格的位置。 例如，它会显示：“没有价值，在$ 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 

我需要帮助：对于每个消息将popup并find一个空白单元格，我想要复制，例如，消息中显示的值$ 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 

确保你有一个名为日志的工作表，它将填充