将3个Excel列插入到1个标签中

我有三列数据。 有没有办法使用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

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