VBA Excel中的MessageBox

Question

我需要创建一个消息框,显示3个不同的Excel范围.

这是我的数据:

我需要一个看起来像这样的消息框:

单击OK后,它应显示B1:B6,如下所示:

然后再次单击"确定"时,它应显示范围C1:C6.

到目前为止这是我的代码:

Sub Message_Box()

Dim a As Range
Dim sTxt As String

For Each a In ThisWorkbook.Sheets("Sheet1").Range("a1:a6")
sTxt = sTxt & vbLf & a.Value
Next a

MsgBox sTxt

End Sub

Answer 1

Sub Message_Box()

Dim a As Range
Dim t As Integer
Dim sTxt As String

For t = 1 To 3
    For Each a In ThisWorkbook.Sheets("Sheet1").Range(Cells(1, t), Cells(6, t))
    sTxt = sTxt & vbLf & a.Value
    Next a

    MsgBox sTxt
    sTxt = ""

Next t


End Sub