Excel VBA代码用于单元格之间的简单公式

Question

我需要这些订单的代码：

1. 转到 C 列中的第一个空白单元格。
2. 计算 D 列中的数字减去 14，只要 D 中的单元格右边有一个数字（D ​​列中有空格）就这样做
3. 复制 C 列中的结果并将其作为值粘贴到 B 列。 注意：我需要它保持在原始行中。

OP_wb.Sheets("Optic Main").Activate 
Dim FirstRow As Range 
Dim LastRow As Range
Set FirstRow = Range("C1").End(xlDown).Offset(1, 0)
 
Range("E1").End(xlDown).Offset(0, -2).Select
Range(FirstRow, LastRow).FormulaR1C1 = "=(c4-14)"`

Answer 1

试试这个：

1.

Set FirstRow = Range("C1").End(xlDown).Offset(1, 0)
Set lastrow = Range("E1").End(xlDown).Offset(0, -2)

Range("E1").End(xlDown).Offset(0, -2).Select

2.

Range(FirstRow, lastrow).FormulaR1C1 = "=(c4-14)"

3.

Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & lastrow)

希望对你有帮助