excel vba对所有单元格应用公式

【问题标题】：excel vba apply formula for all cellsexcel vba对所有单元格应用公式
【发布时间】：2021-04-25 08:54:07
【问题描述】：

我是宏的新手。我几乎没有可以使用宏自动化的例行工作。第一步是为所有单元格（整个工作表）应用干净的公式。我尝试录制宏选项。它仅适用于一个文件。我无法确定整个数据的范围函数。任何想法或建议都是值得赞赏的。

如何更改1以下的数字

ActiveCell.Formula2R1C1 = "=CLEAN(Sheet1!RC:R[54234]C[21])"

下面是示例代码。

    Sheets.Add After:=ActiveSheet
    Range("A1").Select
    ActiveCell.Formula2R1C1 = "=CLEAN(Sheet1!C.End(xlDown))"

【问题讨论】：

标签： excel vba

【解决方案1】：

您无需选择范围即可解决它。下面的公式就可以了。

    Range("A1").Formula2R1C1 = "=CLEAN(Sheet1!C1:C" & Sheet1.Cells(1, 3).End(xlDown).Row & ")"

如果您愿意，可以使用Range("C3") 代替Cells(3, 1)。但是，如果您希望复制引用的列 C 中的所有内容，则此行将执行相同的工作。

Range("A1").Formula2R1C1 = "=CLEAN(Sheet1!C:C)"

似乎没有充分的理由在这里使用FormulaR1C1 来代替普通的Formula 属性。此外，上述公式都没有可靠地为我复制整个范围，因为 Excel 大部分时间都将防溢出程序 @ 插入到公式中。因此，我建议间接使用 CLEAN() 并将值粘贴到已“清理”的新工作表中。

【讨论】：