结合公式

我有一个基本上从两列收集数据,并结合他们的表中的这个公式。 现在,我正在考虑把这个公式与一个基本上把这些字符代替的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