怎么把一张EXCEL中的表的数据COPY到另一张数据表中？

8 个解决方案

#1

就是我把一个表做好了，想通过VBA做一个按钮，按钮的功能要求数据录入完成后，点按钮把此表中的数据COPY到另一张指定的EXCEL表中。大家有什么好的方法？

#2

数据copy到本工作薄内的另一个表中：
Sub copy_sheet()
    Cells.Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

数据copy到其他工作薄的表中：
Sub copy_sheet()
   wb1 = ActiveWorkbook.Name
   Application.FileDialog(msoFileDialogFilePicker).Filters.Add "Excel(*.xls)", "*.xls", 1
   temp = Application.FileDialog(msoFileDialogFilePicker).Show
   If temp <> 0 Then
      Application.Workbooks.Open (Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1))
   End If
   wb2 = ActiveWorkbook.Name
   Workbooks(wb1).Activate
   Sheets(1).Activate
   Cells.Select
   Selection.Copy
   Workbooks(wb2).Activate
   Sheets("Sheet2").Activate
   Range("a1").Select
   ActiveSheet.Paste
   Range("a1").Select
   Workbooks(wb2).Save
   Workbooks(wb2).Close
End Sub

#3

如果要控制具体的数据COPY有什么方法？就是一个页面上可能有的数据是我要的，有的不是我要的，想把要的COPY到另一张表中怎么办？谢谢

#4

比如你想要单元格区域a1:b5的数据，只要把上面代码中
……
   Sheets(1).Activate
   Cells.Select
   Selection.Copy
……
改成如下代码即可实现：

……
   Sheets(1).Activate
   Range("a1:b5:").select
   Selection.Copy
……

#5

在本工作薄内怎么控制？谢谢

#6

本工作薄内选择不同的工作表就行了Sheets(1).Activate表的序号根据情况更改就行了

#7

你好，我还想问你一下，如果我想把同一工作薄的A、B、C、。。多张表COPY到D表。但不能把以前COPY的数据覆盖。你上次给你解决方法只能把从一张表中COPY到另一张表，但不能接着住上次覆盖的地方去COPY？有什么好办法不？谢谢

#8

各位高手,想请教一下,如果两个表不在同一路径,即同一个文件夹内是怎么解决?

#1

#2

#3