excel中vba代码中的日期与数字怎么拼到一起转成文本格式?

2024-11-27 19:29:08
推荐回答(2个)
回答1:

Sub test()
myrow = Range("A65536").End(xlUp).Row
For i = 1 To myrow
    Range("C" & i) = Format(Range("A" & i), "yyyymmdd") & Format(i, "000")
Next
End Sub

回答2:

Format(Range("A" & i).value,"yyyymmdd") & Format(i,"000")