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

Question

我有一个包含许多选项卡的Excel电子表格.我想在一个文本文件中导出每个工作表的最后一列(所有在同一个文件中,第二个工作表的第一行必须在第一个工作表的最后一行之后).

事情是从一张纸到另一张纸的列数变化.最后一列的编号可以由第一行上的最后一个非空单元格给出.

我已经看过如何在一个文件中写入,但我对如何迭代表和行无能为力......

欢迎任何帮助.谢谢.

Answer 1

您可以使用以下代码连续找到最后一个单元格:

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