EXCEL如何对整列使用同一个公式
我知道EXCEL的公式在第一个往下拖一下，填充一下可以适用到整列。
但是如果你后来有需要插入一些行的时候，插入的行就没有公式。有没有什么办法，让我的这一列永远都默认使用一个公式，即是后来我插入了其他行，插入的新行也自动套用这个公式？我知道重新拉一下可以啊。但是我的问题就是怎样才能不用重新拉就自动套用公式。因为经常要插入新行，而且行的顺序还要更换。每次都重新拉不是办法。肯定有其他办法的 如图
亲，是有办法，但是要用VBA编程，在Change时间里写代码。
请带上行号和列标截图；另外公式是什么，把文本贴出来。追问
On Error Resume Next
Dim r As Long
r = UsedRange.SpecialCells(xlCellTypeLastCell).Row
Application.EnableEvents = False
Range("N2").Formula = "=TODAY()"
Range("N2").AutoFill Destination:=Range("N2:N" & r)
Range("P2").Formula = "=IF(OR(M2="",N2=""),"",N2-M2)"
Range("P2").AutoFill Destination:=Range("P2:P" & r)
Application.EnableEvents = True
End Sub
请带上行号和列标截图；另外公式是什么，把文本贴出来。追问
这样可以吗
我想把N列全部设置成=TODAY() P列=N*-M*
任何地方插入行 N列P 列都自动生成
以下是测试效果和代码。
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim r As Long
r = UsedRange.SpecialCells(xlCellTypeLastCell).Row
Application.EnableEvents = False
Range("N2").Formula = "=TODAY()"
Range("N2").AutoFill Destination:=Range("N2:N" & r)
Range("P2").Formula = "=IF(OR(M2="",N2=""),"",N2-M2)"
Range("P2").AutoFill Destination:=Range("P2:P" & r)
Application.EnableEvents = True
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-08-31
用鼠标拖动有公式的单元格的右下角的黑点，向你要的列，行扩展开就行了。
第2个回答 2014-11-25
据我了解，没这样的公式，插入行和列对条件格式没影响，也许你可以尝试自编公式，例如宏...
相似回答