关于宏,我举个A、B、C、D.....若干列的第一行有数据,在第一行最后的单元格求平均数的例子,这里的i就是不定的。
Sub AverageNum()
Dim TotalNum
TotalNum = 0
For i = 1 To 256 '从1列到最多256列
TotalNum = TotalNum + Cells(1, i).Value '循环叠加单元格数据
If Cells(1, i) = "" Then '遇到空值
Exit For '退出FOR循环
End If
Next
If i = 1 Then '如果第一个就是空值
MsgBox ("没有数据") '提示没有数据
Else
Cells(1, i) = TotalNum / (i - 1) '其他就在最后一个空白单元格求出平均数
End If
End Sub
'直接求i值的宏,就简单了
Sub iValue()
For i = 1 To 256
If Cells(1, i) = "" Then
Cells(1, i) = i - 1 '空白单元格数值i-1,表示前方有i-1项数据
Exit For
End If
Next
End Sub
以上是例子,不知道讲清楚否?
温馨提示:答案为网友推荐,仅供参考