主题：急需大批量并按排序号顺序动态字符替换公式

'自动合并字符
Select Case e.DataCol.Name
    Case "查找列"
        Dim str As String = e.DataRow("查找列") '批量合成字符集
        Dim ls As new List(Of String)
        If  str > "" Then '如果有数据
            For Each s As String In e.DataRow.Lines("查找列")
                Dim fdr As DataRow = DataTables("字典库").find("字典 = '" & s & "'")
                If fdr IsNot Nothing Then
                    ls.add(fdr("替换值"))
                Else
                    ls.add("")
                End If
            Next
        End If
        e.DataRow.lines("自动替换列") = ls
End Select '注意括号是英文的括号 还是中文的括号

你的字典表，要加入一个表达式列，计算字符的个数 len(字典)

Select Case e.DataCol.Name
    Case "查找列"
        Dim str As String = e.DataRow("查找列") '批量合成字符集
        For Each dr As DataRow In DataTables("字典库").Select("字典 is not null", "字数 desc")
            str = str.Replace(dr("字典"), dr("替换值"))
        Next
        e.DataRow("自动替换列") = str
End Select '注意括号是英文的括号 还是中文的括号