- Sub test()
- Dim arr, re$(), i&
- arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
- ReDim re(1 To UBound(arr) - 2, 1 To 1)
- For i = 3 To UBound(arr)
- re(i - 2, 1) = Format(arr(i - 2, 1), "00") & Format(arr(i - 1, 1), "00") & Format(arr(i, 1), "00")
- Next
- Range("B3").Resize(UBound(re)) = re
- End Sub
复制代码 |