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

时间:2021-09-11 05:59:33
怎么把一张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


就是我把一个表做好了,想通过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


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