[已解决]倒转(按升序)复制到表2中的VBA

东方智彩 · 发表于 2011-7-7 09:30

本帖最后由东方智彩于 2011-7-7 09:30 编辑

怎么能选择B:G列中的上20行倒转(按升序)复制到表2中去,请高给解决个VBA,谢谢

Book1.rar (8.34 KB, 下载次数: 15)

liuts · 发表于 2011-7-7 11:04

Book1.rar (16.99 KB, 下载次数: 12)

liuts · 发表于 2011-7-7 11:15

select * from (select top 20 * from [sheet1$b2:g1000]) order by 日期

东方智彩 · 发表于 2011-7-7 11:20

回复 liuts 的帖子

谢谢楼上的朋友关注,测试了不好用啊!

liuts · 发表于 2011-7-7 11:26

本帖最后由 liuts 于 2011-7-7 11:28 编辑

看明白了自己调整一下
自己录一段代码固定复制20行的话，复制过去排序就行了

djyjysxxs · 发表于 2011-7-7 11:36

With Sheet2
For i = 3 To 22
.Range("b" & i & ":g" & i) = Sheet1.Range("B" & 25 - i & ":G" & 25 - i).Value
Next
End With

		自动登录	找回密码
密码			注册