excel宏如何实现单元格共识复制功能

来源：百度知道编辑：UC知道时间：2024/07/08 15:39:18

比如我在 m4 设置了一个公式，想在M5到M2000都用这个公式如何在宏里实现。（也就是在宏里实现直接把公式从M4单元格一直拖到M2000的操作）
谢谢coolbi5，我有两点补充：第一：公式中有筛选数据，没有被筛选的数据不想实现复制公式，第二公式是相对引用的，你这个宏使用后都和M4是一个数值了。
由于公式中有筛选数据，所以range("M4").AutoFill Destination:=range("M4:M2000")
这个语句直接导致被筛选掉的数据也复制公式了。
range("M4").AutoFill Destination:=range("M4:M2000")

Option Explicit

Sub test()
Dim i As Integer
With ActiveSheet
For i = 5 To 2000
.Range("m" & i).Formula = .Range("m4").Formula
Next i
End With
End Sub

用自动填充啊
range("M4").AutoFill Destination:=range("M4:M2000")
和你在excel中下拉是一个效果

excel里如何实现单元格相加 EXCEL中如何实现某单元格中数值为偶数在EXCEL中,如何实现单元格自动变色？在EXCEL中如何实现跨表引用单元格？如何实现excel部分单元格不能被选定如何实现EXCEL单元格中自动插入证件照片如何在EXCEL 中实现单元格数值调用 EXCEL如何实现不连续单元格的计算 C# GridView如何实现excel单元格计算功能如何在EXCEL中实现选中单元格之后自动复制单元格的内容到剪贴板？