2017-08-04 30 views
1

我有一個生成利用率公式的代碼,但是,當我希望以百分比的形式顯示輸出時,輸出顯示爲$。VBA - 如何將列轉換爲百分比

有誰知道如何通過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 

謝謝! (:

+1

另外要注意現在你已經問**與回答了許多問題**,如果有這些問題的答案的正確回答你的問題,那麼你如果你不這樣做,人們會停止回答你的問題,請回去標記你的每個問題的正確答案,或者至少提供反饋意見至於爲什麼他們沒有爲你工作 –

回答

1

你應該只能夠使用NumberFormat選項:

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

完美謝謝你:) – user8384641

+1

如果你對解決方案感到滿意,請不要忘記接受答案 – Zac

+1

@Zac你見過OP的個人資料嗎? :) – pnuts