插入.EntireRow.Insert宏只有第一次有用

ry719533094

Public Sub addRow()

Application.DisplayAlerts = False

Dim startRowNo As Integer
Dim startColNo As String
Dim endRowNo As Integer
Dim endColNo As String
Dim changedRowNo As Integer


Dim macroConfigSheet As Worksheet
Set macroConfigSheet = ThisWorkbook.Sheets(2)

startRowNo = macroConfigSheet.Cells(1, 2)
startColNo = macroConfigSheet.Cells(2, 2)
endRowNo = macroConfigSheet.Cells(3, 2)
endColNo = macroConfigSheet.Cells(4, 2)
changedRowNo = macroConfigSheet.Cells(5, 2)


If (endRowNo < startRowNo) Then
    MsgBox "Error!"
    Exit Sub
Else
    'Rows(endRowNo).Copy Rows(endRowNo + 1)
    Rows(endRowNo + 1 + changedRowNo).EntireRow.Insert     // 这句insert只有第一次插入有用
    'Call clearSpecialCell(endRowNo + 1)
    'Call clearSpecialCell(changedRowNo + 1)
    macroConfigSheet.Cells(3, 2) = endRowNo + 1
    macroConfigSheet.Cells(5, 2) = changedRowNo + 1
End If

Application.DisplayAlerts = True
   

End Sub


Private Sub clearSpecialCell(rowNo As Integer)
    On Error GoTo error1
    Rows(rowNo).SpecialCells(xlCellTypeConstants).ClearContents
error1:
End Sub

ry719533094

附件为实现上述宏的excel

ry719533094

求大神解答

ry719533094

求大神解答在线等

ry719533094

图中c8为该列平均值，添加一行需要在c8那行前面添加,现代码可以添加一行，但是在此执行就无法添加成功了，求老师解答

chxw68

你用中断看看下面各个变量的值，确实是插入行了，但是都插入到20行以后了。

1.       Rows(endRowNo + 1 + changedRowNo).EntireRow.Insert
   

复制代码

ry719533094

chxw68 发表于 2017-8-17 11:26
你用中断看看下面各个变量的值，确实是插入行了，但是都插入到20行以后了。

好的，谢谢老师我看看去

ry719533094

chxw68 发表于 2017-8-17 11:26
你用中断看看下面各个变量的值，确实是插入行了，但是都插入到20行以后了。

找到问题了，把Rows(endRowNo + 1 + changedRowNo).EntireRow.Insert中的changedRowNo去掉就行了，之前的代码的确是在下面插的不过并不是插到20行之后的

ry719533094

chxw68 发表于 2017-8-17 11:26
你用中断看看下面各个变量的值，确实是插入行了，但是都插入到20行以后了。

老师问下，现在可以实现添加和删除了，但是添加的时候A列添加出来的NO.是没有值的，如何能让他在运行添加宏后A列里是对应的顺序123456789这样的

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   With Worksheets("working")
   
4.     r = .Cells(.Rows.Count, 3).End(xlUp).Row
   
5.     .Rows(r).Insert
   
6.     .Cells(r, 1) = .Cells(r - 1, 1) + 1
   
7.   End With
   
8. End Sub
   

复制代码