Excel 范围矩阵A1:1400个文件中的Q38&；在新工作簿中以单列形式列出A1行，后跟A2行等

1400个单独的excell文件需要从A1:Q38范围内逐行获取每个文件中的所有数据。需要按原始行的顺序将数据列在单列列表中。需要读取行A1:Q1并写入A1:A17，然后读取A2:Q2并写入A18:A34，直到读取每个文件。需要新工作簿中的数据。如果可能，希望忽略将空单元格写入新列表。以下代码将在一个工作表中完成此工作。需要它以编程方式处理1400个文件

Sub readvalues()

row2 = 1
For Row = 1 To 38
For col = 1 To 17
READCELL = Worksheets("sheet1").Cells(Row, col).Value
Worksheets("sheet2").Cells(row2, 1) = READCELL
row2 = row2 + 1
Next col
Next Row

End Sub

---

您需要使用的是

转置

PasteSpecial

允许您使用转置的单元格进行粘贴。（行变为列，列变为行，如在矩阵中）

---

-“需要新工作簿中的数据。”，您是指

工作表

？您需要在目录中循环。这个链接是一个好的开始：。。。搜索<代码>[excel vba]dir继续查找更多问题我的意思是工作表没有新工作簿循环链接感谢并感谢列出的代码将错误34行更改为targetsheet.usedrange.rows它没有运行错误，但我有38个工作表，每张工作表有1列我需要1个工作表在1个工作簿中有1列单列表数据谢谢，但不是很好it@user1771885我不知道编辑后的答案是否有效（我想知道新创建的工作簿的工作表是否可以修改）哦，我想你希望每张工作表有一列，will modifiy！当我运行您发布的调试错误34弹出的原始代码时，我添加了targetsheet。到那条线。然后它没有出现错误，但我最终得到了38个工作表，所有工作表都有一列原始17 x 38矩阵工作表中的数据，但不是。我需要将这些数据作为一列保存在一张工作表中。哦，您的问题，工作表是否可以修改？不确定您的意思，谢谢您希望将数据复制到一张

工作簿中，包含一个
工作表
？
Dim targetWorkbook As Workbook
Dim rowCount As Integer
rowCount = 1

Set targetWorkbook = Workbooks.Add
Application.DisplayAlerts = False
targetWorkbook.SaveAs Filename:="C:/MyData/TransposedRow" & rowCount

ActiveSheet.UsedRange.Cells.Copy
targetWorkbook.Sheets(1).Cells.PasteSpecial Transpose:=True
Application.CutCopyMode = False

rowCount = rowCount + 1