Range.Copy 方法(Excel) | Microsoft Docs

如果省略此引數，Microsoft Excel 會將範圍複製到[剪貼簿]。

... 有關於Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應 ... 跳到主要內容 已不再支援此瀏覽器。

請升級至MicrosoftEdge，以利用最新功能、安全性更新和技術支援。

下載MicrosoftEdge 其他資訊 目錄 結束焦點模式 閱讀英文 儲存 目錄 閱讀英文 儲存 編輯 Twitter LinkedIn Facebook 電子郵件 目錄 Range.Copy方法(Excel) 發行項 04/06/2022 1位參與者 本文內容 可將範圍複製到指定的範圍或[剪貼簿]。

注意 對於開發跨多個平台，擴充使用者Office體驗的解決方案感到興趣嗎？請參閱新的Office增益集模型。

與VSTO增益集和解決方案相比，Office增益集的佔用空間較小，而且您可以使用幾乎任何網頁程式技術(例如HTML5、JavaScript、CSS3和XML)來建立這些增益集。

語法 expression.Copy(Destination) expression代表Range物件的變數。

參數 名稱 必要/選用 資料類型 描述 Destination 選用 Variant 指定要複製指定範圍的新範圍。

如果省略此引數，MicrosoftExcel會將範圍複製到[剪貼簿]。

傳回值 Variant 範例 以下範例會將Sheet1上A1:D4儲存格的公式複製到Sheet2上的E5:H8儲存格中。

Worksheets("Sheet1").Range("A1:D4").Copy_ destination:=Worksheets("Sheet2").Range("E5") 下列程式碼範例會針對Sheet1上每一列，逐一檢查D欄的值。

如果D欄中的值等於A，則會將整列複製到SheetA的下一個空白列中。

如果值等於B，則會將列複製到SheetB。

PublicSubCopyRows() Sheets("Sheet1").Select 'Findthelastrowofdata FinalRow=Cells(Rows.Count,1).End(xlUp).Row 'Loopthrougheachrow Forx=2ToFinalRow 'DecideiftocopybasedoncolumnD ThisValue=Cells(x,4).Value IfThisValue="A"Then Cells(x,1).Resize(1,33).Copy Sheets("SheetA").Select NextRow=Cells(Rows.Count,1).End(xlUp).Row+1 Cells(NextRow,1).Select ActiveSheet.Paste Sheets("Sheet1").Select ElseIfThisValue="B"Then Cells(x,1).Resize(1,33).Copy Sheets("SheetB").Select NextRow=Cells(Rows.Count,1).End(xlUp).Row+1 Cells(NextRow,1).Select ActiveSheet.Paste Sheets("Sheet1").Select EndIf Nextx EndSub 支援和意見反應 有關於OfficeVBA或這份文件的問題或意見反應嗎？如需取得支援服務並提供意見反應的相關指導，請參閱OfficeVBA支援與意見反應。

本文內容