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

●.o_尛气包

各位老师好！如图所示得出绿色结果部分，我怕文字描述写的太复杂了，所以上传了附件！先谢了！

cidanji

好像没看懂又好像看懂了

liulang0808

描述看不懂的，楼主按照自己的需求录制一段宏，然后参考看看是否有效

3190496160

Sub 填充公式()
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To r
        .Cells(i, 5).FormulaR1C1 = "=RC[-2]&RC[-4]&RC[-1]&RC[-3]"
    Next i
End With
End Sub
Sub 填充数值()
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:e" & r)
    For i = 1 To r
        ar(i, 5) = ar(i, 3) & ar(i, 1) & ar(i, 4) & ar(i, 2)
    Next i
    .Range("a1:e" & r) = ar
End With
End Sub

3190496160

ykcbf1100

重复求助发帖。

cyq4896

参与一下...

●.o_尛气包

cyq4896 发表于 2023-7-21 08:41
参与一下...

呃 这个不对，E列全部变成了E1单元格的内容，并没有如图所示随着A列内容 变化E列值

●.o_尛气包

cyq4896 发表于 2023-7-21 08:41
参与一下...

呃 刚才看错了这个代码不对，E列出来的数据都变成E1一样的数据了，没有随着A列的值变化

●.o_尛气包

3190496160 发表于 2023-7-21 08:23
Sub 填充公式()
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row

从第二行开始E列的结果就只有A列的号码，B、C、D列的数据没有带过来。请老师再看看。