嘿，我完全懂你手动逐个选中国家/大洲区域加外边框的痛苦——重复操作太耗时间了！下面给你两种实用的自动化方案，不用再手动折腾啦：

方法一：条件格式（无需代码，适合普通用户） #

前提是你的表格结构规整：比如大洲列是合并单元格（每个大洲对应多行国家数据），国家列每行都有明确标识（没有合并）。假设大洲在A列，国家在B列，你可以按以下步骤操作：

1. 选中整个数据区域（包含表头）
2. 点击「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」
3. 分别创建4条规则来设置不同位置的边框：
   • 国家组顶部边框：输入公式 =AND($B2<>"",$B2<>$B1)，然后设置格式为「顶部边框」（样式选你需要的粗线/细线）
   • 国家组底部边框：输入公式 =AND($B2<>"",$B2<>$B3)，设置格式为「底部边框」
   • 大洲组顶部边框：输入公式 =AND($A2<>"",$A1<>"")（因为合并单元格只有首行有内容），设置格式为「顶部粗边框」
   • 大洲组底部边框：输入公式 =AND($A2<>"",$A3<>"")，设置格式为「底部粗边框」

   注意：如果你的大洲/国家列不是A/B列，记得把公式里的列号换成你表格对应的列哦！

设置完后，只要你更新数据（比如新增国家/大洲），条件格式会自动应用边框，完全不用手动调整。

方法二：VBA宏（一次性批量设置，适合频繁处理这类表格） #

如果你经常需要制作这类层级表格，写个简单的VBA宏可以一劳永逸：

1. 按下 Alt + F11 打开VBA编辑器
2. 右键点击你的工作簿→「插入」→「模块」
3. 粘贴以下代码（记得根据你的表格调整列号和边框样式）：

Sub SetContinentCountryBorders()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ActiveSheet ' 当前激活的工作表
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' 国家列（B列）的最后一行
    
    ' 先清除原有边框
    ws.Range("A1:Z" & lastRow).Borders.LineStyle = xlNone
    
    ' 设置国家层级边框
    For i = 2 To lastRow
        ' 国家组顶部：当前行国家与上一行不同
        If ws.Cells(i, "B").Value <> ws.Cells(i - 1, "B").Value Then
            ws.Range(ws.Cells(i, "A"), ws.Cells(i, "Z")).Borders(xlEdgeTop).LineStyle = xlContinuous
            ws.Range(ws.Cells(i, "A"), ws.Cells(i, "Z")).Borders(xlEdgeTop).Weight = xlThin
        End If
        ' 国家组底部：当前行国家与下一行不同
        If ws.Cells(i, "B").Value <> ws.Cells(i + 1, "B").Value Then
            ws.Range(ws.Cells(i, "A"), ws.Cells(i, "Z")).Borders(xlEdgeBottom).LineStyle = xlContinuous
            ws.Range(ws.Cells(i, "A"), ws.Cells(i, "Z")).Borders(xlEdgeBottom).Weight = xlThin
        End If
    Next i
    
    ' 设置大洲层级边框
    For i = 2 To lastRow
        ' 大洲组顶部：当前行是大洲首行（合并单元格有内容）且上一行不是同大洲
        If ws.Cells(i, "A").Value <> "" And ws.Cells(i - 1, "A").Value <> ws.Cells(i, "A").Value Then
            ws.Range(ws.Cells(i, "A"), ws.Cells(i, "Z")).Borders(xlEdgeTop).LineStyle = xlContinuous
            ws.Range(ws.Cells(i, "A"), ws.Cells(i, "Z")).Borders(xlEdgeTop).Weight = xlMedium
        End If
        ' 大洲组底部：当前行是大洲末行（下一行是新大洲或空）
        If ws.Cells(i, "A").Value <> "" And (ws.Cells(i + 1, "A").Value <> "" Or i = lastRow) Then
            ' 找到当前大洲的最后一行
            Dim lastContinentRow As Long
            lastContinentRow = ws.Cells(i, "A").MergeArea.Cells(ws.Cells(i, "A").MergeArea.Rows.Count, 1).Row
            ws.Range(ws.Cells(lastContinentRow, "A"), ws.Cells(lastContinentRow, "Z")).Borders(xlEdgeBottom).LineStyle = xlContinuous
            ws.Range(ws.Cells(lastContinentRow, "A"), ws.Cells(lastContinentRow, "Z")).Borders(xlEdgeBottom).Weight = xlMedium
        End If
    Next i
    
    ' 设置整个区域的左右边框
    ws.Range("A2:Z" & lastRow).Borders(xlEdgeLeft).LineStyle = xlContinuous
    ws.Range("A2:Z" & lastRow).Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub

4. 按下 F5 运行宏，表格会自动生成你想要的层级边框

小提示：如果你的大洲列不是A列、国家列不是B列，把代码里的"A"、"B"换成对应的列号就行；边框粗细（xlThin/xlMedium）也可以根据需求调整。

备注：内容来源于stack exchange，提问作者M J