Các phương pháp tách số từ chuỗi và ngược lại, đề nghị post tại đây

binh18091970 · 14/8/20

hado83 đã viết:
cái này đơn gian mà, bạn có thể sử dụng công thức sau:

Nếu là: 20-1904 B3 lò gốm mình gọi ô chứa dữ liệu này là A1, bạn có thể đãnh công thức sau: =right(left(A1, 7),4)
Nếu là: 1902 7/3 cmt8 bạn chỉ cần gõ ct: =left(A1,4)

ÔI... có 1000 dòng thì gõ 1000 công thức... mệt đấy.

binh18091970 · 14/8/20

ndu96081631 đã viết:
Tức là tách lấy từ bên trái đến khi gặp dấu phẩy thì ngưng, đúng không?

Vậy thì dùng công thức này tại cell G2:

PHP:

=LEFT(C2,FIND(",",C2)-1)

kéo fill xuống

Để chuyển nó thành số thật sự, dùng công thức này:

PHP:

=SUBSTITUTE(LEFT(C2,FIND(",",C2)-1),".","")*1

Hiii
Bạn thử cái này xem: =VALUE(SUBSTITUTE(LEFT(C3,LEN(C3)-3),".",","))

sutuochua · 23/8/20

Chào các bác, mình có một danh sách rất dài, muốn tách dãy số phía trước ra thì làm như thế nào. Bác nào biết xin giúp đỡ. Xin cảm ơn!

Muốn Tách:		Kết quả muốn:
DAAAQQ.23082020		DAAAQQ
ADASS.24082020		ADASS
AWASS.25082020		AWASS
ASSJSS.26082020		ASSJSS
TTDASLL.27082020		TTDASLL
ADaaaaaaaASYY.28082020		ADaaaaaaaASYY
…....

VetMini · 23/8/20

sutuochua đã viết:
Chào các bác, mình có một danh sách rất dài, muốn tách dãy số phía trước ra thì làm như thế nào.

Text-to-columns, chọn delimiter là dấu chấm.
Flash fill cũng được.

Hoàng Tuấn 868 · 23/8/20

Bạn tham khảo.

Nhattanktnn · 23/8/20

sutuochua đã viết:
Chào các bác, mình có một danh sách rất dài, muốn tách dãy số phía trước ra thì làm như thế nào. Bác nào biết xin giúp đỡ. Xin cảm ơn!

Muốn Tách: Kết quả muốn:
DAAAQQ.23082020 DAAAQQ
ADASS.24082020 ADASS
AWASS.25082020 AWASS
ASSJSS.26082020 ASSJSS
TTDASLL.27082020 TTDASLL
ADaaaaaaaASYY.28082020 ADaaaaaaaASYY
…....

Như này cũng được:

huonglien1901 · 23/8/20

sutuochua đã viết:
Chào các bác, mình có một danh sách rất dài, muốn tách dãy số phía trước ra thì làm như thế nào. Bác nào biết xin giúp đỡ. Xin cảm ơn!

Muốn Tách: Kết quả muốn:
DAAAQQ.23082020 DAAAQQ
ADASS.24082020 ADASS
AWASS.25082020 AWASS
ASSJSS.26082020 ASSJSS
TTDASLL.27082020 TTDASLL
ADaaaaaaaASYY.28082020 ADaaaaaaaASYY
…....

=LEFT(C3,FIND(".",C3)-1)

sutuochua · 23/8/20

huonglien1901 đã viết:
=LEFT(C3,FIND(".",C3)-1)

Bác cho mình hỏi thêm. Nếu như chuỗi đó không có dấu"." thì mình làm sao vậy bác?

Muốn Tách:		Kết quả muốn: Lấy phần chữ từ 8 số bên phải qua
DAAAQQ23082020		DAAAQQ
ADASS24082020		ADASS
AWASS25082020		AWASS
ASSJSS26082020		ASSJSS
TTDASLL27082020		TTDASLL
ADaaaaaaaASYY28082020		ADaaaaaaaASYY
…....

Nhattanktnn · 23/8/20

sutuochua đã viết:
Bác cho mình hỏi thêm. Nếu như chuỗi đó không có dấu"." thì mình làm sao vậy bác?

Muốn Tách: Kết quả muốn: Lấy phần chữ từ 8 số bên phải qua
DAAAQQ23082020 DAAAQQ
ADASS24082020 ADASS
AWASS25082020 AWASS
ASSJSS26082020 ASSJSS
TTDASLL27082020 TTDASLL
ADaaaaaaaASYY28082020 ADaaaaaaaASYY
…....

