2,462
社区成员
发帖
与我相关
我的任务
分享
Private Sub CommandButton1_Click()
Dim i As Integer
If Selection.Cells.Count >= 1 Then
Selection.Copy
End If
For i = 1 To Sheet2.Range("a65533").End(xlUp).Row + 1
If Sheet2.Cells(i, 1) = "" Then
Sheet2.Cells(i, 1).PasteSpecial xlPasteAll
GoTo Finish
End If
Next i
Finish:
End Sub
3.在sheet1页面选中区域点按钮,就会复制到sheet2里面