请教老师，录制一个宏实现列数据的加减

wx_22787

如上图，希望录制一个宏，使得C2=B2-A2；C3=B3-A3；C4=B4-A4。。。。。。以此类推到最后一行C10=B10-A10，数据的行数每次不一定，并不是每次都是10行。
谢谢老师指教！

杨建营

请楼主参考。

mmwwdd

这个不用附件,
sub test
dim rng as range
   with sheets("Sheet1")
      r=.cells(.rows.count,1).end(3).row
     set rng=.range("C2:C" & r)
      rng.formular1c1="=rc[-1]-rc[-2]
   end with

      

wx_22787

杨建营 发表于 2023-2-17 14:38
请楼主参考。

谢谢老师，刚刚只是举了个简单例子，我想问下，如果我想实现的是D2-B2=G2，D3-B3=G3，D4-B4=G4。。。。。。以此类推，也就是数据不是在前三列，我需要把D列数据减B列数据的值填充到G列，请问怎么实现呢，谢谢！

mmwwdd

你这就等于在高中问1+1等于几

wx_22787

mmwwdd 发表于 2023-2-17 15:00
你这就等于在高中问1+1等于几

1+1任何人从小学都学，VBA不是每个人都学过，别跟个2b似的

杨建营

wx_22787 发表于 2023-2-17 14:55
谢谢老师，刚刚只是举了个简单例子，我想问下，如果我想实现的是D2-B2=G2，D3-B3=G3，D4-B4=G4。。。。。 ...

修改are(i,1)中这个数字，比如D2-B2，分别改为4和2，G2改为7。

mmwwdd

wx_22787 发表于 2023-2-17 15:06
1+1任何人从小学都学，VBA不是每个人都学过，别跟个2b似的

就你这素质,Scum,

tanglf188

1. 简单的运算，修改stri变量就可以了
   
2. Sub calc()
   
3.     countrow = Sheet1.UsedRange.Cells(Sheet1.UsedRange.Rows.Count, 1).Row
   
4.     stri = "D=B+A" '计算表达式,运算符:+ - * /
   
5.     For i = 2 To countrow
   
6.         With ActiveSheet
   
7.             Select Case Mid(stri, 4, 1)
   
8.                 Case "+"
   
9.                     valu = .Cells(i, Mid(stri, 3, 1)) + .Cells(i, Right(stri, 1))
   
10.                 Case "-"
    
11.                     valu = .Cells(i, Mid(stri, 3, 1)) - .Cells(i, Right(stri, 1))
    
12.                 Case "*"
    
13.                     valu = .Cells(i, Mid(stri, 3, 1)) * .Cells(i, Right(stri, 1))
    
14.                 Case "/"
    
15.                     valu = .Cells(i, Mid(stri, 3, 1)) / .Cells(i, Right(stri, 1))
    
16.                 Case Else
    
17.                     valu = ""
    
18.             End Select
    
19.         End With
    
20.         ActiveSheet.Cells(i, Left(stri, 1)) = valu
    
21.     Next
    
22. End Sub
    

复制代码