[已解决]4列中找到合计所在的行以上的4列中的最后一个非空单元格，在其下面在插入指定的行数

zxc1152468

请问如何在abcd   4列中找到合计所在的行以上的4列中的最后一个非空单元格 Book1.zip (7.85 KB, 下载次数: 11)

2014-12-17 21:41 上传

点击文件名下载附件 ，在其下面在插入指定的行数

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-18 09:02

1. Sub Macro1()
   
2. n = Val(InputBox("输入插入的行数"))
   
3. Set rng = ActiveSheet.UsedRange.Find("合计", lookat:=xlWhole)
   
4. If Not rng Is Nothing Then
   
5.     Set c = Range("a1:d" & rng.Row - 1).Find("*", searchdirection:=xlPrevious)
   
6.     If Not c Is Nothing Then
   
7.         Cells(c.Row + 1, 1).Resize(n, 4).Insert Shift:=xlDown
   
8.     End If
   
9. End If
   
10. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. n = Val(InputBox("输入插入的行数"))
   
3. Set rng = ActiveSheet.UsedRange.Find("合计", lookat:=xlWhole)
   
4. If Not rng Is Nothing Then
   
5.     Set c = Range("a1:d" & rng.Row - 1).Find("*", searchdirection:=xlPrevious)
   
6.     If Not c Is Nothing Then
   
7.         Cells(c.Row + 1, 1).Resize(n, 4).Insert Shift:=xlDown
   
8.     End If
   
9. End If
   
10. End Sub

复制代码