Excel’de bir sütunda bulunan metinden ilk üç kelimenin dışındaki kelimeleri silmek

Sub DeleteAfterThreeWords()

Dim rng As Range
Dim cell As Range
Dim words() As String
Dim i As Integer

‘ Update to the range that suits you
Set rng = ActiveSheet.Range(“A:A”)

For Each cell In rng
words = Split(cell.Value, ” “)
If UBound(words) > 2 Then
cell.Value = words(0) & ” ” & words(1) & ” ” & words(2)
End If
Next cell

End Sub