vba - 复制不同工作表的最后一列，然后合并为一张工作表

Question

首先，对不起我糟糕的英语和计算机技能。
我正在为参加一些学校团队(> 50)而努力。
每个团队都有自己的表格来参加。
每个团队都有不同的训练日期和次数。
我正在尝试将不同工作表中的所有数据合二为一，并且我做到了。
但问题是我想检查前一天训练的球队的出勤率。由于训练日期和人数不同，不同队伍的出勤记录出现在不同的栏目上。我只是想要求所有的团队在一个特定的地方插入一个新的列来参加。但我希望我可以使用“Lastcolumn”或其他方法来解决这种愚蠢的情况。

我的愚蠢解决方案:
1、合并所有表
2、清除除最新数据外的所有数据
3、过滤“ABS”
4、选择昨天人工训练的队伍

Sheets(Sheets.Count).Select
    Range("A1").Select

    For i = 1 To Sheets.Count - 2
        Sheets(i).Select
        Range("A1").Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets(Sheets.Count - 1).Select
        lastrow = Cells(1, 1).End(xlDown).Row
        Range("A" & (lastrow + 1)).Select
        ActiveSheet.Paste
    Next i
'
'
    Columns("F:BB").Select
    Selection.ClearContents
    Range("A4:E4").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$4:$E$37").AutoFilter Field:=5, Criteria1:="ABS"

End Sub

Answer 1

如果您可以粘贴考勤表的格式，这将有助于我们回答您的问题。但是，似乎此解决方案可能会起作用。

替换行

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False

在你的代码中

Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlDown)).Select

假设 A 行中的所有单元格都具有要复制的列的值。