我正在尝试在Excel列上使用For循环。这是我的代码:
For Each c In Worksheets("sheet1").Range("A1:A5000").Cells
c.Offset(0, 1).Range("A1").Value = Right((Left(c, 13)), 7)
Next
它可以正常工作,问题是
Range("A1:A5000")
我的工作表少于1000行,但是它可以增长,我希望能够仅对其中有数据的行使用循环。如何更改它以使其从A1转到最后一个非空行?
你可以试试这个...
Dim r As Range
Set r = Range("A65536").End(xlup)
For Each c In Worksheets("sheet1").Range("A1:" & r.Address).Cells
c.Offset(0, 1).Range("A1").Value = Right((Left(c, 13)), 7)
Next
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句