嗨，我来帮你搞定这两个问题——先给你写好符合要求的宏代码，再说说Mac版Excel里怎么操作宏和调出相关功能~

一、实现需求的VBA宏代码 #

这个宏会遍历A列所有单元格，找到以* （星号加空格）开头的内容，把它移动到上一行、右一列的位置，最后清空原单元格（如果需要删除原行可以看注释）。而且为了避免移动后行号错乱，代码是从最后一行往上遍历的，很稳妥：

Sub MoveAsteriskCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定操作的工作表，这里用当前激活的表，也可以改成Sheet1这类具体名称
    Set ws = ActiveSheet
    ' 获取A列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行往上遍历，防止移动内容后行号混乱导致漏处理
    For i = lastRow To 2 Step -1
        ' 检查当前A列单元格是否以"* "开头
        If Left(ws.Cells(i, "A").Value, 2) = "* " Then
            ' 将内容移动到上一行的B列（右一列）
            ws.Cells(i - 1, "B").Value = ws.Cells(i, "A").Value
            ' 清空原单元格的内容
            ws.Cells(i, "A").ClearContents
            ' 如果你需要直接删除原行，取消下面这行注释即可
            ' ws.Rows(i).Delete
        End If
    Next i
    
    MsgBox "操作完成啦！", vbInformation
End Sub

代码说明 #

• 为什么从下往上遍历？如果从上到下处理，当你把A3的内容移到B2后，原来的A4会变成新的A3，这时候循环到i=3就会重复处理，从下往上走就不会有这个问题。
• 如果你固定要操作某个工作表，把Set ws = ActiveSheet改成Set ws = ThisWorkbook.Sheets("你的工作表名")就行。

二、Mac版Excel（2023 V.16.72）的宏操作问题解决 #

你说找不到Macro标签、没有File头部，其实是Mac版Excel的界面和Windows版不一样，我给你梳理下操作路径：

1. 怎么运行/编辑宏 #

你已经知道通过顶部菜单栏的「工具」→「宏」→「Visual Basic编辑器」（快捷键Option+F11）打开VBA编辑器，写完代码后：

• 直接在VBA编辑器里按F5就能运行当前宏；
• 回到Excel界面，按Option+F8调出宏对话框，选中你写的MoveAsteriskCells，点击「执行」就行。

2. 添加宏快捷按钮到工具栏 #

如果想把宏放到工具栏方便点击：

1. 点击顶部菜单栏的「视图」→「自定义工具栏」；
2. 在弹出的窗口里，切换到「命令」标签，左侧类别选「宏」；
3. 把右侧的「自定义按钮」拖到你想要的工具栏位置；
4. 右键点击这个新按钮，选「指定宏」，选中你的宏，还能改按钮图标和名称，以后点它就能直接运行宏了。

3. 保存带宏的工作簿 #

Mac版的File菜单在系统最顶部的菜单栏（不是Excel窗口内的），点击「File」→「另存为」，格式要选「Excel 启用宏的工作簿 (.xlsm)」，不然保存后宏会丢失哦。

备注：内容来源于stack exchange，提问作者Ash Grove