i = Cells(1, 1000).End(xlToLeft).Column '获取最后一列非空列的列号 '下面是依次复制最后8列并粘贴到前面 For a = 1 To 8 Columns(i).Copy '复制最后一列 Range("A:A").Insert shift:=xlToRight '插入A列 Range("A:A").PasteSpecial '粘贴最后列 Columns(i + 1).Delete '删除最后...