如何批量清除非美元值单元格并对齐美元值单元格？

如果需要将每行的美元值内容合并到单个单元格呈现，可使用以下公式：

• 假设数据在当前行的A列到Z列，在新列（如AA列）对应行输入：

  =TEXTJOIN(", ", TRUE, FILTER(A2:Z2, ISNUMBER(SEARCH("$", A2:Z2)), ""))
  

  该公式会提取当前行中包含$的单元格内容，用逗号分隔显示，下拉即可应用到所有目标行。
• 若需基于单元格格式判断（而非内容含$），改用CELL函数识别美元货币格式：

  =TEXTJOIN(", ", TRUE, FILTER(A2:Z2, CELL("format", A2:Z2)="C2", ""))
  

  注：CELL函数需手动按F9刷新，或开启Excel自动重算。

如果需要直接删除非美元值单元格并让剩余单元格左移（和第27-32行布局一致），使用以下宏：

Sub KeepOnlyDollarCells()
    Dim targetRange As Range
    Dim currentRow As Range
    Dim i As Integer
    Dim cell As Range
    
    ' 替换为你需要处理的行范围，例如Range("1:26")或Range("5:20")
    Set targetRange = Range("1:26")
    
    For Each currentRow In targetRange.Rows
        ' 从后往前遍历单元格，避免删除后索引混乱
        For i = currentRow.Cells.Count To 1 Step -1
            Set cell = currentRow.Cells(i)
            ' 判断条件：格式不含$ 且 内容开头不是$
            If InStr(cell.NumberFormat, "$") = 0 And Left(cell.Text, 1) <> "$" Then
                cell.Delete Shift:=xlToLeft
            End If
        Next i
    Next currentRow
End Sub

使用步骤： #

1. 按Alt + F11打开VBA编辑器
2. 右键当前工作簿 → 插入 → 模块
3. 粘贴代码，修改targetRange的行范围
4. 按F5运行宏，或通过Excel「开发工具」→「宏」执行

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