vba 把一个sheet里面的内容 循环 一个一个单元格复制到另一个sheet

可以使用VBA代码将一个工作表中的内容逐个单元格复制到另一个工作表中，具体步骤如下：

1. 打开VBA编辑器，新建一个模块。
2. 编写以下代码：

Sub CopySheetContents()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set sourceSheet = Worksheets("源工作表名称")
    Set targetSheet = Worksheets("目标工作表名称")
    
    lastRow = sourceSheet.Cells(Rows.Count, "A").End(xlUp).Row '获取源工作表最后一行
    
    For i = 1 To lastRow
        sourceSheet.Range("A" & i).Copy '复制源工作表第i行的A列
        targetSheet.Range("A" & i).PasteSpecial xlPasteValues '粘贴到目标工作表第i行的A列
        Application.CutCopyMode = False '清除剪贴板内容
    Next i
    
End Sub

3. 将代码中的“源工作表名称”和“目标工作表名称”替换为实际的工作表名称。
4. 运行代码，即可将源工作表中的内容逐个单元格复制到目标工作表中。

请注意，本代码只复制了源工作表中的第一列内容，如果需要复制多列内容，可以在循环中逐一复制粘贴。同时，如果目标工作表中已经有内容，本代码会覆盖目标工作表中的内容，请谨慎操作。另外，为了避免剪贴板中的内容影响其他操作，可以在每次循环结束后清除剪贴板内容。