如何根据单元格值进行百分比计算?

时间:2014-09-01 08:54:14

标签: excel-vba vba excel

当K列包含使用短代码的策略类型时,我有一个电子表格。

当这个短代码是NET94时,我需要将其更改为NOPL95,并且还要将列AC中的单元格更改为AA列中值的95%。

我已经创建了一个宏来循环删除单元格,我希望将它添加到循环中。

我正在尝试的代码似乎不起作用,我找不到符合此要求的在线内容。

    Firstrow = .UsedRange.Cells(1).Row
    Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row


    For Lrow = Lastrow To Firstrow Step -1

'Amend Net94 & NET03H to NOPL95
    With .Cells(Lrow, "AC")
    If Not IsError(.Value) Then
    If .Value = "NET94" Or .Value = "NET03H" Then .Value = "NOPL95" And .Cells(Lrow, "AC").Value = .Cells(Lrow, "AA") * 95 / 100

1 个答案:

答案 0 :(得分:2)

那是not what And is for。如果您希望在满足给定条件时发生多个事情,那么您需要将每个事项放在一个单独的行上,并使用End If终止该块,如下所示:

    If .Value = "NET94" Or .Value = "NET03H" Then 
        .Value = "NOPL95" 
        .Cells(Lrow, "AC").Value = .Cells(Lrow, "AA") * 95 / 100
    End If

请参阅documentation for If...Then...Else