[已解决]数据组合的问题

晓敏

附件 数据组合附件.zip (4.95 KB, 下载次数: 6)

2015-1-6 10:36 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

xdragon

2015-1-6 10:43

1. Sub test()
   
2.     Dim arr, re$(), i&
   
3.     arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
   
4.     ReDim re(1 To UBound(arr) - 2, 1 To 1)
   
5.     For i = 3 To UBound(arr)
   
6.         re(i - 2, 1) = Format(arr(i - 2, 1), "00") & Format(arr(i - 1, 1), "00") & Format(arr(i, 1), "00")
   
7.     Next
   
8.     Range("B3").Resize(UBound(re)) = re
   
9. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub test()
   
2.     Dim arr, re$(), i&
   
3.     arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
   
4.     ReDim re(1 To UBound(arr) - 2, 1 To 1)
   
5.     For i = 3 To UBound(arr)
   
6.         re(i - 2, 1) = Format(arr(i - 2, 1), "00") & Format(arr(i - 1, 1), "00") & Format(arr(i, 1), "00")
   
7.     Next
   
8.     Range("B3").Resize(UBound(re)) = re
   
9. End Sub

复制代码

baksy

函数解决；
B3单元格复制以下公式，三键回车，下拉；
=TEXT(SUM(A1:A3*10^(6-(ROW($1:$3))*2)),"000000")