求大神帮看下怎么缩写~~

badjinxin

huang1314wei 发表于 2015-11-13 15:36
到底是小计还是合计，我看到你的附件当中，合计只有一个，小计倒不少，能不能认真点？

就是合计了。。。。。。。。。。。。我只是要表达那个意思。。。。。。

huang1314wei

badjinxin 发表于 2015-11-13 16:10
就是合计了。。。。。。。。。。。。我只是要表达那个意思。。。。。。

1. Sub text()
   
2.     Dim i%, j%, x%, rng As Range
   
3.     i = Range("A1048576").End(xlUp).Row
   
4.     For x = i To 3 Step -1
   
5.         Set rng = Cells(x, 1)
   
6.         If rng.Value = "合计" And IsNumeric(rng.Offset(-1, 0)) Then
   
7.             j = rng.Offset(-1, 0)
   
8.             rng.EntireRow.Resize(18 - (j Mod 18)).Insert
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码

badjinxin

huang1314wei 发表于 2015-11-13 16:38

！！！！！！感谢恩人

autumnalRain

badjinxin 发表于 2015-11-13 16:54
！！！！！！感谢恩人

感谢最有效的方式在这里就是送上花朵