如何将Excel工作表中的值增加一定百分比

Question

我有一个excel工作簿，其中包含多个带有一些数值的工作表。我想将这些值增加一定百分比，比方说10％。如何使用vb脚本实现。

Answer 1

只是为了多元化：

Sub Multiply()
MyMultiplier = 5      'Set your Multiply value here
For i = 1 To 10       'Set your last cell here
    For j = 1 To 10   'Set your last column here
            If Application.WorksheetFunction.IsNumber(ActiveSheet.Cells(i, j)) Then
            ActiveSheet.Cells(i, j) = ActiveSheet.Cells(i, j).Value * MyMultiplier
        End If
    Next j
Next i
End Sub

也可以尝试检查单元格是否包含

If ActiveSheet.Cells(i, j) <> "" Then

代码已经过测试且工作正常，但未推荐 :)只需坚持Excel Formulas就可以了。

Answer 2

以下是一个例子：

Sub Increment()
    Sheets(1).Range("A1").Value = Sheets(1).Range("A1").Value * 1.1
    Sheets(2).Range("B9").Value = Sheets(2).Range("B9").Value * 1.1
End Sub

两张纸中的一张纸。