[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上请自行删除接口部分内容。

登录