VBA运行Sub X时删除Ark2数据的问题排查求助

我帮你排查了代码里的几个关键问题，这应该就是导致Ark2数据被删除的核心原因，咱们一步步来解决：

问题根源分析 #

1. 未指定工作表对象：你的代码里所有Range调用都没有明确绑定具体工作表，默认会操作当前激活的工作表。如果运行宏时Ark2是打开状态且处于激活，代码就会直接修改Ark2的内容，这大概率是数据丢失的直接原因。
2. 索引计算错误：当t=1时，((t - 1) * lngDataColumns) - 1的结果是-1，会让Offset指向L2上方的L1单元格，不仅会覆盖目标表的表头，一旦在Ark2上操作，就会修改/删除该行数据。
3. 源数据引用逻辑错误：原代码循环中每次都转置Range("f1:h1")这同一行数据，完全没关联到Ark2的数据源，不符合你“从Ark2取数导入Ark1”的需求。

修正后的完整代码 #

我重新调整了代码，明确指定了源/目标工作表，修正了索引逻辑，还加了错误处理保障数据安全：

Sub x()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lngDataColumns As Long
    Dim lngDataRows As Long
    Dim t As Long
    
    ' 关闭屏幕更新和事件，提升运行速度并避免意外触发其他宏
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 错误捕获，确保出问题时能恢复设置
    On Error GoTo Cleanup
    
    ' 绑定源工作表（Ark2）和目标工作表（Ark1）
    Set wsSource = ThisWorkbook.Worksheets("Ark2")
    Set wsTarget = ThisWorkbook.Worksheets("Ark1")
    
    lngDataColumns = 3 ' F:H共3列，对应要转置的列数
    lngDataRows = 50 ' 需要处理的行数
    
    ' 循环处理每一行源数据
    For t = 1 To lngDataRows
        ' 从Ark2的第t+1行取数（F1偏移t行），转置后写入Ark1的L列
        wsTarget.Range("L2").Offset((t - 1) * lngDataColumns, 0).Resize(lngDataColumns, 1).Value = _
            Application.Transpose(wsSource.Range("F1:H1").Offset(t, 0).Value)
        
        ' 这里根据你标注的期望效果，调整M列的源数据范围
        ' 示例：如果M列需要对应行的其他字段，修改wsSource的Range即可
        wsTarget.Range("M2").Offset((t - 1) * lngDataColumns, 0).Resize(lngDataColumns, 1).Value = _
            Application.Transpose(wsSource.Range("F1:H1").Offset(t, 0).Value)
    Next t

Cleanup:
    ' 恢复Excel的默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    ' 释放内存中的工作表对象
    Set wsSource = Nothing
    Set wsTarget = Nothing
    
    ' 如果运行出错，弹出提示
    If Err.Number <> 0 Then
        MsgBox "宏运行出错：" & Err.Description, vbExclamation
    End If
End Sub

关键修正点说明 #

• 强制指定工作表：用wsSource绑定Ark2（数据源）、wsTarget绑定Ark1（目标表），所有单元格操作都明确指向对应工作表，彻底杜绝误操作Ark2的可能。
• 修复索引偏移：把原代码中Offset的计算式从((t - 1) * lngDataColumns) - 1改成(t - 1) * lngDataColumns，确保第一次循环从L2开始写入，不会向上偏移覆盖表头。
• 源数据指向Ark2：所有读取数据的操作都关联到wsSource，确保从Ark2获取需要转置的日期数据，而不是操作当前活动表。
• 添加安全保障：加入了屏幕更新关闭、错误捕获和资源释放的逻辑，既提升运行效率，又避免因突发错误导致Excel异常。

额外建议 #

运行宏前建议先备份Ark2的数据，避免因需求调整或代码误写导致数据丢失；如果你的期望效果中M列需要的是其他数据，只需要修改代码中wsSource.Range("F1:H1").Offset(t, 0)这个源数据范围即可。

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