使用macros将excel中的特定列复制到新工作表

我试图select和复制特定的整个列从一个表到另一个不能做到这一点，下面是代码：

Sheets("Sheet3").Range("B1").Value = Sheets("Sheet2").Range("G1").Value 

任何想法如何设置整个列的范围？

Answer 1

要复制整个列，而不是

 Sheets("Sheet3").Range("B1").Value = Sheets("Sheet2").Range("G1").Value 

写

 Sheets("Sheet3").Range("B:B").Value = Sheets("Sheet2").Range("G:G").Value 

并保留数字格式write-

 Sheets("Sheet3").Columns("B").NumberFormat = "General" 

__________________________________________________________________________

你甚至可以使用Column作为：

 Sheets("Sheet3").Columns("B").Value = Sheets("Sheet2").Columns("G").Value 

__________________________________________________________________________

您也可以使用Copy为：

 Sheets("Sheet2").Columns("G").Copy Sheets("Sheet3").Columns("B") 

Answer 2

你也可以

 Sheets("Sheet2").Columns("G").copy Sheets("Sheet3").Columns("B") 

要么

 Sheets("Sheet3").Columns("B") = Sheets("Sheet2").Columns("G").Value 

如果你想复制多个连接的列，你可以做

 Sheets("sheet2").Columns("G:H").copy sheets("Sheet3").Columns("B:C") 

保持一般格式，你可以添加

 Sheets("Sheet2").Columns("G").NumberFormat = "General"