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

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