Question

I have an Excel spreadsheet with many tabs. I’d like to export the last column of each sheet in a text file (all in the same file, the first line of the second sheet must go just after the last line of the fist sheet).

The thing is the number of columns changes from one sheet to another. The number of the last column can be given by the last non empty cell on the first row.

I’ve seen how to write in a file, but I’m clueless on how to iterate over sheets and rows…

Any help is welcome. Thanks.

Answer 1

You can find the last cell in a row using this code:

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

You can iterate through every Worsheet using the Worksheets collection:

Sub LoopThroughSheets() 
    Dim ws As Worksheet 
    For Each ws In ActiveWorkbook.Worksheets 

         '** Perform code here **

    Next ws 
End Sub