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

勤哲的开发过程中,模板套用了Excel的{…}数组公式内容,导致增加行时不能自动填充素组公式

先不管是不是平台的问题,我们要解决目前可用的状况,只能VBA了。

代码如下仅供参考:

	Private Sub CommandButton5_Click()

	Dim i As Integer

	Dim oAdd As Object

	Application.ScreenUpdating = False

	Set oAdd = Application.COMAddIns.Item("ESClient10.Connect").Object

	oAdd.UnProtectBook

	If Range("AA13").Value <= 10 Then

	i = 24

	Else

	i = 15 + Range("AA13").Value - 1

	End If

	Sheet1.Range("BQ15").AutoFill Destination:=Range("BQ15:BQ" & i)

	oAdd.ProtectBook

	Set oAdd = Nothing

	Application.ScreenUpdating = True

	End Sub


代码是勤哲软件模板的代码,Excel上请自行删除接口部分内容。

分享到: