如何用单个宏运行多个宏？现有格式转换宏需整合调用

嘿，看你已经写了个基础的宏，在Sheet2单独运行时能正常搜索列标题并转换货币格式到数字格式。不过从你给出的代码片段来看，应该是想让它更完善或者适配更多场景吧？我来帮你把这个宏补全并优化一下：

完善后的完整宏代码 #

Sub ProjectFundingFormat()
    Dim WS As Worksheet
    Dim lastCol As Long, lastRow As Long
    Dim targetCol As Range
    Dim targetHeaders As Variant
    Dim header As Variant
    
    ' 把你要搜索的三个列标题放在这里，改起来超方便
    targetHeaders = Array("项目预算", "实际支出", "剩余资金") ' 替换成你的真实列标题
    
    ' 绑定当前工作簿的Sheet2——不用硬编码工作簿名，重命名也不怕报错
    Set WS = ThisWorkbook.Worksheets("Sheet2")
    
    With WS
        ' 找到第一行最后一列，避免瞎找
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        
        ' 逐个处理每个目标列标题
        For Each header In targetHeaders
            ' 精准查找列标题，只匹配整单元格内容
            Set targetCol = .Rows(1).Find(What:=header, LookIn:=xlValues, LookAt:=xlWhole)
            
            If Not targetCol Is Nothing Then
                ' 找到该列最后一行有数据的行
                lastRow = .Cells(.Rows.Count, targetCol.Column).End(xlUp).Row
                
                ' 把货币格式转成数字格式，这里用保留两位小数的格式，你可以按需改
                .Range(.Cells(2, targetCol.Column), .Cells(lastRow, targetCol.Column)).NumberFormat = "0.00"
                
                ' 要是你的货币是带符号的文本型数字，取消下面这行注释，直接转成可计算的数值
                '.Range(.Cells(2, targetCol.Column), .Cells(lastRow, targetCol.Column)).Value = .Range(.Cells(2, targetCol.Column), .Cells(lastRow, targetCol.Column)).Value
            Else
                ' 可选：如果某个标题没找到，弹出提示
                MsgBox "未找到列标题：" & header, vbExclamation
            End If
        Next header
    End With
    
    MsgBox "所有找到的列格式转换完成！", vbInformation
End Sub

我做了这些优化 #

• 告别硬编码坑：用ThisWorkbook代替Workbooks("Workbook1.xlsm")，不管你把工作簿改啥名，宏都能正常跑。
• 标题管理更省心：把三个目标标题放进数组，以后要改标题或者加新列，直接改数组就行，不用动核心逻辑。
• 动态定位数据范围：自动找最后一行最后一列，不管数据加多少行多少列，都能精准覆盖，不会漏转或者转空单元格。
• 容错提示：要是某个列标题没找到，会弹出提示告诉你，不会默默失败。

用之前记得改这些 #

• 把targetHeaders = Array("项目预算", "实际支出", "剩余资金")里的标题换成你要搜索的真实列名。
• 要是你的数据不是从第二行开始（比如第一行是标题，第二行是空行），把.Cells(2, targetCol.Column)里的2改成数据起始行号。
• 数字格式"0.00"可以按需调整：要整数就写"0"，要千分位就写"#,##0.00"。

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