Tách số ra khỏi chuổi trong VBA EXCEL

Trong quá trình làm việc với Excel mình có gặp một số trường hợp yêu cầu tách chỉ lấy phần số trong 1 chuỗi cho trước, nay đăng bài này chia sẻ với các bạn cách làm này. Bài viết dưới đây hướng dẫn chi tiết cách tách số từ chuỗi cho trước trong Excel.

Tải về - File : 0002

MODEL

FUNCTION EXTRACTNUMBER(RCELL AS RANGE)
DIM LCOUNT AS LONG
DIM STEXT AS STRING
DIM LNUM AS STRING
STEXT = RCELL
FOR LCOUNT = LEN(STEXT) TO 1 STEP -1
IF ISNUMERIC(MID(STEXT, LCOUNT, 1)) THEN
LNUM = MID(STEXT, LCOUNT, 1) & LNUM
END IF
NEXT LCOUNT
EXTRACTNUMBER = CLNG(LNUM)
END FUNCTION

Worksheet

=ExtractNumber( chọn chuỗi đó )