在excel公式中反转域文本(拆分,反向数组,连接)

时间:2012-07-27 11:31:26

标签: excel

假设我在excel中有一个带有域名的字段,我想颠倒子域名,域名和tld的顺序,以便进行排序。例如:

“my.sub.domain.example.org”变为“org.example.domain.sub.my”

你会如何在excel中做到这一点?

1 个答案:

答案 0 :(得分:5)

我不确定如何使用工作表函数来完成它,创建一个为您完成它的功能要容易得多。

如果您打开VBA编辑器,请插入一个新模块并粘贴以下功能,您可以在工作表上使用它。

Public Function Reverse(ByVal Expression As String, ByVal Delimiter As String) As String
Dim Data() As String
Dim Result As String
Dim Index As Integer

    Result = ""
    Data = Split(Expression, Delimiter)
    Index = UBound(Data)

    Result = Data(Index)

    Do
        Index = Index - 1
        Result = Result & Delimiter & Data(Index)
    Loop While Index > 0

    Reverse = Result

End Function

实施例

A1 ="my.example.site.tld"
A2 ="=Reverse(A1,".")"
A2=="tld.site.example.my"