通过VBA在Excel中复制单元格公式
布莱恩·D
我想在VBA的C列中创建IF公式。但是，当我这样做时，公式的出现是使用单元格的值而不是单元格引用。我想知道如何使用单元格引用：
[在运行VBA时让公式说[=IF(B2>0,2,A2)]而不是[=IF(1>0,2,1]在C2单元格的Excel工作表中。]
Dim c As Range
Dim a As Integer
Dim b As Integer
'//loop it in column C
For Each c In Range(Range("C2"), Range("C2").End(xlDown))
a = c.Offset(0, -1) '// Column B
b = c.Offset(0, -2) '// Column A
c.Formula = "=IF(" & b & ">0,2," & a & ")" '// same format as formula [=IF(B2>0,2,A2)]
Next
大本钟
如果我正确理解：
Dim a As Range
Dim b As Range
Set b = c.Offset(0, -1) '// Column B
Set a = c.Offset(0, -2) '// Column A
c.Formula = "=IF(" & b.Address(False,False) & ">0,2," & a.Address(False,False) & ")"
但是您无需循环或使用Address;即可完成此操作。当公式在列中填充时，Excel将更新相对引用。
With ActiveSheet
Dim lastRow As Long
lastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
.Range("C2:C" & lastRow).Formula = "=IF(B2>0,2,A2)"
End With
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如何在Excel中仅复制单元格的纯文本？
- 2
如何在Excel中仅复制单元格的文本值
- 3
两个工作簿之间的Excel VBA复制单元格
- 4
从多个Excel文件复制单元格并将其粘贴到主文件中
- 5
单元格公式替换中的Excel VBA错误1004
- 6
用Excel文件中的图像复制单元格范围
- 7
VBA，自动填充系列，而不是复制单元格
- 8
Excel：在公式中复制单元格格式
- 9
Excel VBA，如何从Column对象内复制单元格
- 10
VBA-复制单元格区域（随机行）
- 11
Excel公式或VBA复制单元格删除空格？
- 12
Excel VBA：复制单元格内容
- 13
Excel表查找和复制单元格值
- 14
查找并复制单元格中的某些值
- 15
Excel将VBA宏复制单元格循环到新工作表
- 16
Microsoft Excel，复制单元格的格式
- 17
Excel：仅当单元格在其他列中匹配时才可以复制单元格吗？
- 18
Excel VBA-如果单元格值满足条件，则在工作表之间复制单元格
- 19
根据Excel VBA中的公式创建单元格值
- 20
如何通过Excel VBA将公式放入单元格中？
- 21
vba-excel：如何使用for循环和if语句排除复制单元格区域
- 22
Excel VBA复制单元格值，如果> 0到左侧的单元格
- 23
Excel VBA宏复制单元格并粘贴到另一个
- 24
Excel-VBA循环-从单元格复制公式，粘贴到单元格中，然后复制特殊粘贴
- 25
根据条件复制单元格并通过覆盖其他工作表中的单元格进行粘贴
- 26
Excel VBA 用公式中的答案替换单元格
- 27
如果列包含数据，则复制单元格 A，Excel VBA
- 28
有没有复制单元格的公式？
- 29
VBA在满足条件时复制单元格
我来说两句