GETSUBSTR() 函数旨在通过给定分隔符选择部分文本。
GETSUBSTR函数代码通过指定的分隔符将文本分割成数组,并根据指定的序号返回给定数组的元素。
下面是创建自定义函数 GETSUBSTR 的宏代码,该函数可以将文本拆分为多个部分并在 LibreOffice Calc 中检索其中的任何元素。
要添加新函数,请打开菜单 Tools - Macros - Edit Macros...,选择 Module1 并将以下文本复制到模块中:
Function GETSUBSTR(Txt, Delimiter, n) As String Dim txtArray As Variant If Txt = "" Then Exit Function txtArray = Split(Txt, Delimiter) maxExt = UBound(txtArray) If n >= 0 Then normExt = n - 1 Else normExt = maxExt + n + 1 EndIf extToFind = Max(Min(maxExt, normExt), 0) GETSUBSTR = txtArray(extToFind) End Function
然后,关闭 Macro Editor,返回到 LibreOffice Calc 并在任何单元格中使用新函数。
您还可以通过设置扩展名来使用 GETSUBSTR() 函数“ YouLibreCalc.oxt ”。此后,该功能将在所有在 LibreOffice Calc 中打开的文件中可用。