PHP:

=LEFT(C3,MIN(INDEX(FIND(ROW($1:$9)-1,C3&"0123456789"),))-1)

huonglien1901 · 23/8/20

sutuochua đã viết:
Bác cho mình hỏi thêm. Nếu như chuỗi đó không có dấu"." thì mình làm sao vậy bác?

Muốn Tách: Kết quả muốn: Lấy phần chữ từ 8 số bên phải qua
DAAAQQ23082020 DAAAQQ
ADASS24082020 ADASS
AWASS25082020 AWASS
ASSJSS26082020 ASSJSS
TTDASLL27082020 TTDASLL
ADaaaaaaaASYY28082020 ADaaaaaaaASYY
…....

=MID(C3,1,AGGREGATE(15,6,FIND(ROW($1:$10)-1,C3),1)-1)
=MID(C3,1,MATCH(1,INDEX(N(CODE(MID(C3,ROW($1:$20),1))<58),),)-1)
=MID(C3,1,MATCH(,INDEX(N(CODE(MID(C3,ROW($1:$20),1))>57),),)-1)
=MID(C3,1,MATCH(,INDEX(1-SIGN(1+MID(C3,ROW($1:$20),1)),),)-1)

tranhoainam9701 · 25/7/21

Kính gửi các Anh, Chị!
lời đầu tiên xin gửi lời chúc sức khỏe tới các anh chị trong diễn đàn. Hiện tại em gặp một vấn đề khó khăn với file dạng chuỗi có khá nhiều dòng và không thể sử dụng hàm textjoin để nối vì quá dài nó báo lỗi Value khi sử dụng hàm textjoin.
- Giờ em muốn nối các chuỗi đó lại thành 1 chuỗi duy nhất và đếm số lần xuất hiện của những kí tự trong chuỗi được ngăn cách bởi dấu "," bằng code Vba. Kính mong các anh chị ai biết thì giúp em với.
Em xin chân thành cám ơn !

Phuocam · 25/7/21

tranhoainam9701 đã viết:
Kính gửi các Anh, Chị!
lời đầu tiên xin gửi lời chúc sức khỏe tới các anh chị trong diễn đàn. Hiện tại em gặp một vấn đề khó khăn với file dạng chuỗi có khá nhiều dòng và không thể sử dụng hàm textjoin để nối vì quá dài nó báo lỗi Value khi sử dụng hàm textjoin.
- Giờ em muốn nối các chuỗi đó lại thành 1 chuỗi duy nhất và đếm số lần xuất hiện của những kí tự trong chuỗi được ngăn cách bởi dấu "," bằng code Vba. Kính mong các anh chị ai biết thì giúp em với.
Em xin chân thành cám ơn !

Chào bạn, bạn muốn nối theo từng hàng hay muốn nối tất cả hàng và cột vào trong 1 ô?

.

ptm0412 · 25/7/21

tranhoainam9701 đã viết:
Kính gửi các Anh, Chị!
lời đầu tiên xin gửi lời chúc sức khỏe tới các anh chị trong diễn đàn. Hiện tại em gặp một vấn đề khó khăn với file dạng chuỗi có khá nhiều dòng và không thể sử dụng hàm textjoin để nối vì quá dài nó báo lỗi Value khi sử dụng hàm textjoin.
- Giờ em muốn nối các chuỗi đó lại thành 1 chuỗi duy nhất và đếm số lần xuất hiện của những kí tự trong chuỗi được ngăn cách bởi dấu "," bằng code Vba. Kính mong các anh chị ai biết thì giúp em với.
Em xin chân thành cám ơn !

Sử dụng hàm Textjoin được:
A3 =SUBSTITUTE(TEXTJOIN(",",1,B3:CG3),",,","")
Sau đó text to column rồi đếm
TextJoin:

Text to column và đếm (sheet khác)

tranhoainam9701 · 27/7/21

ptm0412 đã viết:
Sử dụng hàm Textjoin được:
A3 =SUBSTITUTE(TEXTJOIN(",",1,B3:CG3),",,","")
Sau đó text to column rồi đếm
TextJoin:
View attachment 263004

Text to column và đếm (sheet khác)

View attachment 263005

