Question

我正在尝试使用下面的VBA脚本执行除法，它工作正常，但我想冻结列的公式单元格。例如：我有从A列到BE多行的值，我希望单元格BB3捕获G3/E3的值以及列{{BB中的所有行1}}将值捕获到上面相应的行，所以

BB3 = G3/E3, BB4 = G4/E4, BB5 = G5/E5

以及其他任何帮助将不胜感激：）

Macro4 Macro
'
' Keyboard Shortcut: Ctrl+h
'
    ActiveCell.FormulaR1C1 = "=RC[-47]/RC[-49]*100"
    Range("BB3").Select
    Selection.Copy
    Range("BA3").Select
    Selection.End(xlDown).Select
    Range("BB4").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("BB3:BB4").Select
    Range("BB4").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("BB3").Select
End Sub

Answer 1

尝试

Dim ws As Worksheet
Set ws = ActiveSheet

With ws.Range("BB3:BB98")
    .Formula = "G3/E3"
    .Value = .Value
    .NumberFormat = "0"
End With

使用VBA脚本执行分区

1 个答案: