Sub aaaa()
'行
For i = 1 To Sheet1.Range("A65535").End(xlUp).Row
If Sheet1.Cells(i, 1) Then
Sheet2.Cells(i, 1) = Sheet1.Cells(i, 1)
Else
'asdfasdf
End If
Next
'列数据
For i = 1 To Sheet1.Range("A65535").End(xlUp).Row
Sheet2.Cells(1, i) = Sheet1.Cells(1, i)
Next
End Sub