如何通过Excel VBA将Sheet1数据逐个单元格复制粘贴到Sheet2？

完全可以实现你的需求，以下是针对性的VBA代码及关键说明：

Sub CopyCellsAndGenerateTxt()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim cell As Range
    Dim targetRow As Long
    Dim txtPath As String
    
    ' 指定源表和目标表
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet1")
    Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
    
    ' 定义需要复制的源数据范围（A1:C5）
    Set sourceRange = sourceSheet.Range("A1:C5")
    
    ' 获取Sheet2中A列第一个空行的行号
    targetRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 设置同步txt文件的保存路径（自动创建子文件夹）
    txtPath = ThisWorkbook.Path & "\SyncDataFiles\"
    If Dir(txtPath, vbDirectory) = "" Then MkDir txtPath
    
    ' 逐个遍历源范围的单元格
    For Each cell In sourceRange
        ' 跳过空单元格（可根据需求删除此判断）
        If cell.Value <> "" Then
            ' 将单元格值写入Sheet2的目标位置
            targetSheet.Cells(targetRow, "A").Value = cell.Value
            
            ' 生成对应同步txt文件，文件名用单元格地址确保唯一
            Open txtPath & "Sync_" & cell.Address(False, False) & ".txt" For Output As #1
            Print #1, cell.Value
            Close #1
            
            ' 目标行下移，准备写入下一个数据
            targetRow = targetRow + 1
        End If
    Next cell
    
    MsgBox "数据复制及同步文件生成完成", vbInformation
End Sub

关键逻辑说明 #

• 目标行定位：通过End(xlUp)精准找到Sheet2中A列最后一个非空单元格的下一行，避免覆盖已有数据
• 同步文件生成：每个单元格对应一个独立txt文件，用单元格地址（如A1、B3）命名，确保文件唯一性；自动创建SyncDataFiles子文件夹存放同步文件，避免杂乱
• 空值过滤：可选判断，跳过空单元格，减少无效同步文件（不需要的话直接删除If cell.Value <> "" Then及对应的End If）

额外提示 #

• 运行前确保工作簿已启用宏功能
• 如果需要跨文件同步，可将txtPath设置为共享文件夹路径，其他Excel文件可通过读取这些txt文件实现数据更新

内容的提问来源于stack exchange，提问作者Erwin Locadia