结合公式
我有一个基本上从两列收集数据,并结合他们的表中的这个公式。 现在,我正在考虑把这个公式与一个基本上把这些字符代替的REPLACE
公式结合起来æ,ø,å
并用a,o,a
代替它们。
这是公式:
=LOWER(LEFT(tableFaste[[#This Row];[Fornavn:]])&tableFaste[[#This Row];[Etternavn:]])
您可以使用SUBSTITUTE
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(LOWER(LEFT(tableFaste[[#This Row];[Fornavn:]])&tableFaste[[#This Row];[Etternavn:]]),"æ","a"),"ø","o"),"å","a")
对不起,不知道从string中删除任何字符列表的公式方式。 你可能必须恢复到这个vba。 这是一个用户定义的function来做到这一点。 你的公式会变成
=DeleteChars([@UserName],{"æ","ø","å";"a","o","a"})
为了replace字符,使用{“æ”,“ø”,“å”,“a”,“o”,“a”}, 是以后的老字符; 新的。 您可以根据需要制作列表,只要确保列表长度相同即可。
要删除字符,请使用{“æ”,“ø”,“å”}要删除的字符的数组列表
UDF代码:
Function DeleteChars(r1 As Range, ParamArray c() As Variant) As Variant Dim i As Long Dim s As String s = r1 If UBound(c(0), 1) = 1 Then For i = LBound(c(0), 2) To UBound(c(0), 2) s = Replace(s, c(0)(1, i), "") Next Else For i = LBound(c(0), 2) To UBound(c(0), 2) s = Replace(s, c(0)(1, i), c(0)(2, i)) Next End If DeleteChars = s End Function