[已解决]求VBA代码

beachum

请大神帮忙写个代码，以下面方式计算B列里的数据，谢谢！

单元格C1=(B1-B1)/B1*100
单元格C2=(B2-B1)/B1*100
单元格C3=(B3-B2)/B2*100
单元格C4=(B4-B3)/B3*100
单元格C5=(B5-B4)/B4*100
单元格C6=(B6-B5)/B5*100
单元格C7=(B7-B6)/B6*100
单元格C8=(B8-B7)/B7*100

单元格B2开始，就这样一直循环到B列最后
一个有数据的单元。

最佳答案

月排行榜 / 总排行榜

猴子下山了

2021-7-6 14:12

@beachum 是这种效果不？
Sub test()
Dim i
i = 1
Do While Range("b" & i) <> ""
    If i = 1 Then
        Range("c" & i) = ([B1] - [B1]) / [B1] * 100
    Else
        Range("c" & i) = (Range("b" & i) - Range("b" & i - 1)) / Range("b" & i - 1) * 100
    End If
i = i + 1
Loop
End Sub

跳转到最佳答案楼层

猴子下山了

@beachum 是这种效果不？
Sub test()
Dim i
i = 1
Do While Range("b" & i) <> ""
    If i = 1 Then
        Range("c" & i) = ([B1] - [B1]) / [B1] * 100
    Else
        Range("c" & i) = (Range("b" & i) - Range("b" & i - 1)) / Range("b" & i - 1) * 100
    End If
i = i + 1
Loop
End Sub

beachum

猴子下山了 发表于 2021-7-6 14:12
@beachum 是这种效果不？
Sub test()
Dim i

是这种效果！谢谢您！