Excel请教宏命令复制粘贴的编写

Excel请教宏命令复制粘贴的编写

Sheet2中会不会不出现第一行和第三行有数据，第二行没有数据的情况？如果有的话还是粘贴到第二行吗？
建议你截个Sheet2的图追问也有这个可能，出现概率比较少，命令帮我写全面也好，谢谢！追答如果有的话还是粘贴到第二行吗？还是把新数据都粘贴到最后一行？追问第二行追答Sub 复制粘贴()

Dim r As String
r = Sheets("sheet2").UsedRange.Item(Sheets("sheet2").UsedRange.Count).Row + 1

For i = 1 To r
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Sheets("sheet2").Cells(i, 1) = Sheets("sheet1").Cells(1, 1)
Sheets("sheet2").Cells(i, 2) = Sheets("sheet1").Cells(2, 1)
Exit For
End If
Next

End Sub已上传附件，根据工作表的名字改代码里的名字，相信你有基础
sheet2已包含所有可能出现的情况


已改进代码
Sub 复制粘贴()

Dim r As String
r = Sheets("sheet2").UsedRange.Item(Sheets("sheet2").UsedRange.Count).Row + 1

For i = 1 To r
If Sheets("sheet2").Cells(i, 1) = "" And Sheets("sheet2").Cells(i, 2) = "" Then
Sheets("sheet2").Cells(i, 1) = Sheets("sheet1").Cells(1, 1)
Sheets("sheet2").Cells(i, 2) = Sheets("sheet1").Cells(2, 1)
Exit For
End If
Next

End Sub

Sub test()
   With Sheets("Sheet2")
       i = .Cells(Rows.Count, 1).End(3) + 1
       Sheets("Sheet1").Range("a1:a2").Copy
       .Cells(i, 1).PasteSpecial Transpose:=True
   End With
End Sub



就这么简单！
VBA的使用　我就不多说了！追问i = .Cells(Rows.Count, 1).End(3) + 1执行到这就中断了追答请确保工作表名为Sheet2的工作表存在
区分大小写！追问确定是Sheet2追答看看代码上面是不是要求强制声明变量了
我估计 option了！
如果有 可以去掉
或者在sub test下面 添加
dim i&