[已解决]插入空列

642070295

麻烦老师帮写个代码，要求说明在附件sheet2表里，谢谢了！ 工作簿8.rar (10.5 KB, 下载次数: 12)

2013-11-19 15:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

baksy

2013-11-19 16:20

请复制以下宏，
在sheet1中建立控制按钮
指定给控制按钮以下宏名
注意:运行时把你写的最后一行的说明删除后运行。

Public Sub Insert()
    M = UsedRange.Rows.Count  '最后一行
    Sheet2.Select  '选择工作表2
    ActiveSheet.Rows(M - 2).Insert  '小于最后一行行号2的单元格前插入行
    Sheet1.Select  '返回工作表1
End Sub

*附件中的sheet1与系统sheet1不符，请从新建立文件。

跳转到最佳答案楼层

hoogle

Sub 宏1()
    Sheets("Sheet2").Select
    Columns(Range("xfd1").End(xlToLeft).Offset(0, -3).Column).Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

baksy

请复制以下宏，
在sheet1中建立控制按钮
指定给控制按钮以下宏名
注意:运行时把你写的最后一行的说明删除后运行。

Public Sub Insert()
    M = UsedRange.Rows.Count  '最后一行
    Sheet2.Select  '选择工作表2
    ActiveSheet.Rows(M - 2).Insert  '小于最后一行行号2的单元格前插入行
    Sheet1.Select  '返回工作表1
End Sub

*附件中的sheet1与系统sheet1不符，请从新建立文件。

薄荷语冰

还得多学习，都看不懂哦！