请教老师：如何查找倒数1至10行的数据？

zainan0810

请教老师：sheet2中的行数是变量（每行只有8个数，这是不变的。）。分别将倒数1~10行的数据，放在上面的要求中？。 查找倒数1至10行的数据.rar (9.31 KB, 下载次数: 8)

2019-6-12 22:24 上传

点击文件名下载附件

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Sheet2.Select
   
4.     r = Cells(Rows.Count, 1).End(3).Row
   
5.     x = 2
   
6.     For j = r To WorksheetFunction.Max(r - 9, 1) Step -1
   
7.         Cells(j, 1).Resize(1, 8).Copy Sheet1.Cells(2, x)
   
8.         x = x + 10
   
9.     Next j
   
10.     Application.ScreenUpdating = True
    
11. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

唐朝123

Sub test()
    Dim arr(), i%, c%
    arr = Sheet2.UsedRange
    For i = UBound(arr) To 1 Step -1
        c = c + 1
        Cells(2, 2 + (c - 1) * 10).Resize(1, 8) = Application.Index(arr, i)
    Next
End Sub

不知道为什么

zainan0810

liulang0808 发表于 2019-6-12 22:31

谢谢版主大人啊！秒回啊，太牛啦！

zainan0810

唐朝123 发表于 2019-6-12 22:35
Sub test()
    Dim arr(), i%, c%
    arr = Sheet2.UsedRange

谢谢唐朝123老师的帮助！您以前也帮过我，记着呢，呵呵。

zainan0810

不知道为什么 发表于 2019-6-12 22:41

谢谢不知道为什么老师啦！不知道为什么，就是忘不掉您，哈哈。您帮我太多了，不多谢了啊。

不知道为什么

zainan0810 发表于 2019-6-13 05:46
谢谢不知道为什么老师啦！不知道为什么，就是忘不掉您，哈哈。您帮我太多了，不多谢了啊。

哈哈，不客气，论坛就是学习互助的地方，我也得到过很多帮助的