★２５９个常用宏★(7月11日更新)

xx4266236

谢谢版主,辛苦了!

llehs

谢谢!!

wzyhome

好东西，收藏了，谢谢版主

sxyun

谢谢版主,辛苦了!

ychh_wy

Sub 复制单元格所在行()
    Selection.EntireRow.Copy

Sub 删除单元格所在行()
    Selection.EntireRow.Delete

Sub 复制单元格所在列()
    Selection.EntireColumn.Copy

Sub 删除单元格所在列()
    Selection.EntireColumn.Delete

Sub 新建一个工作表()
    Sheets.Add

Sub 新建一个工作簿()
    Workbooks.Add
组合后Sub 复制单元格所在行至新工作表()
    Application.ScreenUpdating = False
    Selection.EntireRow.Copy
    Sheets.Add
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
End Sub

Sub 复制单元格所在行手动粘贴()
    Application.ScreenUpdating = False
    Selection.EntireRow.Copy
End Sub

不能对工作簿中的全部工作表操作

ychh_wy

关闭屏幕更新及保护眼睛

Application.ScreenUpdating = False

LangQueS

谢谢ychh_wy兄！以下宏近日将添加到1楼附件。

Sub 复制单元格所在行()
    Selection.EntireRow.Copy
End Sub

Sub 复制单元格所在列()
    Selection.EntireColumn.Copy
End Sub

Sub 新建一个工作表()
    Sheets.Add
End Sub

Sub 新建一个工作簿()
    Workbooks.Add
End Sub

小学二年级

多谢版主!

bdwoaini

谢谢版主，辛苦了！！！！！

xrczld

正在下,下谢谢你的劳动拉