excel - 将 3 个 Excel 列插入 1 个标签

Question

我有三列数据。有没有办法使用 vba 将信息插入到 userForm 上的标签中？

这是我拥有的更新代码：

Dim rowNum As Integer
Dim lastRow As Integer
lastRow = 373

For rowNum = 2 To lastRow

report = Sheets("DATA2").Range("F" & rowNum).Text & _
"      " & Sheets("DATA2").Range("G" & rowNum).Text & _
"      " & Sheets("DATA2").Range("H" & rowNum).Text & vbCrLf

Next rowNum

End Sub

Answer 1

尝试：

Dim rowNum as Integer 'loop counter  
Dim lastRow as Integer
lastRow = 'some code to set the row number of the bottom row

For rowNum = 1 to lastRow
    With ActiveWorksheet
        myLabel.Text = myLabel.Text & .Range("A" & rowNum).Text & " " & .Range("B" & rowNum).Text & " " & .Range("C" & rowNum).Text & vbCrLf
    End With
Next rowNum

编辑

更新为附加每个循环而不是覆盖

Answer 2

假设您的标签可以处理多行，您可以编写一个循环来遍历每一列数据并将其作为新行附加到字符串，然后将该标签的文本字段设置为您创建的字符串。