Question

我有这个代码，它将在A列中找到空白单元格，并以红色突出显示它们。然后，msgbox将使用＆＃34; Address＆＃34;显示空白单元格的位置。例如，它将显示：＆＃34;没有价值，在$ A $ 15＆＃34;。

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

我需要帮助： 对于将弹出并找到空白单元格的每条消息，我想复制，例如，价值＆＃34; $ A $ 15＆＃34;显示在邮件中并将其粘贴到同一工作簿中另一个工作表的A列中。

如果有人帮我这个，我真的很感激。提前谢谢。

Answer 1

在msgbox之后放了这个：

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

确保你有一张名为Log的工作表，它将填充

Excel VBA：复制单元格＆＃34;地址＆＃34;消息内容到新工作表

1 个答案: