Question

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

Answer 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

Answer 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是这意思还是其他的呢？》

追问

用rows怎么写呢?

追答

Sub tt()
Dim i, a As Integer
i = InputBox("请输入最大行号") '可以输入10 示范一下
For a = 1 To i - 1
Rows(a).Select
With Selection.Interior
.ColorIndex = a
End With
Next
End Sub

1-9行 上色 和上面差不多意思 你具体要啥要求啊 ？

追问

For Each c In Sheets(2).rows("1:i-1").Cells
If .......
提示错误,请问rows那里应该怎么修改呢?

追答

Rows("1:" & i - 1) 你是不是要选择整个行啊 比如 1：9行？
Sub tt()
i = 10
For Each c In Sheets(2).Rows("1:" & i - 1).Cells
c.Value = 2 '这里你可以自己写判断
Next

End Sub

Answer 3

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