基于区域在Excel/Google Sheets中生成指定联系人信息工作表

先处理基础数据准备 #

不管用哪种方法，先把你图片里的联系人数据整理到一个单独的工作表，命名为「联系人总表」，列结构建议包含：区域、姓名、电话、邮箱（根据你的实际字段调整），确保区域列的内容和下拉菜单的选项完全匹配（比如不要出现「北京」和「北京市」这种差异）。

方法1：用动态数组公式（适用于Excel 365/2021） #

适合只需要一个动态更新的结果表，不用每次新建工作表的场景：

• 假设下拉菜单在名为「区域选择」的工作表A1单元格。
• 新建一个工作表命名为「筛选结果」，在A1单元格开始复制「联系人总表」的表头。
• 在「筛选结果」的A2单元格输入公式：

  =FILTER(联系人总表!A:D, 联系人总表!A:A=区域选择!A1, "无对应联系人")
  

  （这里的A:D替换成你实际的数据列范围）
• 之后只要在「区域选择」的下拉菜单切换区域，「筛选结果」会自动更新显示对应区域的所有联系人。

方法2：用VBA宏自动生成独立工作表 #

适合需要每次选区域就新建对应名称工作表的场景：

1. 按Alt+F11打开VBA编辑器，右键你的工作簿→插入→模块，粘贴以下代码：

   Sub 生成区域联系人工作表()
       Dim wsSelect As Worksheet, wsData As Worksheet, wsNew As Worksheet
       Dim selectedArea As String
       Dim lastRow As Long, i As Long, newRow As Long
       
       ' 指定工作表，根据你的实际名称修改
       Set wsSelect = ThisWorkbook.Worksheets("区域选择")
       Set wsData = ThisWorkbook.Worksheets("联系人总表")
       
       selectedArea = wsSelect.Range("A1").Value
       If selectedArea = "" Then
           MsgBox "请先选择区域！"
           Exit Sub
       End If
       
       ' 检查是否已存在同名工作表，存在则删除
       On Error Resume Next
       Set wsNew = ThisWorkbook.Worksheets(selectedArea)
       On Error GoTo 0
       If Not wsNew Is Nothing Then wsNew.Delete
       
       ' 新建并命名工作表
       Set wsNew = ThisWorkbook.Worksheets.Add
       wsNew.Name = selectedArea
       
       ' 复制表头
       wsData.Rows(1).Copy wsNew.Rows(1)
       
       ' 筛选并复制对应区域数据
       lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row
       newRow = 2
       For i = 2 To lastRow
           If wsData.Cells(i, "A").Value = selectedArea Then
               wsData.Rows(i).Copy wsNew.Rows(newRow)
               newRow = newRow + 1
           End If
       Next i
       
       wsNew.Columns.AutoFit
       MsgBox selectedArea & " 联系人工作表已生成！"
   End Sub
   

2. 让下拉菜单自动触发宏：右键「区域选择」工作表标签→查看代码，粘贴以下代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 这里的$A$1是下拉菜单所在单元格，根据你的实际位置修改
       If Target.Address = "$A$1" Then
           Call 生成区域联系人工作表
       End If
   End Sub
   

3. 回到Excel，切换下拉菜单的区域选项，就会自动生成对应名称的工作表，里面是该区域的所有联系人数据。

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