标签： 填充

[VBA]VBA实现公式的下拉填充

• VBA • 评论关闭 • •3,405 次查阅

在勤哲的开发过程中，模板套用了Excel的{…}数组公式内容，导致增加行时不能自动填充素组公式。 先不管是不是平台的问题，我们要解决目前可用的状况，只能VBA了。 代码如下仅供参考: Private Sub CommandButton5_Click() Dim i As Integer Dim oAdd As Object Application.ScreenUpdating = False Set oAdd = Application.COMAddIns.Item("ES

VBA填充空单元格

• VBA • 7 条评论 • •6,642 次查阅

通常很多人在输入数据时，在同一列中相同的数据都会选择不输（如A1输入X,一直空到A5，则A2~A4都是表示X），空白表示相同。偷懒的想法啊。 但为了输入方便偷懒了，能不能交给代码补全呢？ 可以的！ 分享代码吧：   Sub 填充单元格()    On Error Resume Next    Intersect([a:a], ActiveSheet.UsedRange).SpecialCells(