100分请高手解读excel宏语句

来源：百度知道 编辑：UC知道 时间：2024/06/17 21:06:51
以下是一段宏语句，功能正是我想用的，但由于翻译不过来，无法举一反三，请VAB高手帮忙解读。重点是第二句以后的部分。

Sub SuperSort()
Dim arry(3)
arry(1) = Cells(1, 1).Value
For i = 1 To arry(1)
If i = 1 Then
Cells(i, 5) = "=a1+2"
Else
Cells(i, 5).Value = Cells(i - 1, 5)
End If
Next
End Sub
以下是一段宏语句，功能正是我想用的，但由于翻译不过来，无法举一反三，请VAB高手帮忙解读。重点是第二句以后的部分。

Sub SuperSort()
Dim arry(3)
arry(1) = Cells(1, 1).Value
For i = 1 To arry(1)
If i = 1 Then
Cells(i, 5) = "=a1+2"
Else
Cells(i, 5).Value = Cells(i - 1, 5)
End If
Next
End Sub

我知道这是一个填充功能的语句，但想知道其中起作用的关键部分，如果填充公式，请给我写一个公式的语句。C6的数值为1000，在F7单元格中向下填充C6（1000）格，F7中初始公式为=IF(F16=0,"",IF(INT($Q$3+0.08-F16)>=53,"超龄",(INT($Q$3+0.08-F16))))，一个计算周岁的公式，Q3为统计年份，F16为出生年月，一张表有多少人就填充多少次（C6实际为“＝counta(C:C)”），填充出的效果公式填充，请高手帮写个语句，可再加100分。

楼上的解释有些小错，在此补上
Sub SuperSort()
Dim arry(3) '定义一个数组arry(0,1,2)
arry(1) = Cells(1, 1).Value 'arry(1)等于第一个单元格的值
For i = 1 To arry(1) 'FOR循环初值为1，终值为 arry(1)
If i = 1 Then '判断i是否会等于1
Cells(i, 5) = "=a1+2" 'i=1时,单元格A5 中输入公式"=A1+2"
Else
Cells(i, 5).Value = Cells(i - 1, 5) 'i<>1时,第五列 第I行的 值等于同一列中上一个单元格的值
End If '结束 If 语句
Next '结束循环
End Sub ’结束程序

Sub SuperSort()
Dim arry(3) '定义一个数组
arry(1) = Cells(1, 1).Value '把EXCEL表里A1格的值赋给arry（1)
For i = 1 To arry(1)
If i = 1 Then
Cells(i, 5) = "=a1+2" ’把a1+2这个公式赋给第i行的第5格
Else
Cells(i, 5).Value = Cells(i - 1, 5)
End If
Next
End Sub

你是要翻译成哪种语言啊？？VB吗？

Sub SuperSort()
Dim arry(3) '定义了一个数组arry(0 to 2)
arry(1) = Cells(1, 1).Value 'arry(1)等于第一个单元格(即A1)的