Question

EXCEL如何通过VB把数据复制到另一数据表

通过以下代码实现了同一个表的数据的复制粘贴,要如何改进才能复制到另一个数据表Sheet2呢
Private Sub CommandButton2_Click()
Selection.Copy
For I = 1 To 100
If Cells(I, 1) = "" Then
Rows(I).Select
ActiveSheet.Paste
Exit For
End If
Next I
End Sub

Answer 1

Sub 数据导出()
'
' 数据导出 宏

Workbooks.Open Filename:="F:\复制数据表名.xls"

'表格名
Sheets("表格名").Select
Cells.Select
Selection.Clear
Windows("Sheet1.xlsm").Activate
Sheets("表格名").Select
Cells.Select
Selection.Copy
Windows("复制数据表名.xls").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Sheet1.xlsm").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("复制数据表名.xls").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

追问

你好,我主要目的系想将SHEET1选定的整行数据进行复制,粘贴到SHEET2的非空行里面,有没些简洁点的.

追答

这样就不好做了 你这种情况可以采用调用数据透视表的方法做。处理好原始数据好 刷新一下SHEET1表格的数据就出来了！ 因为不知道你要的是什么样的效果，所以我也不好具体给出方法！

Answer 2

Sub Copy()
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(1)
End Sub