JC = rng.Value
A = Array("工商管理", "文化产业管理", "连锁经营管理", "酒店管理")
B = Array("工管", "文管", "连管", "酒管")
For i = 0 To UBound(B)
If VBA.InStr(JC, A(i)) Then
JC = VBA.Replace(JC, A(i), B(i))
If VBA.InStr(JC, "班") = 0 Then JC = JC & "1班"
Exit For
End If
Next i
End Function 转换简称3.rar(10.79 KB, 下载次数: 7)
JC = rng.Value
A = Array("工商管理", "文化产业管理", "连锁经营管理", "酒店管理")
B = Array("工管", "文管", "连管", "酒管")
For i = 0 To UBound(B)
If VBA.InStr(JC, A(i)) Then
JC = VBA.Replace(JC, A(i), B(i))
If VBA.InStr(JC, "班") = 0 Then JC = JC & "1班"
Exit For
End If
Next i
End Function 转换简称3.rar(10.79 KB, 下载次数: 7)
Function JC(rng As Range) As String
Dim A, B, i
A = Array("工商管理", "文化产业管理", "连锁经营管理", "酒店管理", "工商企业管理") '替换前
B = Array("工管", "文管", "连管", "酒管", "工管") '替换后
JC = rng.Value
If VBA.InStr(JC, "班") = 0 Then JC = JC & "1班"
For i = 0 To UBound(B)
If VBA.InStr(JC, A(i)) Then JC = VBA.Replace(JC, A(i), B(i)): Exit For
Next i
End Function