[已解决]从小到大排列的顺序数字，缺失的如何用0替代

lijian8003

在1-14的数字中，从小到大选择10个，写入A-J列。现在欲将缺失的数字用0替代，然后将1-14的数字写入L-Y列
例如：A-J列 1 2 3 4 6 7 8 9 11 12    写入L-Y列 1 2 3 4 0 6 7 8 9 0 11 12 0 0

最佳答案

月排行榜 / 总排行榜

lisachen

2017-8-20 14:00

从小到大排列的顺序数字，缺失的如何用0替代.rar (13.9 KB, 下载次数: 9)

2017-8-20 14:00 上传

点击文件名下载附件

跳转到最佳答案楼层

lisachen

从小到大排列的顺序数字，缺失的如何用0替代.rar (13.9 KB, 下载次数: 9)

2017-8-20 14:00 上传

点击文件名下载附件

上清宫主

Sub test()
Dim ar1(), ar2%()
ar1 = Range("a1").CurrentRegion.Value
ReDim ar2(1 To UBound(ar1), 1 To 14)
For i = 1 To UBound(ar1)
   For j = 1 To UBound(ar1, 2)
       ar2(i, ar1(i, j)) = ar1(i, j)
   Next j
Next i
Range("l1").Resize(i - 1, 14) = ar2
End Sub

lijian8003

上清宫主 发表于 2017-8-20 15:33
Sub test()
Dim ar1(), ar2%()
ar1 = Range("a1").CurrentRegion.Value

谢谢

lijian8003

lisachen 发表于 2017-8-20 14:00

谢谢