将所有工作表数据打印到userform文本框中

Question

我是excel VBA的新手，有人可以帮我理解并告诉我如何将所有工作表数据打印到userform文本框，而不是打印此代码的单个列。我在sheet6（“Tables”）中有数据，直到列AA 360

  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中的值来调整数据。