如何将Sheet1的一列复制到Excel Vba中的Sheet2列 [英] How Do I Copy One Column Of Sheet1 To Sheet2 Column In Excel Vba

问题描述

以下代码对我来说工作正常，但我需要从第9行开始复制sheet2中的整个列如何实现它？

请帮助。



Sheets（Sheet1）。选择

列（D：D）。选择

Application.CutCopyMode = False

Selection.Copy

Sheets（Sheet2）。选择

Sheet2.Columns（D：D）。选择

ActiveSheet.Paste

The below code is working fine for me but i need to copy the entire column in sheet2 starting from 9th row how to acheive it ?
please help.

Sheets("Sheet1").Select
Columns("D : D").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Sheet2.Columns("D : D").Select
ActiveSheet.Paste

推荐答案

试试这个：

Try this:

ThisWorkbook.Worksheets("Sheet1").Range("A9:A" & Cells.Count).Copy ThisWorkbook.Worksheets("Sheet2").Range("A9")

更多： Range.Copy方法 [ ^ ]

这篇关于如何将Sheet1的一列复制到Excel Vba中的Sheet2列的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！