Excel'deki metin dizesinden son sayı nasıl çıkarılır?
Diyelim ki, metinler ve sayılarla karıştırılmış bir metin dizeleri listeniz var, şimdi, son sayı kümesini aşağıda gösterilen ekran görüntüsü gibi çıkarmanız gerekiyor. Bu işi Excel'de nasıl halledebilirsin?
VBA kodu ile metin dizelerinden son sayıları çıkarın
VBA kodu ile metin dizelerinden son sayıları çıkarın
Metin dizilerinden son sayı kümesini hızlı bir şekilde çıkarmak için aşağıdaki VBA kodunu uygulayabilirsiniz. Lütfen şunu yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modül, ardından aşağıdaki kodu kopyalayıp modül Pencere.
VBA kodu: Metin dizelerinden son sayıları çıkarın:
Sub GetLastDigits()
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xRegEx As Object
Dim xRetList As Object
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only one column can be available", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
With xRegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "(\d+)"
End With
For Each xCell In xRg
Set xRetList = xRegEx.Execute(xCell.Value)
If xRetList.Count > 0 Then
If Left(xRetList(xRetList.Count - 1), 1) = 0 Then
xCell.Offset(0, 1) = Right(xRetList(xRetList.Count - 1), Len(xRetList(xRetList.Count - 1)) - 1)
Else
xCell.Offset(0, 1) = xRetList(xRetList.Count - 1)
End If
End If
Next
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve kullanmak istediğiniz veri aralığını seçmenizi hatırlatan bir istem kutusu görüntülenir, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi ve son sayı kümesi her metin dizesinden bitişik sütun hücrelerine çıkarılmıştır, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!