需要按条件无限循环至最后一个非空的单元格

●.o_尛气包

各位老师抱歉，由于我上两次没有表达清楚自己需求，所以得再发一遍，重新请教！


因为我一个工作簿里面有很多工作表都要重复此操作，所以才需要一个宏，并非是可以下拉解决的问题，我去绕远路求个宏出来，这只是一个例子，还希望老师们能理解。

流浪星星

公式直接填充不就行了吗

Yalishanda30

重复发帖，浪费资源

micch

发多少次结果也不会变吧。    = c$1&a1&d$1$b$1       直接下拉就完了，为什么一定要代码去干这个活呢

micch

1. sub Test
   
2. range("e1").formula="= c$1&a1&d$1$b$1"
   
3. range("e1:e" & range("a1").end(4).row).filldown
   
4. end sub

复制代码

一定要代码

●.o_尛气包

流浪星星 发表于 2023-7-21 12:11
公式直接填充不就行了吗

因为我有好多好多张表 每张表的数据行数都不一样

●.o_尛气包

micch 发表于 2023-7-21 12:15
发多少次结果也不会变吧。    = c$1&a1&d$1$b$1       直接下拉就完了，为什么一定要代码去干这个活呢

因为我有好多好多张表 每张表的数据行数都不一样

psxk3535

B2:D2及以下的单元格没有内容吗？是A列和B1:D1的数据组合吗？还是描述不清

佛衫丶黄非红

1. Sub test()
   
2. i = 1
   
3.     Do While Sheet1.Range("a" & i) <> ""
   
4.         Sheet1.Range("e" & i) = Sheet1.Range("c" & i) & Sheet1.Range("a" & i) & Sheet1.Range("d" & i) & Sheet1.Range("b" & i)
   
5.     i = i + 1
   
6.     Loop
   
7. End Sub

复制代码

●.o_尛气包

psxk3535 发表于 2023-7-21 12:24
B2:D2及以下的单元格没有内容吗？是A列和B1:D1的数据组合吗？还是描述不清

对，是A列和B1:D1的组合数据！谢谢！