NO.1

在Excel操作過程當中，除了給表格輸入內容就數單元格復制最常用了，通常快捷方法有Ctrl+c，Ctrl+v。

不用說，這種方法對于操作十分方便，那么如何利用代碼來實現復制功能呢！

因為在編程過程中，會用到將一個或多個單元格的內容復制另外單元格當中，程序過程中是不能進行鍵盤干預的。

所以我們將學會使用其代碼方法來對單元格進行復制。

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.5

Copy方法并不難學，甚至都不用十分用功就會明白。

但是會用和應用熟練是兩碼事情，所以要多做練習之后會提高使用Copy方法的靈活性，才能得心應手。

很多事情不都是這個道理嗎！

喜歡就關注、收藏

總結

以上是生活随笔為你收集整理的取某个单元格的值_vba中如何进行单元格复制，Copy方法使用介绍，一定要学的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。