如何把带货币的金额，转换成带货币金额的2位小数？

mfk1288 · 发表于 2023-1-3 14:40

本帖最后由 mfk1288 于 2023-1-3 16:43 编辑

假设有一列数据，有多种货币金额，单元格式为常规。

$2093.83
$2093.83
￥374.5
￥19260
￥12840
￥14980
￥14980

用循环语句
for i=1 to 20

Cells(i, "C") = Left(Cells(i, "A"), 1) & Format(Cells(i, "A"), "0.00")

next
这个人民币没有问题，但是美元，欧元会变成货币符号重复。

蓝桥玄霜 · 发表于 2023-1-3 15:29

建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

supermouse24 · 发表于 2023-1-3 15:57

试试以下语句
format("￥14980","Currency")

mfk1288 · 发表于 2023-1-3 16:27

supermouse24 发表于 2023-1-3 15:57
试试以下语句
format("￥14980","Currency")

这个不行，谢谢指导！

mfk1288 · 发表于 2023-1-3 16:28

蓝桥玄霜发表于 2023-1-3 15:29
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

已上传！请指导！

shiruiqiang · 发表于 2023-1-4 08:22

直接函数就行

tanglf188 · 发表于 2023-1-4 09:22

=LEFT(A2,1)&TEXT(A2,"0.00")
下拉

mfk1288 · 发表于 2023-1-4 11:36

tanglf188 发表于 2023-1-4 09:22
=LEFT(A2,1)&TEXT(A2,"0.00")
下拉

谢谢指导，这个是用公式。但是需要用宏语句批量转换，并且是在原单元格直接转换。用这个公式是可以，但是一来需要手工操作。二来不能直接在原单元格转换。三来text在宏语句不适用。

micch · 发表于 2023-1-4 11:50

本帖最后由 micch 于 2023-1-4 11:53 编辑

其实主要就是个单元格格式的问题

高个子 · 发表于 2023-1-4 12:22

Sub kdy()
arr = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
Dim result()
For i = 1 To UBound(arr)
n = n + 1
ReDim Preserve result(1 To n)
result(n) = Left(arr(i, 1), 1) & Format(Replace(arr(i, 1), Left(arr(i, 1), 1), ""), "0.00")
Next
Range("d2:d" & Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "@"
Range("d2:d" & Cells(Rows.Count, 1).End(xlUp).Row) = Application.Transpose(result)
End Sub

复制代码

公式还是可以翻译成VBA的

		自动登录	找回密码
密码			免费注册

[求助] 如何把带货币的金额，转换成带货币金额的2位小数？

评分

评分