如何增加excel工作表中某个百分比的值

Question

我有一个带有多个工作表的excel工作簿，其中包含一些数值。我想增加一些百分比的这些值，比如说10％。我怎样才能实现使用VB脚本。

Answer 1

下面是一个例子：

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 

在每个两片的一个单元。

Answer 2

只是为了多元化：

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 

anithing的代码进行测试，它的工作，但它不推荐 :)只要坚持到Excel Formulas，你会没事的。