Question

我有一个生成利用率公式的代码，但是，当我希望它以百分比％表示时，输出显示在$中。

有没有人知道如何通过VBA进行此项工作？我知道如何通过普通的excel轻松改变这一点，但我希望这个过程尽可能自动化。

到目前为止：

'Utilisation rates

With ActiveSheet
    'Determine last row
    Dim lastrow2 As Long
    lastrow2 = .Cells(.Rows.Count, "F").End(xlUp).Row

    'Copy the original values from column A to column B
    .Range("H6:H" & lastrow2).Value = .Range("F6:F" & lastrow2).Value

    'Copy / Pastespecial Divide using cell C3
    .Range("C3").Copy
    .Range("H6:H" & lastrow2).PasteSpecial Paste:=xlPasteValues, _
                                          Operation:=xlDivide, _
                                          SkipBlanks:=False, _
                                          Transpose:=False
    Application.CutCopyMode = False



End With

谢谢!!! （：

Answer 1

您应该只能使用NumberFormat选项：

.Range("H6:H" & lastrow2).NumberFormat = "0.00%"

VBA - 如何将列转换为百分比

1 个答案: