Question

使用VBA我想选择一个特定的范围，比如B7：J7，做一些事情（我已经有了这个工作）然后在下一行选择相同的列，B8：J8并执行相同的操作，然后循环到通过设定的行范围等下一行等。完整的范围将类似于B7：J40。这似乎很容易，但我还没有到达任何地方。感谢

Answer 1

Dim rowIndex as Long

for rowIndex = 7 to 40   
    Sheet1.Range("B" & rowIndex & ":J" & rowIndex)
next col

这会给你 B7：J7 B8：J8 B9：J9 ... B40：J40

Answer 2

这是一个工作代码/自我解释的例子。根据您的需要进行修改。

Sub loops()
Dim rownum As Long
'looping rows 7 to 40
For rownum = 7 To 40
    'Assuming you want to sum the range and put the output in K7, K8, K9 and so on...
    Range("K" & rownum) = WorksheetFunction.sum(Range("B" & rownum & ":j" & rownum))
Next rownum
End Sub

循环遍历范围

2 个答案: