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

在消息框函数或其他函数中显示包含文本和值的3x9单元格范围是否需要帮助

---

msgbox sheets.（“解算器”）.范围（“f30:g38”）.值

这将生成并输出从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

---

这只是2 X 9***E30:G38@Gary's student为什么是留言框？用户表单和列表框不是更合适吗？谢谢您的快速响应！我试着复制和粘贴代码，但不起作用@加里的学生发生了什么事？？是否启用了宏？当我运行调试器f8时，它显示“I”和“a”未定义为@gary'sStudentDim“I”和“a”为IntegerPerfect。再次感谢您的快速反馈@加里的学生