可以使用Excel VBA编写代码来实现该功能。下面的代码示例演示如何在多个选项卡中巩固最后一列：

Sub ConsolidateLastColumn()
    Dim ws As Worksheet
    Dim LastColumn As Long, i As Long
    
    '获取最后一列的列号
    LastColumn = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
    
    '在每个选项卡中，从第二行开始向最后一列复制最后一列的数据
    For Each ws In ActiveWorkbook.Worksheets
        For i = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
            ws.Cells(i, LastColumn + 1).Value = ws.Cells(i, LastColumn).Value
        Next i
    Next ws
End Sub

该代码遍历活动工作簿中的每个工作表，并将每个工作表中最后一列的数据复制到最后一列的下一列中。请注意，此代码使用活动工作簿和第一个工作表作为参考点，因此您可能需要根据情况进行自我调整。