求老司机带路,求删除楼梯形状单元格区域的VBA编程代码,谢谢!

心云德乐

练习拆分单元格数据压缩包.rar (79.3 KB, 下载次数: 4)

2019-8-21 22:34 上传

点击文件名下载附件

kkf5560

可以反过来想，存入数组，然后分别取(1,1)(2,2)……最后覆盖即可

心云德乐

kkf5560 发表于 2019-8-25 10:21
可以反过来想，存入数组，然后分别取(1,1)(2,2)……最后覆盖即可

谢谢！我正在学习VBA数组，自学的，感觉就像喝啦二锅头，求老司机清茶一壶灌顶。

kkf5560

心云德乐 发表于 2019-8-25 11:28
谢谢！我正在学习VBA数组，自学的，感觉就像喝啦二锅头，求老司机清茶一壶灌顶。

1. Sub t()
   
2. Dim arr, i&, k&, m&
   
3. arr = Range("c6").CurrentRegion
   
4. m = Range("c6").End(xlToRight).Column - Range("c6").Column + 1
   
5. Dim brr()
   
6. ReDim brr(1 To UBound(arr), 1 To m)
   
7. i = 1: k = 1
   
8. Do While i <= UBound(arr)
   
9.     If k > m  Then Exit Do
   
10.         For i = 1 To k
    
11.              brr(i, k) = arr(i, k)
    
12.         Next i
    
13.     i = k + 1
    
14.     k = k + 1
    
15. Loop
    
16. Range("c:iv").ClearContents
    
17. Range("c6").Resize(UBound(brr), m) = brr
    
18. End Sub
    

复制代码

供参考，按删除数同理