问题描述
我有一大列数据,我需要编辑和删除第 1 列中的逗号、方括号和连字符,然后按照下面第 2 列中的说明进行编辑。
示例
column1
airline,-airport-and-aviation-management-(包括-foundation-year)---bsc-(hons) 航空公司,-机场和航空管理---理学士-(荣誉)
执行结果如下
column2
airline-airport-and-aviation-management-including-foundation-year-bsc-hons
airline-airport-and-aviation-management-bsc-hons
解决方法
为您提供的几张解决方案(here/下面的屏幕截图)参考
这是使用:
Function Compress(str As String,Optional BadChars As String = ",#.-&+@'~`[]{}<>/\|()")
##Remove default and custom chars..
##Adapted by 007-JB (01 07 21)
Dim Ch As Long
If Len(BadChars) <> 0 Then
For Ch = 1 To Len(BadChars)
str = Replace(str,Mid(BadChars,Ch,1),"")
Next Ch
End If
Compress = str
End Function