对表格中所有选中区域插入列，只有在第一个表格操作可以做到，在其他表格中无法操作。

newdby

对表格中所有选中区域插入列，只有在第一个表格操作可以做到，在其他表格中无法操作。想实现在任意表各种对当前表格的选中区域其他表格同步增加相同的列，可以在第一个表格中运行成功，但是后边表格无法运行成功。
Sub 插入列()

    Dim fname As String
    fname = ActiveSheet.Name
    Sheets(fname).Activate
    Worksheets.Select
    Selection.Insert Shift:=xlShiftToRight
    Sheets(fname).Activate
End Sub

shenjianrong163

Sub 插入列()中将Selection.Insert Shift:=xlShiftToRight改为：Selection.Insert Shift:=xlToRight
Sub 删除列()中将Selection.Delete Shift:=xlShiftToLeft改为：Selection.Delete Shift:=xlToLeft