请教一个无限循环至最后有数据的那行

●.o_尛气包 · 发表于 2023-7-20 17:27

各位老师好！我需要把这个VBA改成无限循环至最后有数据的那行。谢谢！

'
Selection.Formula = "=C1&A1&D1&B1"
Range("B1:F1").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
Range("B1:G2").Select
Selection.AutoFill Destination:=Range("B1:G124"), Type:=xlFillDefault
Range("B1:G124").Select
End Sub

ykcbf1100 · 发表于 2023-7-20 19:34

不用那么麻烦，这样就行。

附图供参考。。。

●.o_尛气包 · 发表于 2023-7-20 22:02

ykcbf1100 发表于 2023-7-20 19:34
不用那么麻烦，这样就行。

附图供参考。。。

老师，按照你写的代码，我放到我数据里面结果全是0000。

我现在上传了附件，您看得空的时候能再帮我写下吗？谢谢！

ykcbf1100 · 发表于 2023-7-21 07:19

●.o_尛气包发表于 2023-7-20 22:02
老师，按照你写的代码，我放到我数据里面结果全是0000。

我现在上传了附件，您看得空的时候能再帮我 ...

附件供参考。。。

512008404 · 发表于 2023-7-21 07:34

参与一下！

吴中泉 · 发表于 2023-7-21 07:36

ykcbf1100 发表于 2023-7-21 07:19
附件供参考。。。

老师好早好勤奋,向老师学习,向老师看齐!

沈默00 · 发表于 2023-7-21 07:39

range("a1").end(xldown)---A列最后一个单元格的内容
range("a1").end(xldown).row---A列最后一个单元格的行号
也可以rows.count+end(xlup)写成从下向下循环，这种方式更佳，可以防止中间出现空行

ykcbf1100 · 发表于 2023-7-21 07:43

吴中泉发表于 2023-7-21 07:36
老师好早好勤奋,向老师学习,向老师看齐!

没事多泡泡论坛

smiletwo · 发表于 2023-7-21 09:03

写代码要避免无限循环

		自动登录	找回密码
密码			免费注册

[求助] 请教一个无限循环至最后有数据的那行