将所有工作表数据打印到用户表单文本框中

我是新的Excel中的VBA，有人可以帮助我理解并告诉我如何打印所有工作表数据到userform文本框，而不是此代码正在打印单列。 我在sheet6（“表格”）中有数据，直到列号AA360

Dim arr As Variant Dim myarr As String Dim i As Long myarr = Sheets("Tables").Range("A:AA").Value For i = LBound(myarr, 1) To UBound(myarr, 1) myarr = myarr & myarr(i, 1) & vbCrLf Next i TextBox1 = myarr 

Answer 1

我认为使用ListBox而不是TextBox会更有用。 将它添加到UserForm1 （它是你的Userform的名称，如果你没有改变它）并添加值：

 With UserForm1.ListBox1 .ColumnCount = 27 .ColumnWidths = "50" .RowSource = "'Tables'!A1:AA360" End With 

您可以在.ColumnWidths操作数值来调整数据。