vba怎么复制excel表格,表格,复制,vba

1.excel中用vba实现表的复制怎么弄

Workbooks("Book2").Sheets("Sheet1").Copy After:=Workbooks("Book1").Sheets(3)把book2中的sheet1拷贝到book1的sheet3之后如果要用循环遍历拷贝，可以使用集合，如：dim sheet as worksheetfor each sheet in workbook("book1").worksheets sheet.copy After:=workbook("book2").sheets(workbook("book2").sheets.count)next。

2.VBA 如何从一个Excel文件中复制一张表到另一个Excel中去 搜狗问问

大体和这个意思相近就OK了

在sql查询分析器中。

insert into OpenDataSource ('Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\1.xls";Extended properties=Excel 5.0')。Sheet1$

SELECT *

FROM OpenDataSource ('Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\2.xls";Extended properties=Excel 5.0')。Sheet1$

3.在Excel中利用VBA 如何复制内容

把Sheet1!A1:E10的格式复制到Sheet2!A1:E10代码如下：

Sheets("Sheet1").Range("A1:E10").Copy Sheets("Sheet2").Select Selection.PasteSpecial Paste:=xlPasteFormats 把Sheet1!A1:E10复制到Sheet2!A1:E10代码如下：

Sheets("Sheet1").Range("A1:E10").Copy Sheets("Sheet2").[A1]

有不明白请追问，如有需要可发文件到gang364470141@126.com

4.vba如何打开并复制别的表格

1. 打开别的表格可以用Workbooks.Open方法打开一个Excel工作簿，这个函数的具体用法和参数如下：

Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, , Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

其中FileName是必选的参数，表示要打开的工作簿名，如果没有指定路径，则代表当前路径。另外14个是可选参数，除了密码参数，其他的一般很少用。具体的含义可以参看VBA的帮助。

实例：

Workbooks.Open "F:\test.xls" '表示打开F盘根目录名称为test.xls的文件

可以打开F盘的test.xls文件。

2. 复制别的表格可以用Copy方法。选中你要复制的工作表，然后复制工作表中的所有内容，然后粘贴到你要复制到的工作薄。假设你要复制的是C盘用户文档下的123.xls文件中的Sheet5工作表，需要复制到你已经打开的第一个工作薄Book1，具体的实现代码为：

Sub Macro()

'下面一行代码表示打开C盘用户文档文件夹中名称为123.xls的文件

Workbooks.Open Filename:= _

"C:\Documents and Settings\***istrator\My Documents\123.xls"

Sheets("Sheet5").Select '选中你要复制的工作表Sheet5 '

Cells.Select '选中Sheet5中所有的单元格

Selection.Copy '复制选中的内容

Windows("Book1").Activate '把工作薄Book1置为当前工作薄

ActiveSheet.Paste '把复制的内筒粘贴的当前工作薄Book1

End Sub

5.vba 将一个excel的数据复制到另一个excel中

Sub AAA()

Dim Sh1 As Worksheet

Dim Sh2 As Worksheet

Set Sh1 = Workbooks("1.XLS").Sheets(1)

Set Sh2 = Workbooks("2.XLS").Sheets(1)

Sh1.Range(Sh1.[A1], Sh1.Range("A1").End(xlDown)).Copy Sh2.[A1]

Sh1.Range(Sh1.[A65536].End(xlUp), Sh1.[A65536].End(xlUp).End(xlUp)).Copy Sh2.[B1]

End Sub随便放哪个工作簿吧。但是，两个工作簿都要打开。当然你也可以加上打开工作簿的代码。

6.vba 同一个excel工作表,sheet之间的复制

Sub findred()

Set xxx = Sheet1.UsedRange

For t1 = 1 To xxx.Rows.Count

For t2 = 1 To xxx.Columns.Count

If xxx(t1, t2).Font.ColorIndex = 3 Then

r = r + 1

Sheet2.Cells(r, 1).Resize(1, xxx.Columns.Count) = xxx.Rows(t1).Value

Exit For

End If

Next

Next

End Sub

--------------------------------------------------

根据补充， 再写以下一段程序：

Sub findempty()

Set xxx = Sheet1.[A3:A10000]

Set yy = Sheet2.[A3]

For Each xx In xxx

If Not IsEmpty(xx) Then

yy.Offset(r, 0) = xx

yy.Offset(r, 1) = xx.Offset(0, 3)

r = r + 1

End If

Next

End Sub

此程序差不多是VBA最基本及最低程度的代码， 亦容易明白及修改单元格的范围

7.EXCEL 怎么用VBA实现：复制sheet1里面的A1,B2,C3单元格到sheet2

Sub a()

Set sh1 = Sheet1

Set sh2 = Sheet2

sh1.Range("a1").Copy sh2.Range("a1")

sh1.Range("b2").Copy sh2.Range("b2")

sh1.Range("c3").Copy sh2.Range("c3")

sh2.Select

sh2.Range("a1").Select

End Sub