不用说，这种方法对付操作十分方便，那么如何利用代码来实现复制功能呢！
由于在编程过程中，会用到将一个或多个单元格的内容复制其余单元格当中，程序过程中是不能进行键盘干预的。
以是我们将学会利用其代码方法来对单元格进行复制。
NO.2
很大略，利用Range工具的Copy方法。
详细方法和参数如下图
Copy方法的功能便是将一个区域单元格复制到指定区域，如不指定得到地点，那么就复制到剪贴板当中。
然后再用PasteSpecial方法来复制，这篇文章就不做PasteSpecial方法先容了，紧张来先容一下Copy （Destination）带参数的方法。
NO.3
上图为举例先容，任意单击鼠标选择一个单元格，分别实现向右或向下复制单元格内容。
在某些特定环境下面，这种方法真的十分有效，节省很多操作步骤。
由于将复制简化成了单击两下鼠标的操作。
NO.4
代码先容
获取复制单元格函数：getRanges()
Private Function getRanges(sR As Range) As Range Dim w As Worksheet Set w = ActiveSheet Dim n As Integer, ri As Long, ci As Long nr = sR.Row nc = sR.Column ri = w.Cells(w.Rows.Count, nc).End(xlUp).Row '取最大行号 ci = w.Cells(nr, w.Columns.Count) _ .End(xlToLeft).Column '取最大列号 If ri < nr Or ri = 1 Then GoTo Err0 If ci < nc Or ci = 1 Then GoTo Err0 Set getRanges = _w.Range(w.Cells(sR.Row, sR.Column) _, w.Cells(ri, ci)) Exit FunctionErr0: Set getRanges = NothingEnd Function
其功能是将选定单元格到全体表格最右下角之间的单元格，作为复制的内容。
向下复制函数：copyDown()
Private Sub copyDown(ri As Long, sR As Range) With sR .Copy Destination:=.Offset(ri, 0) _ .Resize(sR.Rows.Count, sR.Columns.Count) End WithEnd Sub
向右复制函数：copyRight()
Private Sub copyRight(ci As Long, sR As Range) With sR .Copy Destination:=.Offset(0, ci) _ .Resize(sR.Rows.Count, sR.Columns.Count) End WithEnd Sub
向右复制按钮过程代码
Private Sub CommandButton1_Click() Dim sR As Range Set sR = Selection Dim svR As Range Set svR = getRanges(sR) If svR Is Nothing Then Exit Sub Call copyRight(svR.Columns.Count, svR)End Sub
向下复制按钮过程代码
Private Sub CommandButton2_Click() Dim sR As Range Set sR = Selection Dim svR As Range Set svR = getRanges(sR) If svR Is Nothing Then Exit Sub Call copyDown(svR.Rows.Count, svR)End Sub
重点
重点就在于选择Destination参数，就说这个参数决定了要复制的目的地，如果进行跨表复制，那么要带上完全的表路径。
例如：
Dim xR As Range Set xR = ThisWorkbook.Worksheets("Sheet3").Range("A1") Activesheet.range("A1:F10").Copy Destination:=xR
便是将当前表中的A1:F10单元格内容复制到表Sheet3当中以A1开始的位置。
复制内容包括值和格式以及公式。
NO.5Copy方法并不难学，乃至都不用十分用功就会明白。
但是会用和运用闇练是两码事情，以是要多做练习之后会提高利用Copy方法的灵巧性，才能得心应手。
很多事情不都是这个道理吗！
喜好就关注、收藏