Cám ơn Thầy rất nhiều ạ, Nhưng thầy ơi file của em nó dài và nhiều kí tự trong chuỗi, nếu em sử dụng hàm thì file nó đọc công thức rất nặng và chạy gây treo máy ạ. Vậy có cách nào để code không Thầy? em xin gửi file giả laaoj và nội dung mong muốn e viết trong file, mong Thầy giúp giùm.
Một lần nữa cám ơn thầy và kính chúc Thầy nhiều sức khỏe, niềm vui trong cuộc sống!

Bài đã được tự động gộp: 27/7/21

ptm0412 đã viết:
Sử dụng hàm Textjoin được:
A3 =SUBSTITUTE(TEXTJOIN(",",1,B3:CG3),",,","")
Sau đó text to column rồi đếm
TextJoin:
View attachment 263004

Text to column và đếm (sheet khác)

View attachment 263005

Cám ơn Thầy rất nhiều ạ, Nhưng thầy ơi file của em nó dài và nhiều kí tự trong chuỗi, nếu em sử dụng hàm thì file nó đọc công thức rất nặng và chạy gây treo máy ạ. Vậy có cách nào để code không Thầy? em xin gửi file giả laaoj và nội dung mong muốn e viết trong file, mong Thầy giúp giùm.
Một lần nữa cám ơn thầy và kính chúc Thầy nhiều sức khỏe, niềm vui trong cuộc sống!

Bài đã được tự động gộp: 27/7/21

Bản office của em dùng là 2007, hàm nối chuỗi e tải trên GPE về ak, nhưng không biết cách sử dụng, nhưng dữ liệu của em nhiều lắm Thầy ơi, dùng code chứ hàm thì nó đọc lâu lắm vì file còn có các sheet khác ak lên tận 15mb nó treo máy mất ak!. Nếu code được thì tuyệt biết mấy

tranhoainam9701 đã viết:
Cám ơn Thầy rất nhiều ạ, Nhưng thầy ơi file của em nó dài và nhiều kí tự trong chuỗi, nếu em sử dụng hàm thì file nó đọc công thức rất nặng và chạy gây treo máy ạ. Vậy có cách nào để code không Thầy? em xin gửi file giả laaoj và nội dung mong muốn e viết trong file, mong Thầy giúp giùm.
Một lần nữa cám ơn thầy và kính chúc Thầy nhiều sức khỏe, niềm vui trong cuộc sống!

Bài đã được tự động gộp: 27/7/21

Cám ơn Thầy rất nhiều ạ, Nhưng thầy ơi file của em nó dài và nhiều kí tự trong chuỗi, nếu em sử dụng hàm thì file nó đọc công thức rất nặng và chạy gây treo máy ạ. Vậy có cách nào để code không Thầy? em xin gửi file giả laaoj và nội dung mong muốn e viết trong file, mong Thầy giúp giùm.
Một lần nữa cám ơn thầy và kính chúc Thầy nhiều sức khỏe, niềm vui trong cuộc sống

ptm0412 · 27/7/21

tranhoainam9701 đã viết:
Bản office của em dùng là 2007, hàm nối chuỗi e tải trên GPE về ak, nhưng không biết cách sử dụng, nhưng dữ liệu của em nhiều lắm Thầy ơi, dùng code chứ hàm thì nó đọc lâu lắm vì file còn có các sheet khác ak lên tận 15mb nó treo máy mất ak!. Nếu code được thì tuyệt biết mấy

ak đọc là ặc hay AK47?
- Cách tôi làm là dùng hàm textJoin của office 2019 trở lên, và viết công thức cho từng dòng chứ không viết cho cả 1 khối ngàn dòng
- Hàm bạn sưu tầm về có 3 tham số và dùng cho trường hợp cụ thể theo yêu cầu chứ không dùng lung tung được
- Viết code thì tôi viết được, nhưng trước tiên bạn cho biết mục đích của file này là gì? Có phải thống kê số đề hay không? Vì nếu tôi viết tức là tôi tiếp tay cho 1 việc phạm pháp.

tranhoainam9701 · 28/7/21

ptm0412 đã viết:
ak đọc là ặc hay AK47?
- Cách tôi làm là dùng hàm textJoin của office 2019 trở lên, và viết công thức cho từng dòng chứ không viết cho cả 1 khối ngàn dòng
- Hàm bạn sưu tầm về có 3 tham số và dùng cho trường hợp cụ thể theo yêu cầu chứ không dùng lung tung được
- Viết code thì tôi viết được, nhưng trước tiên bạn cho biết mục đích của file này là gì? Có phải thống kê số đề hay không? Vì nếu tôi viết tức là tôi tiếp tay cho 1 việc phạm pháp.

