求老司机带路,求加减0,1,2,3,4,5的VBA代码,谢谢!

心云德乐

2019年11月9日加减012345.rar (8.25 KB, 下载次数: 5)

2019-11-10 00:31 上传

点击文件名下载附件

sub麻辣君

Sub test()
   Dim rng As Range, i%
   For i = 5 To [b1048576].End(xlUp).Row
      For Each rng In Range(Cells(i, "d"), Cells(i, "AY"))
         rng = Cells(i, "b").Value + rng.Offset((4 - i), 0).Value
      Next rng
   Next i
End Sub

cutecpu

您好，
因為VBA我不熟
用函數公式行嗎

祝順心，南無阿彌陀佛

大灰狼1976

1. Sub test()
   
2. [d5:ay22] = [b5:b22].Value
   
3. [d5:ay22] = [d5:ay22+d4:ay4]
   
4. End Sub

复制代码

大灰狼1976

还可以简化一下

1. Sub test()
   
2. [d5:ay22] = [b5:b22+d4:ay4]
   
3. End Sub

复制代码

大灰狼1976

最大行列数动态时：

1. Sub test_1()
   
2. Dim r&, c&, ads1$, ads2$
   
3. r = Cells(Rows.Count, 2).End(3).Row
   
4. c = Cells(4, Columns.Count).End(1).Column
   
5. ads1 = Range([b5], Cells(r, "b")).Address
   
6. ads2 = Range([d4], Cells(4, c)).Address
   
7. Range(Cells(5, "d"), Cells(r, c)) = Evaluate(ads1 & "+" & ads2)
   
8. End Sub

复制代码

大灰狼1976

也可以简化成一句，就是太难看了。

1. Range(Cells(5, "d"), Cells(Cells(Rows.Count, 2).End(3).Row, Cells(4, Columns.Count).End(1).Column)) = Evaluate(Range([b5], Cells(Cells(Rows.Count, 2).End(3).Row, "b")).Address & "+" & Range([d4], Cells(4, Cells(4, Columns.Count).End(1).Column)).Address)

复制代码

0126

照大灰狼老师7楼代码修改的，有点强迫症看不惯太多重复引用{:9_319:}
With range("d5", Cells(Cells(Rows.Count, 2).End(3).row, Cells(4, Columns.Count).End(1).Column))
    .Value = Evaluate(.Columns(-1).Address & "+" & .Rows(0).Address)
End With