导入多个带分隔符的得文本文件时生成数组后怎么对数组进行处理?求大神帮忙解决下!Sub 导入文本文件()Dim str, arr, brrWith Application.FileDialog(msoFileDialogFolderPicker)'取得用户选择的文件夹路径.AllowMultiSelect = FalseIf .Show Then p = .SelectedItems(1) Else Exit SubEnd WithIf Right(p, 1) <> "\" Then p = p & "\"f = Dir(p & "*.txt*") '开始遍历工作簿While f <> ""Filename = p & "\" & fOpen Filename For Input As #1str = StrConv(InputB(LOF(1), 1), vbUnicode)Close #1arr = Split(str, Chr(10))'只会生成一维数组,如何变成二维数组录入到单元格中Cells(Rows.Count, 1).End(3).Offset(1).Resize(UBound(arr)) = WorksheetFunction.Transpose(arr)f = DirWendEnd Sub