[已解决]求大神帮忙，在工作表内用VBA一次插入多行，使某个名称在指定行

nl054685

要求用VBA实现：
以sheet1工作表为例，数据从第三行开始，我希望“总数”未在第35行，通过按钮在数据末插入空行，使“总数”所在行为第35行，工作薄内其它工作表数据多少不定，“总数”所在的行也不相同，最后插入空行后都要在第35行，请大神帮忙，谢谢！

最佳答案

月排行榜 / 总排行榜

Yunyun123

2022-1-26 14:50

Public Sub Test()
Dim CountRow As Integer
Dim i As Integer
Dim CountSht As Integer

CountSht = Sheets.Count

For i = 1 To CountSht

CountRow = Sheets(i).Cells(Rows.Count, 2).End(3).Row

If CountRow <> 35 Then
Sheets(i).Cells(35, 2) = Sheets(i).Cells(CountRow, 2)
Sheets(i).Cells(CountRow, 2).Clear
End If

Next i

End Sub

跳转到最佳答案楼层

zhanglei1371

1. Sub dfdf()
   
2. n = [B65536].End(3).Row
   
3. m = 35 - n
   
4. Rows(3).Resize(m).Insert
   
5. End Sub
   

复制代码

Yunyun123

Public Sub Test()
Dim CountRow As Integer
Dim i As Integer
Dim CountSht As Integer

CountSht = Sheets.Count

For i = 1 To CountSht

CountRow = Sheets(i).Cells(Rows.Count, 2).End(3).Row

If CountRow <> 35 Then
Sheets(i).Cells(35, 2) = Sheets(i).Cells(CountRow, 2)
Sheets(i).Cells(CountRow, 2).Clear
End If

Next i

End Sub

nl054685

Yunyun123 发表于 2022-1-26 14:50
Public Sub Test()
Dim CountRow As Integer
Dim i As Integer

谢谢，要的就是这个效果，非常感谢你的帮助

nl054685

zhanglei1371 发表于 2022-1-26 14:49

谢谢你的帮助