Excel宏将单元格格式更改为货币

Question

我有一个文件，其中一列是数字，第二列是每个数字的相应货币。我有USD, EUR, CHF, and GBP。

我想创建一个宏，将数字列从数字格式化为货币，然后应用第二列中的货币。

诀窍是我希望数字列中仍然有数字，因为数字可以加减。因此，我不想简单地连接两列，因为这会使字段成为文本，并且无法用于数学方程。

如果你知道怎么做，请帮忙。

谢谢！

Answer 1

我不确定我是否理解您的确切问题，但这将采用 A 列中的所有值，并根据 B 列中的货币值将它们格式化为 C 列中的货币：

Sub Macro1()

Dim cl As Range

For Each cl In Intersect(ActiveSheet.Range("A:A"), ActiveSheet.UsedRange)
   cl.Offset(0, 2).Value = cl.Value
   Select Case cl.Offset(0, 1).Value
      Case "USD"
         cl.Offset(0, 2).NumberFormat = "$#,##0.00"
      Case "EUR"
         cl.Offset(0, 2).NumberFormat = "[$€-2] #,##0.00"
      Case "GBP"
         cl.Offset(0, 2).NumberFormat = "[$£-809]#,##0.00"
      Case "CHF"
         cl.Offset(0, 2).NumberFormat = "[$CHF] #,##0.00"
   End Select

Next cl

End Sub

如果要更改货币类型，请录制一个宏，在其中将单元格设置为正确的货币，然后根据需要复制并粘贴该数字格式。