如何使用msgbox显示包含文本和值的3X9范围的单元格

Question

寻找一些帮助，在消息框功能中显示带有文本和值的3x9范围的单元格，或者其他功能是否也会这样做？

msgbox表。（＆＃34;解算器＆＃34;）。范​​围（＆＃34; f30：g38＆＃34;）。值

Answer 1

这将从 F30 到 H38 生成和输出细胞：

Sub mesage()
    Dim msg As String
    msg = ""
    For i = 30 To 38
        For Each a In Array("F", "G", "H")
            msg = msg & Cells(i, a).Value & vbTab
        Next a
        msg = msg & vbCrLf
    Next i
    MsgBox msg
End Sub

调整任何合理范围：

修改＃1：

如果您遇到 Dim 问题，那么：

Option Explicit

Sub mesage()
    Dim msg As String, i As Long, a As Variant
    msg = ""
    For i = 30 To 38
        For Each a In Array("F", "G", "H")
            msg = msg & Cells(i, a).Value & vbTab
        Next a
        msg = msg & vbCrLf
    Next i
    MsgBox msg
End Sub