请问，怎样将EXCEL表中的一整列或多列,复制到另一个EXCEL表中?

[sky2001123]

请问，怎样将EXCEL表中的一整列复制到另一个EXCEL表中?

我现在只会单一的单元格的复制，我现然的代码如下：

——————————————————————————————————————————
Private Sub Command1_Click()
'单元格复制
Dim VBExcel As Excel.Application
Set VBExcel = CreateObject("Excel.Application")
With VBExcel
.Workbooks.Open "e:\1.xls"
.Workbooks.Open "e:\2.xls"
.Workbooks("1.xls").Sheets("sky").Range("B1") = Workbooks("2.xls").Sheets("sheet4").Range("B1")
.Workbooks("2.xls").Save
.Workbooks("1.xls").Save
.Workbooks("2.xls").Close
.Workbooks("1.xls").Close
.Quit
End With
End Sub
——————————————————————————————————————————

[江海门户]

单元格可以用range或者cells
列就是Columns了

Private Sub Command1_Click()
'列复制
Dim VBExcel As Excel.Application
Set VBExcel = CreateObject( "Excel.Application ")
With VBExcel
.Workbooks.Open "e:\1.xls "
.Workbooks.Open "e:\2.xls "
.Workbooks( "1.xls ").Sheets( "sky ").Columns( "2") = Workbooks( "2.xls ").Sheets( "sheet4 ").Columns( "2")
.Workbooks( "2.xls ").Save
.Workbooks( "1.xls ").Save
.Workbooks( "2.xls ").Close
.Workbooks( "1.xls ").Close
.Quit
End With
End Sub

[波导终结者]

mark

[sky2001123]

Columns("2") 这个不对啊，说是对象错误

[sky2001123]

没有人知道了么，急啊

[KeLeGu]

没有那么复杂,这样就可以
range("a:a").Value=range("a:a").Value

[of123]

这种问题，在 Excel 中记录一下宏就清楚了。不必来问。