VBA 行列的获取和循环赋值demo

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