Excel技术求助：如何根据E列正负值将A-D列数据转移至对应工作表

以下是三种实用的解决方法，根据你的数据量和需求选择即可：

方法1：筛选+手动复制粘贴（适合小数据量） #

• 打开源工作表，选中E列，点击「数据」选项卡的「筛选」按钮
• 点击E列表头的筛选箭头，选择「数字筛选」→「大于」，输入0，确定后仅显示E列为正数的行
• 选中这些行的A-D列数据，复制后粘贴到near工作表的对应位置
• 返回源工作表，重新打开筛选，选择「数字筛选」→「小于」，输入0，确定后显示E列为负数的行
• 选中A-D列数据，复制粘贴到far工作表的对应位置

方法2：公式自动提取（支持动态更新） #

如果需要目标表数据随源表自动同步，可使用数组公式：

• 在near工作表的A1单元格输入：
  =INDEX(源表!A:A,SMALL(IF(源表!$E:$E>0,ROW(源表!$E:$E)),ROW(A1)))
  Excel 2019及以前版本按Ctrl+Shift+Enter触发数组公式，Excel 365/2021直接回车即可；随后向右拉至D列，向下拉填充直到出现#N/A（表示无更多符合条件的数据）
• 在far工作表的A1单元格输入：
  =INDEX(源表!A:A,SMALL(IF(源表!$E:$E<0,ROW(源表!$E:$E)),ROW(A1)))
  按同样方式填充公式

注意：将公式中的「源表」替换为你的源工作表实际名称

方法3：VBA宏批量处理（适合大数据量） #

按Alt+F11打开VBA编辑器，右键左侧工程窗口→「插入」→「模块」，粘贴以下代码：

Sub SplitData()
    Dim sourceSheet As Worksheet
    Dim nearSheet As Worksheet
    Dim farSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim nearRow As Long
    Dim farRow As Long
    
    ' 替换为你的实际工作表名称
    Set sourceSheet = ThisWorkbook.Worksheets("源表")
    Set nearSheet = ThisWorkbook.Worksheets("near")
    Set farSheet = ThisWorkbook.Worksheets("far")
    
    ' 初始化目标表起始行（有表头则设为2）
    nearRow = 1
    farRow = 1
    
    ' 获取源表数据最后一行
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "E").End(xlUp).Row
    
    ' 遍历源表数据
    For i = 1 To lastRow
        ' 复制表头到目标表（无表头可删除此段）
        If i = 1 Then
            sourceSheet.Range("A1:D1").Copy nearSheet.Range("A" & nearRow)
            sourceSheet.Range("A1:D1").Copy farSheet.Range("A" & farRow)
            nearRow = nearRow + 1
            farRow = farRow + 1
            GoTo NextRow
        End If
        
        ' 按E列数值分流数据
        If sourceSheet.Cells(i, "E").Value > 0 Then
            sourceSheet.Range("A" & i & ":D" & i).Copy nearSheet.Range("A" & nearRow)
            nearRow = nearRow + 1
        ElseIf sourceSheet.Cells(i, "E").Value < 0 Then
            sourceSheet.Range("A" & i & ":D" & i).Copy farSheet.Range("A" & farRow)
            farRow = farRow + 1
        End If
NextRow:
    Next i
    
    MsgBox "数据分流完成！"
End Sub

修改代码中的「源表」为你的源工作表名称，按F5运行宏即可完成批量转移。

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