vba - VBA Excel 中的消息框

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