请教高手，表间移动数据并清空

heiniu_007

SHEET1录入数据之后（假设是数据1）只要按一下按钮就可以把SHEET1的数据1移动到SHEET2，标题即第一行不用清空（也可不移动），等SHEET1再录入数据后（数据2），再按一下按钮，可以把SHEET1的数据2移动到SHEET2 在接着数据1。（SHEET2相当于是SHEET1 输入过的数据的记录表）

清楚么？请各位高手帮帮忙！不清楚，请加我QQ27166539

[此贴子已经被作者于2006-11-30 11:01:15编辑过]

chenchunhuiabc

使用如下代码即可：

Dim CCH  As Range

Private Sub CommandButton1_Click()
Range("A2:C10000").Select '这一区域选中复制
Selection.Copy

For Each CCH In Sheets("Sheet2").Range("A1:A10000")
If CCH.Text = "" Then
Sheets("Sheet2").Select
CCH.Select
  ActiveSheet.Paste '粘贴SHEETS1中的数据
  Sheets("Sheet1").Select '返回选中SHEET1
  Range("A2:C10000").ClearContents '清除SHEET1中的内容
  GoTo LINE1 '退出循环
Else

End If
Next
LINE1:
   
End Sub

guzhen9315

<DIV class=quote>以下是引用heiniu_007在2006-11-30 11:00:00的发言：


SHEET1录入数据之后（假设是数据1）只要按一下按钮就可以把SHEET1的数据1移动到SHEET2，标题即第一行不用清空（也可不移动），等SHEET1再录入数据后（数据2），再按一下按钮，可以把SHEET1的数据2移动到SHEET2 在接着数据1。（SHEET2相当于是SHEET1 输入过的数据的记录表）

清楚么？请各位高手帮帮忙！不清楚，请加我QQ27166539