不知道你是否曾听说过“上帝模式（God Mode）”，上帝模式功能被保留到了最新的 Windows 系统当中，无论你使用的是 Windows 11、10 还是更早版本，上帝模式把系统全部设置项都放在一个合集里面，只需要创建一个特殊名称的文件夹，就可以激活它来快速访问系统设置。

具体操作如下：

　　1. 在桌面空白处右键点击，选择「新建」 > 「文件夹」。

　　2. 将文件夹命名为以下代码：

　　GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}

完成后，文件夹图标会变成控制面板的样式，并且不会显示名称。

　　3. 双击该图标，就能看到所有可用设置的快捷方式列表。

此外，你还可以右键点击「上帝模式」图标，选择「固定到快速访问」。这样就可以在「文件资源管理器」的左侧导航窗格中快速访问了。

我想将一列多行的姓名组合在我框选的第一个单元格，并在每个姓名后面加一个符号“、”，最后一个姓名不加“、”，最后一个姓名加等（括号里面统计我框选的总人数）人，生成的结果像这样，例如:张三、李四、王五、王麻子等4人。vba代码如下

Sub 组合姓名()
Dim selectedRange As Range
Dim cell As Range
Dim names() As String
Dim count As Long
Dim result As String

‘ 获取用户选择的区域
Set selectedRange = Application.Selection

‘ 初始化数组和计数器
count = 0
ReDim names(0) ‘ 初始数组大小为1

‘ 遍历选区收集非空姓名
For Each cell In selectedRange
If Trim(cell.Value) <> “” Then ‘ 排除空白和纯空格单元格
If count > 0 Then ReDim Preserve names(count)
names(count) = Trim(cell.Value)
count = count + 1
End If
Next cell

‘ 无有效数据时退出
If count = 0 Then
MsgBox “未找到有效姓名！”, vbExclamation
Exit Sub
End If

‘ 构建结果字符串
If count = 1 Then
result = names(0) & “等” & count & “人”
Else
result = Join(names, “、”) & “等” & count & “人”
End If

‘ 将结果写入选区首单元格
On Error Resume Next ‘ 防止选择整列时溢出
selectedRange.Cells(1).Value = result
On Error GoTo 0

‘ 清除首单元格之后的姓名
Dim clearRange As Range
Set clearRange = selectedRange.Cells(2).Resize(selectedRange.Rows.count – 1, selectedRange.Columns.count)
clearRange.ClearContents
End Sub