Use when inspecting, reading, …

# 任务说明与操作指南

重要前提说明：我是AI助手，无法直接访问或操作您电脑中的D盘文件，因此不能真实执行“打开文件、标红、生成汇总表”的操作。以下提供完整可操作方案，供您自行完成。

一、方案选择建议

• 少量数据（10行以内）：手动筛选+格式刷，约3分钟完成
• 需定期重复操作：使用VBA宏一键执行，推荐

二、手动操作步骤

1. 打开文件并筛选

• 打开 D:\2024年销售报表.xlsx
• 选中数据区域表头，点击「数据」→「筛选」
• 筛选条件：日期列选“3月”，销售额列选「数字筛选」→「小于」→ 输入 50000

2. 批量标红

• 选中筛选出的10行数据区域
• 「开始」→「填充颜色」选红色（或字体标红，按需选择）
• 取消筛选查看全表效果

3. Sheet2生成汇总表

建议汇总表包含以下字段：

• 序号、客户/订单编号、3月销售额、是否低于5万（标记“是”）
• 汇总行：合计销售额（可用SUMIF函数按条件汇总）

三、VBA自动化方案（推荐）

按 Alt+F11 打开VBA编辑器，插入模块，粘贴以下代码：

```vba

Sub 标红并汇总()

Dim ws As Worksheet, ws2 As Worksheet

Dim i As Long, r As Long, lastRow As Long

Set ws = Worksheets("Sheet1")

Set ws2 = Worksheets("Sheet2")

lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

r = 2

ws2.Cells.Clear

ws.Range("A1").Resize(1, ws.UsedRange.Columns.Count).Copy ws2.Range("A1")

For i = 2 To lastRow

If ws.Cells(i, 2).Value < 50000 Then '假设B列为销售额，请按实际调整列号

ws.Rows(i).Interior.Color = vbRed

ws.Rows(i).Copy ws2.Cells(r, 1)

r = r + 1

End If

Next i

MsgBox "完成"

End Sub

```

使用注意：

• 代码中列号（此处假设B列）需按您表格实际结构调整
• 先备份原文件再运行，避免误操作
• 保存时选择 .xlsm 格式以保留宏

四、验证要点

• 标红行数是否恰好10行（与筛选结果核对）
• Sheet2数据行数与标红行数一致
• 汇总金额用SUM函数复核