Vba 使用不同的行数循环？

我有这个代码可以正常工作，但是，范围是从I2:I800，在一些工作表中少于800行，因此excel将用“0”填充其余的工作表。有时有800多行。什么循环可以帮助我只填写尽可能多的行

With Worksheets("Sheet1").Range("I2:I800")
    .FormulaR1C1 = "=RC[-1] & TEXT(RC[-2],""00"")"
    .Value = .Value
End With
Worksheets("Sheet1").Columns("G:H").Delete

With Worksheets("Sheet2").Range("I2:I800")
    .FormulaR1C1 = "=RC[-1] & TEXT(RC[-2],""00"")"
    .Value = .Value
End With
Worksheets("Sheet2").Columns("G:H").Delete

---

不需要循环，只需找到最后一行即可

Dim LstRow as Long
LstRow = Worksheets("Sheet1").Cells(Rows.Count,8).End(xlup).Row

然后在你的推荐信中使用它

Dim LstRow as Long
LstRow = Worksheets("Sheet1").Cells(Rows.Count,8).End(xlup).Row
With Worksheets("Sheet1").Range("I2:I" & LstRow)
    .FormulaR1C1 = "=RC[-1] & TEXT(RC[-2],""00"")"
    .Value = .Value
End With
Worksheets("Sheet1").Columns("G:H").Delete

LstRow = Worksheets("Sheet2").Cells(Rows.Count,8).End(xlup).Row
With Worksheets("Sheet2").Range("I2:I" & LstRow)
    .FormulaR1C1 = "=RC[-1] & TEXT(RC[-2],""00"")"
    .Value = .Value
End With
Worksheets("Sheet2").Columns("G:H").Delete

---

不需要循环，只需找到最后一行即可

Dim LstRow as Long
LstRow = Worksheets("Sheet1").Cells(Rows.Count,8).End(xlup).Row

然后在你的推荐信中使用它

Dim LstRow as Long
LstRow = Worksheets("Sheet1").Cells(Rows.Count,8).End(xlup).Row
With Worksheets("Sheet1").Range("I2:I" & LstRow)
    .FormulaR1C1 = "=RC[-1] & TEXT(RC[-2],""00"")"
    .Value = .Value
End With
Worksheets("Sheet1").Columns("G:H").Delete

LstRow = Worksheets("Sheet2").Cells(Rows.Count,8).End(xlup).Row
With Worksheets("Sheet2").Range("I2:I" & LstRow)
    .FormulaR1C1 = "=RC[-1] & TEXT(RC[-2],""00"")"
    .Value = .Value
End With
Worksheets("Sheet2").Columns("G:H").Delete

---

对你的历史有一点评论。你有很多问题，但只有少数被接受的答案。请回顾你的历史并接受那些正确的答案。有些人会在没有反馈的情况下停止帮助。但更重要的是，它将从未回答的队列中删除问题，并奖励那些回答正确的人。你有很多问题，但只有少数被接受的答案。请回顾你的历史并接受那些正确的答案。有些人会在没有反馈的情况下停止帮助。但更重要的是，它将从未回答的队列中删除问题，并奖励那些回答正确的人。