选中A1：N2：
range(“A1：N2”)。select
如果要循环A1：N2其中第一行的每个单元格：
dim c as range
for each c in range(“A1：N2”)。rows(1)
msgbox c。value
next
如果是从第一列到i-1列进行遍历，则代码为：
Sub s1()
Dim i%， k%
i = InputBox(“input i：”)
For k = 1 To i - 1
Columns(k)。Select ‘select可以更改为任意操作代码
Next
End Sub
如果是对从第一列到i-1列的所有列进行操作，则代码为：
Sub s1()
Dim i%
i = InputBox(“input i：”)
Columns(1)。Resize(， i - 1)。Select ’select可以更改为任意操作代码
End Sub
就是说每列的最后一行是不相同的罗
如果是遍历第一行到第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