我想在每行前批量插入若干行，怎么办？求助高手，多谢。

dunayouxiang

我想在每行前批量插入若干行，怎么办？求助高手，多谢。

dunayouxiang

着急用，谢谢大家：）新年快乐

KARLOER1025

请预览看一下。

心电感应

求助.zip (4.89 KB, 下载次数: 24)

2011-2-8 12:30 上传

点击文件名下载附件

dunayouxiang

我是想在一页上打印若干个人的

dunayouxiang

不太懂，咋弄：（

dunayouxiang

我是想在一页上打印若干个人的

clevergg

添加一列，填上序号，再以该列排序。详见附件

佛山小老鼠

楼主给你一个现成的，用VBA做的

佛山小老鼠

Sub InSertRows_1()
     Dim i As Integer
     Dim M As Integer
     Dim A As Integer
     A = InputBox("请输入你要隔多少行?", "行数值")
    B = InputBox("请输入你插入多少行?", "行数值")
     
     For M = A + 1 To 60 Step A + B
     For i = 1 To B
         Sheet1.Rows(M).Insert
     Next i
     Next M
  End Sub

Sub aa()
On Error Resume Next
Application.CommandBars("CELL").Controls("插入行").Delete
Dim cd As CommandBarButton
Set cd = Application.CommandBars("CELL").Controls.Add(Type:=msoControlButton, BEFORE:=1)
    With cd
          .Caption = "插入行"
          .FaceId = 609
          .OnAction = "InSertRows_1"
   End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("CELL").Controls("插入行").Delete
End Sub

Private Sub Workbook_Open()
Call aa
End Sub