如何将指定单元格区域值存入变量并在Label.Caption完整显示

我来帮你搞定这个问题！你遇到的核心问题有两个：变量类型错误，以及循环赋值的逻辑没有实现拼接效果，导致最后只显示区域的最后一个值。

问题原因分析 #

1. 变量类型不匹配：你定义的sngNum是Single（单精度数值类型），它只能存储单个数值，根本没法保存带换行的多文本内容，更不能用&来拼接字符串。
2. 循环赋值逻辑错误：第一段代码里，每次循环都用rngNum的值覆盖sngNum，所以循环结束后自然只剩最后一个单元格的值；第二段代码虽然想拼接，但因为变量类型是数值型，拼接操作会出现类型不匹配的隐式转换，结果完全不符合预期。

修正后的代码方案 #

我们需要把存储内容的变量改成String（字符串类型），然后在循环里正确拼接每个单元格的值，同时避免开头出现多余的空行：

Dim strNum As String ' 改成字符串类型，用str前缀更直观
Dim rngNum As Range

' 初始化字符串为空
strNum = ""

If sngEvenavg > sngOddavg Then
    For Each rngNum In Range("A9:A13")
        ' 如果已有内容，先加换行再追加新值；否则直接赋值
        If strNum <> "" Then
            strNum = strNum & vbNewLine
        End If
        strNum = strNum & rngNum.Value ' 明确取单元格值，更稳妥
    Next rngNum
ElseIf sngEvenavg < sngOddavg Then
    For Each rngNum In Range("A47:A51")
        If strNum <> "" Then
            strNum = strNum & vbNewLine
        End If
        strNum = strNum & rngNum.Value
    Next rngNum
End If

' 最后把拼接好的字符串赋值给Label的Caption
Label1.Caption = strNum

另一种简化写法（处理开头换行） #

如果你习惯先拼接所有内容再处理多余换行，也可以这样写：

Dim strNum As String
Dim rngNum As Range

strNum = ""

If sngEvenavg > sngOddavg Then
    For Each rngNum In Range("A9:A13")
        strNum = strNum & vbNewLine & rngNum.Value
    Next rngNum
ElseIf sngEvenavg < sngOddavg Then
    For Each rngNum In Range("A47:A51")
        strNum = strNum & vbNewLine & rngNum.Value
    Next rngNum
End If

' 去掉开头的第一个换行（因为第一次拼接会生成空的开头换行）
If strNum <> "" Then
    strNum = Mid(strNum, Len(vbNewLine) + 1)
End If

Label1.Caption = strNum

关键要点总结 #

• 存储多文本内容一定要用String类型，数值类型（比如Single、Double）只能存单个数值。
• 循环拼接时要注意避免开头/结尾出现多余的换行符，保证显示效果整洁。
• 读取单元格值时，明确写rngNum.Value比直接写rngNum更清晰，也能避免一些隐式转换的问题。

内容的提问来源于stack exchange，提问作者David