[已解决]请教老师及高手这个公式用宏解解决

dfzc

附件有详细说明

Book1.rar (17.36 KB, 下载次数: 12)

2016-1-20 20:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-1-21 09:49

用了两种方法，结果一样。第一种比较烦，第二种是优化后的结果。

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, j%
   
3. arr = [cg4:cp203]
   
4. For i = 1 To UBound(arr)
   
5.     For j = 1 To UBound(arr, 2)
   
6.         If arr(i, j) = "" Then
   
7.             If i = 1 Then
   
8.                 arr(i, j) = 2
   
9.             Else
   
10.                 arr(i, j) = arr(i - 1, j) + 1
    
11.             End If
    
12.         End If
    
13.     Next
    
14. Next
    
15. Range("da4").Resize(UBound(arr), UBound(arr, 2)) = arr
    
16. End Sub

复制代码

dfzc

dsmch 发表于 2016-1-20 21:38

老师这个代码测试过了，需要修改一个地方，有数据的单元格返回原数，空格是从1的基础开始统计，不是在上面原数据上加1，如CL5为5，下面的空格不是+1显示6，而是从1开始计起，然后2、3、4........还烦请老师给修改一下，谢谢

grf1973

1. Sub Macro2()
   
2.     Dim arr, i&, j%
   
3.     arr = [cg4:cp203]
   
4.     For j = 1 To UBound(arr, 2)
   
5.         n = 0
   
6.         For i = 1 To UBound(arr)
   
7.             If arr(i, j) <> "" Then
   
8.                 n = 0
   
9.             Else
   
10.                 n = n + 1
    
11.                 arr(i, j) = n
    
12.             End If
    
13.         Next
    
14.     Next
    
15.     Range("da4").Resize(UBound(arr), UBound(arr, 2)) = arr
    
16. End Sub

复制代码

grf1973

用了两种方法，结果一样。第一种比较烦，第二种是优化后的结果。

dfzc

谢谢老师，问题解决了

xiaofei1989

我不懂，为空格的应该怎么算呢，比如CJ10，CM15应该怎么算呢？