Excelmacros将单元格格式更改为货币

我有一个文件，其中一列是充满了数字，第二列有每个数字各自的货币。 我有USD, EUR, CHF, and GBP 。

我想要创build一个macros，将格式号码列从数字到货币，然后从第二列应用货币。

这个技巧就是我希望数字列中仍然有数字，因为数字可以被添加或减less。 因此，我不希望两列的简单连接，因为这将使字段文本，并不能用于math方程式。

请帮助，如果你知道如何。

谢谢！

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 

如果您想要更改货币types，请将您设置单元格的macroslogging为正确的货币，然后根据需要复制并粘贴该数字格式。