[已解决]能用代码吗

mmc998

工作簿1.rar (88.94 KB, 下载次数: 14)

2015-9-27 07:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

高

2015-9-27 10:02

看行不行

跳转到最佳答案楼层

markang

Sub t1()
Dim x As Integer

For x = 1 To 3000 Step 1

Cells(x, 7) = Application.Small(Range("a" & x & ":e" & x), 1)
Cells(x, 8) = Application.Small(Range("a" & x & ":e" & x), 2)
Cells(x, 9) = Application.Small(Range("a" & x & ":e" & x), 3)
Cells(x, 10) = Application.Small(Range("a" & x & ":e" & x), 4)
Cells(x, 11) = Application.Small(Range("a" & x & ":e" & x), 5)

Next x

End Sub

高

看行不行