Trích xuất số từ các ô chứa chuỗi alpha-số hỗn hợp

Tôi có một cột trông như thế này:

      A
1 om2222prakash
2 kumar83566
3 222gsrana
4 k4566hhhh23

Làm cách nào tôi có thể tìm ra dữ liệu số trong A1, A2, A3 và A4? Tôi đang sử dụng Microsoft Excel 2007 và muốn có kết quả đầu ra như sau:

      A
1 2222
2 83566
3 222
4 456623

Vâng, mở VBE (Visual Basic Editor) với ALT+ F11. Trong VBA Project Explorer, nhấp chuột phải và thêm a Module.

Sao chép và dán mã dưới đây và nhấn F5để chạy macro.

Option Explicit

Sub GetNumbers()

    Dim uColumn As String

    ' if your data is in a different column then change A to some other letter(s)
    uColumn = "A"

    Dim i As Long, j As Long, r As Range
    For i = 1 To Range(uColumn & Rows.Count).End(xlUp).Row
        Set r = Range(uColumn & i)
        Dim tmpStr As String
        tmpStr = vbNullString
        For j = 1 To Len(r)
            If IsNumeric(Right(Left(r, j), 1)) Then tmpStr = tmpStr & Right(Left(r, j), 1)
        Next j
        r.NumberFormat = "@"
        r = tmpStr
    Next i

End Sub

Có một biến được đặt tên uColumn. Nó Ahiện đã được chỉ định là cột. Nếu dữ liệu của bạn nằm trong một cột khác thì hãy thay đổi từ A(các) chữ cái cột của bạn

Hi vọng điêu nay co ich

Đây là một công thức nên làm việc.

=1*MID(A1,MATCH(TRUE,ISNUMBER(1*MID(A1,ROW($1:$9),1)),0),COUNT(1*MID(A1,ROW($1:$9),1)))

Tham chiếu trong ROW () cần được thay đổi để bao gồm tất cả các hàng dữ liệu bạn muốn xem xét (được tham chiếu hai lần trong công thức). Vì vậy, ví dụ, nếu hàng dữ liệu cuối cùng của bạn là 200, nó sẽ đọc ROW ($ 1: $ 2000).

Nếu dữ liệu số alpha của bạn được A1đặt thì hãy đặt công thức này vào B1và nhấn shift + enter (đây là công thức mảng).
Điều này sẽ chỉ lấy các số từ A1 và đặt chúng trong B1. Kéo góc B1 xuống cuối dữ liệu của bạn để tự động điền cho phần còn lại của dữ liệu.

Bạn sẽ thấy dữ liệu số alpha của mình trong Cột A và chỉ các số từ dữ liệu đó trong cột B cho phép bạn làm như bạn muốn với chúng.

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(AR81,"0",""),"1",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9","")

Thay thế các ký tự được chỉ định trong một chuỗi bằng các ký tự thay thế. Trong ví dụ số được thay thế bằng khoảng trắng, nó sẽ hoạt động với những thứ khác như các ký tự đặc biệt.

Theo logic thay thế, bạn sẽ sử dụng cách sau để xóa các chữ cái và ký hiệu. Nếu tôi bỏ lỡ bất kỳ, tất cả những gì bạn cần là một sửa đổi nhanh theo cùng một mẫu.

Bạn sẽ cần thay đổi ô bắt đầu ( A2trong mẫu bên dưới).

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(UPPER(A2),"A",),"B",),"C",),"D",),"E",),"F",),"G",),"H",),"I",),"J",),"K",),"L",),"M",),"N",),"O",),"P",),"Q",),"R",),"S",),"T",),"U",),"V",),"W",),"X",),"Y",),"Z",)," ",),".",),"(",),")",),"-",),"+",),"=",),"!",),"@",),"#",),"$",),"%",),"^",),"&",),"*",),"_",),"[",),"]",),"{",),"}",),"\",),"|",),":",),";",),"""",),"<",),">",),",",),"?",)