VBA多工作表温度区间搜索结果分表展示问题求助

我懂你现在的困扰——用VBA遍历所有工作表搜索温度区间数据，结果不同表的数据全堆一块儿，根本分不清哪部分来自哪个工作表对吧？其实就是代码里缺了个「分隔标识」的步骤，咱们给代码加几行就能解决这个问题。

修改后的完整代码（带注释） #

Dim ws As Worksheet
Dim tempint As Integer, tempend As Integer, tempstep As Integer
Dim k As Integer, nt As Integer, xtemp As Integer
Dim finalrow As Integer, i As Integer
Dim targetWs As Worksheet ' 定义目标工作表，替换成你实际的汇总表名称

' 指定汇总结果的目标工作表（比如这里叫"温度汇总"，根据你的表名修改）
Set targetWs = ThisWorkbook.Worksheets("温度汇总")

' 获取温度区间参数（这里对应你的ComboBox控件，保持原逻辑即可）
tempint = ComboBox_Tem.Value
tempend = ComboBox_TemEnd.Value
tempstep = ComboBox_TemStep.Value

' 可选：清空目标表原有数据，避免重复叠加
targetWs.UsedRange.ClearContents

' 遍历所有工作表
For Each ws In ThisWorkbook.Worksheets
    ' 跳过目标工作表本身，防止处理汇总数据
    If ws.Name <> targetWs.Name Then
        finalrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取当前工作表的最后一行数据
        
        ' --- 关键改动1：添加工作表来源标识 ---
        With targetWs
            ' 在目标表插入当前工作表的名称作为分隔标题
            .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Value = "=== 数据来源：" & ws.Name & " ==="
            .Cells(.Rows.Count, "A").End(xlUp).Font.Bold = True ' 加粗标题，更醒目
        End With
        
        ' 遍历当前工作表的行，筛选温度区间内的数据
        For i = 2 To finalrow ' 假设第一行是表头，从第二行开始遍历数据
            xtemp = ws.Cells(i, "B").Value ' 假设温度值在B列，根据你的实际列号修改
            ' 判断是否在指定温度区间内
            If xtemp >= tempint And xtemp <= tempend Then
                ' 复制符合条件的整行到目标表的下一行
                ws.Rows(i).Copy targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Offset(1, 0)
            End If
        Next i
        
        ' --- 关键改动2：插入空行分隔不同工作表的结果 ---
        targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Offset(1, 0).EntireRow.Insert
    End If
Next ws

MsgBox "温度区间数据汇总完成！", vbInformation

核心改动说明 #

• 新增工作表来源标识：在处理每个工作表的数据前，先在目标表插入一行带工作表名称的加粗标题，一眼就能区分数据来自哪个表
• 添加空行分隔：每个工作表的搜索结果处理完后，插入一行空行，避免不同表的数据紧密堆叠
• 跳过目标工作表：防止把汇总结果所在的表也纳入遍历，避免重复处理数据

注意事项 #

请根据你的实际情况修改：

• 目标工作表名称（"温度汇总"）
• 温度值所在的列号（ws.Cells(i, "B")）
• 数据起始行（For i=2 To finalrow，如果你的表头不在第一行，就调整起始数字）

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