Bu örnekte hücrelerin içinde tek tek dolaşıp metin ve sayıları ayıklayacağız.
Sub icice_Dongu() Dim i As Long 'her hücrenin içinde döngü yapmak için Dim myDeger As String Const ilkSatir As Byte = 4 Dim SonSatir As Long Dim NumBulunan As Long Dim TxtBulunan As String Dim r As Long 'satırlar arasında döngü yapmak için SonSatir = Range("A" & Rows.Count).End(xlUp).Row 'satırlar arasındaki döngü For r = ilkSatir To SonSatir myDeger = Range("A" & r).Value 'her hücrenin içindeki döngü For i = 1 To VBA.Len(myDeger) If IsNumeric(VBA.Mid(myDeger, i, 1)) Then NumBulunan = NumBulunan & Mid(myDeger, i, 1) ElseIf Not IsNumeric(Mid(myDeger, i, 1)) Then TxtBulunan = TxtBulunan & Mid(myDeger, i, 1) End If Next i Range("P" & r).Value = TxtBulunan Range("Q" & r).Value = NumBulunan NumBulunan = 0 TxtBulunan = "" Next r End Sub