VBA FOR RACHEL

GetCityName.vb

Function GETCITYNAME(district As Range, cities As Range) As String
  Dim X As Range
  For Each X In cities
    If InStr(1, district.Value, X.Value) > 0 Then
      GETCITYNAME = X.Value
      Exit For
    End If
  Next X
End Function

RightRemoveStr.vb

Function RIGHTREMOVESTR(cell As Range, str As String) As String
  Dim Index As Interger
  
  rem 获得从右开始匹配字符串的位置，即终止位置  
  Index = InstrRev(Len(cell.Value), str)
  
  rem 获得终止位置之前的字符串
  RIGHTREMOVESTR = Left(cell.Value, Index-1)
End Function