File trên là e lấy chuỗi tạm để minh hoạ cho cách nối chuỗi mà thôi chứ không có ý khác,vì mỵc đích là để tìm kí tự giống nhau trong một chuỗi quá dài vượt kí tự của hàm textjoin.e thấy trên googlesheet có hàm lọc có thể làm được,nhưng excel thì lại ko,nên không biết code VBA mong thầy giúp ak.

Bài đã được tự động gộp: 28/7/21

Phuocam đã viết:
Chào bạn, bạn muốn nối theo từng hàng hay muốn nối tất cả hàng và cột vào trong 1 ô?

.

Mình muốn nối all các hàng thành một ô,nhưng thử các cách rồi, đã lấy hàm tự tạo textjoin trong diễn đàn nhưng hình như textjoin không nối được vì quá 255 kí tự.cái này mình nghĩ phải dùng code vba.máy mình xài excel 2007.huhuhu

meoconduaxe · 12/5/22

Mình người mới. Mình muốn hỏi điều này
ví dụ tên nhân viên : Nguyễn Thị Hà mã NV: NTH
Những tên nhân viện khác: Nguyễn Thu Hương--> Mã NV cũng lại là NTH ( mình muốn nó thành NTH01).
Bác nào chỉ giúp em với ạ ( viết lệnh VBA)

HieuCD · 12/5/22

meoconduaxe đã viết:
Mình người mới. Mình muốn hỏi điều này
ví dụ tên nhân viên : Nguyễn Thị Hà mã NV: NTH
Những tên nhân viện khác: Nguyễn Thu Hương--> Mã NV cũng lại là NTH ( mình muốn nó thành NTH01).
Bác nào chỉ giúp em với ạ ( viết lệnh VBA)

Dùng dictionary ghi key "NTH" với item là số lần xuất hiện key

meoconduaxe · 12/5/22

HieuCD đã viết:
Dùng dictionary ghi key "NTH" với item là số lần xuất hiện key

Tại mình mới dùng VBA. Bạn có thể ghi giúp mình không ạ.
Mình mới chỉ tách được tên. Nhưng những tên trùng thì nó không hiện ra được số

(

Function Name(Str As String) As String
Dim i As Byte
Str = Trim(Str): Name = Left(Str, 1)
For i = 1 To Len(Str)
If Mid(Str, i, 1) = " " Then Name = Name + Mid(Str, i + 1, 1)
Next
End Function

HieuCD · 12/5/22

meoconduaxe đã viết:
Tại mình mới dùng VBA. Bạn có thể ghi giúp mình không ạ.
Mình mới chỉ tách được tên. Nhưng những tên trùng thì nó không hiện ra được số (

Function Name(Str As String) As String
Dim i As Byte
Str = Trim(Str): Name = Left(Str, 1)
For i = 1 To Len(Str)
If Mid(Str, i, 1) = " " Then Name = Name + Mid(Str, i + 1, 1)
Next
End Function

Function xử lý từng ô thì không cần dùng dic, cần thêm tham số các mã được tạo trước đó

Mã:

Function Name(str As String, rng As Range) As String
  If str = Empty Then Exit Function
  Dim i As Long, k As Long, tmp As String, cel As Range
  str = Trim(str): tmp = Left(str, 1)
  For i = 1 To Len(str)
    If Mid(str, i, 1) = " " Then tmp = tmp + Mid(str, i + 1, 1)
  Next
  For Each cel In rng
    If cel.Value = tmp Then
      k = k + 1
    ElseIf cel.Value Like tmp & "##" Then
      k = k + 1
    End If
  Next cel
  If k = 0 Then
    Name = tmp
  Else
    Name = tmp & Format(k, "00")
  End If
End Function

Các phương pháp tách số từ chuỗi và ngược lại, đề nghị post tại đây

Thành viên mới

Thành viên mới

Thành viên mới

File đính kèm

Ăn cùng góc phố

Đăng ký hôm qua

File đính kèm

Thành viên gắn bó

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên mới

Thành viên gắn bó

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên chính thức

File đính kèm

Thành viên mới

Bad Excel Member

Thành viên chính thức

File đính kèm

Bad Excel Member

Thành viên chính thức

Thành viên mới

Chuyên gia GPE

Thành viên mới

Chuyên gia GPE

File đính kèm

Facebook

Group