老师帮我解释下代码

静s听w风q雨

Sub dj_save()
Dim r, r1 As Long
    r = Sheets("薄膜模板").Range("A18").End(xlUp).Row - 16

   
   
    With Sheets("数据库")
        r1 = .Range("b65536").End(xlUp).Row + 1
         
        .Cells(r1, 1).Resize(r, 1) = Range("A22")



  MsgBox "单据保存成功！"
     
         
    End With
   
   
End Sub
老师帮我解释下Range("A18").End(xlUp).Row - 16
这句代码因为不同工作簿里要改动("A18").和Row - 16
的数字。不知道为什么，所要黏贴的单元格数量不同，就要改这数值，不知道为什么

R-G-V

没说清楚，不明何意。

无聊的疯子

Sheets("薄膜模板").Range("A18").End(xlUp).Row - 16


Sheets("薄膜模板").Range("A18")  这是后面 end 的判断基点


End(xlUp).Row  ,xlup=往上 ,row=行


以 "薄膜模板" 的 A18 单元格 为基点,往上 的 行


这个结果 和 选择 A18 然后按 CTRL + 键盘的 上键 一样的


更具体的说明 在下面连接的 5楼中
http://www.excelpx.com/thread-224527-1-1.html