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

5  

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:

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

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

         '** Perform code here **

    Next ws 
End Sub 

3  

This works:

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

The above was written and tested while on a video conference call!

以上是在视频电话会议上编写和测试的!