Question

我正在尝试生成一个用户可以从中复制文本的消息框。此消息框应包含两个最后一行单元格值，如下所示：

     -MsgBox-
'First Value: xxxx'
'Second Value: xxxx'

我有以下vba来查找最后一个单元格编号：

Dim Lastrow As String
Lastrow = sumsht.Cells(Rows.Count, 1).End(xlUp).Row

我想将最后一个单元格S和T值输出到用户可以复制文本的消息框中。以下是不正确的，虽然它让你知道我想要做什么。

MsgBox.Range(("S" & Lastrow), ("T" & Lastrow))

编辑：我应该提到我的最后一个'T'单元格包含一个公式。我试图用公式产生的值填充框。

EDIT2：这与this question不同，因为我希望用户能够从框中实际选择文本。此外，我无法破译如何在我的上下文中实际创建输入框（抱歉，我是初学者）。

Answer 1

尝试如下：

Dim Lastrow As String
Lastrow = sumsht.Cells(Rows.Count, 1).End(xlUp).Row

Call MsgBox("First Value: " & sumsht.Range("S" & Lastrow) & vbNewLine & "Second Value: " & sumsht.Range("T" & Lastrow))

使用最后一行单元格值

1 个答案: