excel - 将每张纸的最后一列导出到文本文件中

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