Sub 插入行() Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromRightOrBelowEnd SubSub AddRightClickMenu() With Application.CommandBars("cell") .Reset With .Controls.Add(Type:=msoControlButton) .Caption = "插入行" .BeginGroup = True .OnAction = "插入行" End With End With