将每个表格的最后一列导出到文本文件中

我有一个Excel电子表格与许多选项卡。 我想导出每个工作表的最后一列在一个文本文件（都在同一个文件中，第二张纸的第一行必须紧接在第一张纸的最后一行之后）。

问题是从一个表格到另一个表格的列数发生了变化。 最后一列的编号可以由第一行的最后一个非空单元给出。

我已经看到如何写在一个文件，但我无能为力如何遍历表和行…

任何帮助是受欢迎的。 谢谢。

Answer 1

您可以使用以下代码find最后一个单元格：

Sub LastCellInRow() Range("IV1").End(xlToLeft).Select End Sub 

您可以使用Worksheets集合遍历每个Worsheet：

 Sub LoopThroughSheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets '** Perform code here ** Next ws End Sub 

Answer 2

这工作：

 Dim r As Range Dim s As Worksheet Dim wbSource As Workbook Dim wbDestination As Workbook Dim lastcol As Long Dim lastrow As Long Dim cumrow As Long Dim i As Long Set wbSource = ActiveWorkbook Set wbDestination = Workbooks.Open("C:\destination.xls") cumrow = 0 For Each s In wbSource.Worksheets lastcol = s.Cells(1, s.Columns.Count).End(xlToLeft).Column lastrow = s.Cells(s.Rows.Count, lastcol).End(xlUp).Row Set r = s.Cells(1, lastcol).Resize(lastrow, 1) ' This is your column ' Copy it to appropriate location on destination sheet wbDestination.Sheets(1).Cells(cumrow + 1, 1).Resize(lastrow, 1) = r cumrow = cumrow + lastrow Next s 

以上是在video会议中编写和testing的！