在Excel VBA中循环

用户名

我正在尝试在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转到最后一个非空行?

Matzone

你可以试试这个...

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] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

Excel VBA中的Double for循环

来自分类Dev

VBA Excel中的嵌套循环

来自分类Dev

excel vba中的循环公式

来自分类Dev

Excel VBA中的循环引用

来自分类Dev

Excel VBA在选择的工作表中循环

来自分类Dev

在Excel VBA中查找并替换循环

来自分类Dev

访问VBa-在Excel列中循环

来自分类Dev

在Excel VBA错误中执行while循环

来自分类Dev

在 VBA excel 中创建动态 for 循环

来自分类Dev

循环浏览Excel Excel VBA

来自分类Dev

VBA Excel转换循环

来自分类Dev

EXCEL VBA - 循环错误

来自分类Dev

Excel VBA循环?

来自分类Dev

如何在 Excel 中优化 VBA 代码中的多个循环

来自分类Dev

如何在Excel VBA中循环创建新词典的集合?

来自分类Dev

如何在Excel VBA中循环播放宏

来自分类Dev

在Excel VBA中循环遍历单元格值

来自分类Dev

在VBA Excel中优化双循环性能

来自分类Dev

Excel VBA循环并从数组中获取值

来自分类Dev

循环访问Excel VBA中的字符串列表

来自分类Dev

在VBA Excel中复制和粘贴循环以获取多个输出

来自分类Dev

使用VBA代码在Excel中查找循环链接

来自分类Dev

无法使用Selenium VBA在Chrome中循环Excel数据

来自分类Dev

在Excel VBA中的两个日期之间循环

来自分类Dev

循环以在Excel VBA中添加大量矩阵

来自分类Dev

如何在Excel VBA中循环播放宏

来自分类Dev

如何在Excel VBA中运行多个“ For / Each”循环

来自分类Dev

循环遍历工作表中的Excel VBA范围对象错误

来自分类Dev

如何在Excel VBA中的范围内循环列