本文详细介绍了一种使用VBA在Excel中从Sheet1到Sheet2进行数据迁移的方法。通过行和列的循环，可以有效地将源工作表的数据复制到目标工作表，保持原有的数据结构。适用于需要批量处理数据转移的场景。
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
扫一扫
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
