Comment tronquer une partie d'un mot avec un caractère générique en utilisant VBA

Question

J'ai dans la colonne AJ un grand nombre de chaînes de texte (catégories séparées par; #) exemple est Cell AJ2 a (Comptabilité: et du texte; #Business: et certains texte) dans chaque rangée. Je veux supprimer chaîne spécifique des catégories et tout ce qu'il suit dans la colonne AJ qui commence par « Business » ou « : #Business.

Answer 1

Essayez ce code

Sub test() 
    Dim vDB, vSplit, s As String 
    Dim n As Long, i As Long 
    vDB = Range("aj2", Range("aj" & Rows.Count).End(xlUp)) 
    n = UBound(vDB, 1) 
    For i = 1 To n 
     s = vDB(i, 1) 
     If InStr(s, "Business") Then 
      vSplit = Split(s, "Business") 
      s = Replace(s, "Business" & vSplit(UBound(vSplit)), "") 
      If Right(s, 1) = "#" Then 
       s = Left(s, Len(s) - 2) 
      End If 
      vDB(i, 1) = s 
     End If 
    Next i 
    Range("ak2").Resize(n) = vDB 
End Sub