如何将Excel中符合温度范围的数据复制到另一工作表？

嘿，我懂你碰到的麻烦了——VLOOKUP在处理带公式的列时确实不太顺手，尤其是你需要批量抓取符合温度条件的整行数据。下面给你几个实用的解决方案，你可以根据自己的使用频率和需求来选：

这是最直接的办法，不需要复杂工具：

• 打开你的源工作表，选中第4列（温度列）
• 点击「数据」选项卡的「筛选」按钮，给温度列加上筛选箭头
• 点击筛选箭头，选择「数字筛选」→「自定义筛选」，设置你的目标温度范围（比如大于等于20且小于等于30）
• 筛选完成后，选中显示出来的1-4列数据（注意要包含所有符合条件的行），右键复制
• 切换到目标工作表，选中要粘贴的起始单元格，右键粘贴即可。如果只需要保留数值（不想带公式），可以用*「选择性粘贴」→「数值」*

Power Query对带公式的列兼容性很好，还能一键刷新数据：

• 打开源工作表，选中数据区域的任意单元格，点击「数据」选项卡的「从表格/区域」（记得勾选「我的表格有标题」如果你的数据有表头）
• 在Power Query编辑器里，点击温度列的筛选箭头，选择「数字筛选」设置你的温度范围
• 确认筛选后，点击「主页」选项卡的「关闭并上载」→「关闭并上载至」，选择目标工作表的位置，确定即可
• 以后源数据更新时，只要在目标工作表右键点击数据区域，选择「刷新」，就能自动同步符合条件的数据，完全不用手动重复操作

如果需要温度数据变化时自动复制符合条件的行，可以写个简单的宏：

1. 按Alt+F11打开VBA编辑器，插入一个模块，粘贴下面的代码：

Sub CopyTemperatureData()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, targetRow As Long
    Dim i As Long
    Dim minTemp As Double, maxTemp As Double
    
    ' 这里改成你的目标温度范围
    minTemp = 20
    maxTemp = 30
    
    ' 改成你的源工作表和目标工作表名称
    Set wsSource = ThisWorkbook.Worksheets("源工作表")
    Set wsTarget = ThisWorkbook.Worksheets("目标工作表")
    
    ' 获取源表最后一行数据的行号
    lastRow = wsSource.Cells(wsSource.Rows.Count, "D").End(xlUp).Row
    ' 获取目标表下一个空行的行号
    targetRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 遍历源表数据（假设第1行是表头，从第2行开始）
    For i = 2 To lastRow
        ' 用Value属性获取温度列的计算结果，判断是否在范围内
        If wsSource.Cells(i, "D").Value >= minTemp And wsSource.Cells(i, "D").Value <= maxTemp Then
            ' 复制1-4列到目标表
            wsSource.Range(wsSource.Cells(i, "A"), wsSource.Cells(i, "D")).Copy _
                wsTarget.Cells(targetRow, "A")
            targetRow = targetRow + 1
        End If
    Next i
    
    ' 如果只需要粘贴数值，替换上面的Copy代码为以下两行：
    ' wsSource.Range(wsSource.Cells(i, "A"), wsSource.Cells(i, "D")).Copy
    ' wsTarget.Cells(targetRow, "A").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    MsgBox "符合条件的数据已复制完成！"
End Sub

2. 如果你想让宏在温度列数据变化时自动运行，可以在VBA编辑器里找到源工作表的代码窗口，粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只有当第4列（温度列）的数据变化时才触发宏
    If Not Intersect(Target, Me.Columns("D")) Is Nothing Then
        Call CopyTemperatureData
    End If
End Sub

⚠️ 注意：使用VBA后，记得把文件保存为「Excel启用宏的工作簿（.xlsm）」格式，否则宏会丢失。

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