求老司机带路,求VBA程序编写加减代码,谢谢!

心云德乐

syj2004hg

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim i As Integer, r As Integer, c As Integer, LstRow As Integer
   
5.     Dim arr()
   
6.     LstRow = Range("B65536").End(xlUp).Row
   
7.     ReDim arr(1 To LstRow - 2, 1 To 18)
   
8.     For r = 3 To LstRow
   
9.         c = 1
   
10.         For i = 9 To -9 Step -1
    
11.             If i = 0 Then i = i - 1
    
12.             arr(r - 2, c) = Cells(r, 2) + i
    
13.             c = c + 1
    
14.         Next i
    
15.     Next r
    
16.     Range("D3").Resize(LstRow - 2, 18).Value = arr()
    
17. End Sub

复制代码

心云德乐

syj2004hg 发表于 2019-8-11 20:20

谢谢大侠的帮助！