为Excel格式添加括号创build公式
我有多个单元格,每个单元格中有三个值。 我想要做的是能够为每个单元格添加括号和逗号。
所以从这个angular度来看:
1.022 0.987 1.034
至:
1.022 (0.987, 1.034)
有没有办法做到这一点,而不格式化每个单元格?
尝试,
=SUBSTITUTE(SUBSTITUTE(A2, " ", ", ", 2), " ", " (", 1)&")"
SUBSTITUTE函数有一个经过丢弃的可选参数,用于只replacereplace事件的特定实例。
将该公式复制/粘贴到包含值的单元格旁边的空单元格中:
=LEFT(B3,6)&"("&MID(B3,7,5)&","&RIGHT(B3,6)&")"
(将B3
所有实例replace为实际包含值的正确单元格ID)
用A1中的数据,在B1中input:
=TRIM(MID(SUBSTITUTE($A1," ",REPT(" ",999)),1*999-998,999)) & " (" & TRIM(MID(SUBSTITUTE($A1," ",REPT(" ",999)),2*999-998,999)) & ", " & TRIM(MID(SUBSTITUTE($A1," ",REPT(" ",999)),3*999-998,999)) & ")"
在环中扔另一个选项。 此工作提供的模式与OP中显示的完全相同。
=LEFT(N8,FIND(" ",N8))&"("&MID(N8,FIND(" ",N8)+1,5)&", "&MID(N8,FIND(" ",N8,FIND(" ",N8)+1)+1,5)&")"
正则expression式?
需要VBA,如果没关系?
Function Regex(Cell) Dim RE As Object Set RE = CreateObject("vbscript.regexp") Pattern = "(\d+\.\d+)\s(\d+\.\d+)(\s\d\.\d+)" replacement = "$1 ($2,$3)" RE.Pattern = Pattern Regex = RE.Replace(Cell, replacement) End Function
像这样使用它: =Regex(A1)
如果数据在单元格A1中。
编辑; 用pnuts指出的更新代码,但没有改变图像。 代码确实包括逗号。