excel中,从第一行到i-1行用vba怎么写?

2024-12-15 08:32:05

推荐回答（3个）

回答1：

如果是遍历第一行到第i-1行，可用代码：

Sub s1()
    Dim i&, j&
    i = InputBox("请输入i值：")
    For j = 1 To i - 1
        Rows(i).Select '在这里可将select换成其它操作代码
    Next
End Sub

如果是同时操作第一到第i-1行，可用代码：

Sub s2()
    Dim i&, j&
    i = InputBox("请输入i值：")
    Rows(1).Resize(i - 1).Select '在这里可将select换成其它操作代码
End Sub

回答2：

Sub tt()
Dim i, a As Integer
i = InputBox("请输入最大行号") '可以输入10 示范一下
For a = 1 To i - 1
Cells(a, 1) = a
Next
End Sub
这是个很简单的循环假设i=10那么 a循环到i-1 就是A1：A9等于 1到9 你要的I-1是这意思还是其他的呢？》

回答3：

For a = 1 To i - 1
Cells(a, 1) = a
next