Excel vba 把某个单元格cells(1,1)的公式下拉到cells(100,1)怎么写?
答案:2 悬赏:0
解决时间 2021-02-18 15:03
- 提问者网友：霸气大叔
- 2021-02-18 04:42
Excel vba 把某个单元格cells(1,1)的公式下拉到cells(100,1)怎么写?
最佳答案
- 二级知识专家网友：为你轻狂半世殇
- 2021-02-18 05:12
下面的代码就可以：
Sub 宏1()
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A100"), Type:=xlFillDefault
Range("A1:A100").Select
End Sub
Sub 宏1()
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A100"), Type:=xlFillDefault
Range("A1:A100").Select
End Sub
全部回答
- 1楼网友：颜值超标
- 2021-02-18 06:18
像这样就可以:
Sub 宏1()
For i = 1 To 100
Cells(i, 1) = 1
Next
End Sub 里面的=1就是你说的公式,cells(i,1)的最终结果就是1到100行都填充这个公式
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