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
VBA 行列的获取和循环赋值demo
最新推荐文章于 2024-02-07 09:00:00 发布