| Range.Copy 方法 (Excel) | 您所在的位置：网站首页 › vba的range的select方法无效 › Range.Copy 方法 (Excel) |
|
Range.Copy 方法 (Excel)
项目
04/07/2023
将区域复制到指定的区域或剪贴板。 注意 有兴趣开发跨多个平台扩展 Office 体验的解决方案吗？ 查看新的 Office 外接程序模型。 与VSTO外接程序和解决方案相比，Office外接程序占用的空间较小，您可以使用几乎任何Web编程技术（例如HTML5，JavaScript，CSS3和XML）来构建它们。 语法expression.Copy (Destination) expression 一个表示 Range 对象的变量。 参数 名称 必需/可选 数据类型 说明 Destination 可选 Variant 指定要将指定区域复制到的新区域。 如果省略此参数，则 Microsoft Excel 会将区域复制到剪贴板。 返回值Variant 示例以下代码示例将工作表 Sheet1 上单元格 A1:D4 中的公式复制到工作表 Sheet2 上的单元格 E5:H8 中。 Worksheets("Sheet1").Range("A1:D4").Copy _ destination:=Worksheets("Sheet2").Range("E5:H8")下面的代码示例检查 Sheet1 中各行 D 列中的值。 如果 D 列的值等于 A，则整行都复制到 SheetA 的下一个空行中。 如果值等于 B，则该行复制到 SheetB。 Public Sub CopyRows() Sheets("Sheet1").Select ' Find the last row of data FinalRow = Cells(Rows.Count, 1).End(xlUp).Row ' Loop through each row For x = 2 To FinalRow ' Decide if to copy based on column D ThisValue = Cells(x, 4).Value If ThisValue = "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 ElseIf ThisValue = "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 End If Next x End Sub 支持和反馈有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。 |
| CopyRight 2018-2019 实验室设备网 版权所有 |