Tìm công thức cắt chuỗi (1 người xem)

[titanic]

chào các A/C

em đã dùng nhiều hàm mid() nhưng em không biết là tới khì nào thì nó mới dấu " ; " nên phải dùng thêm nhiều công thức đếm (len ) nữa nên rất nhức đầu , nền nhờ A/C tìm giúp công thức cắt các số 1 ô thành nhiều liên tiếp nhau như trong file đính kèm em gửi
cảm ơn

 

[concogia]

chào các A/C

em đã dùng nhiều hàm mid() nhưng em không biết là tới khì nào thì nó mới dấu " ; " nên phải dùng thêm nhiều công thức đếm (len ) nữa nên rất nhức đầu , nền nhờ A/C tìm giúp công thức cắt các số 1 ô thành nhiều liên tiếp nhau như trong file đính kèm em gửi
cảm ơn

Thử công thức này ở [B1]:

=TRIM(MID(SUBSTITUTE(REPLACE(REPLACE($A1,LEN($A1)-20,20,""),1,29,""),";",REPT(" ",LEN($A1))),(COLUMN(A:A)-1)*LEN($A1)+1,LEN($A1)))

Kéo sang phải & kéo xuống
Thân

 

[olegtran]

chào các A/C

em đã dùng nhiều hàm mid() nhưng em không biết là tới khì nào thì nó mới dấu " ; " nên phải dùng thêm nhiều công thức đếm (len ) nữa nên rất nhức đầu , nền nhờ A/C tìm giúp công thức cắt các số 1 ô thành nhiều liên tiếp nhau như trong file đính kèm em gửi
cảm ơn

Bài toán này khá thú vi, tôi đã gặp 1 lần tương tự.
Bạn thử tach kiểu như sau:
1- Xóa toàn bộ chữ "Số điện ...." và ". Trân trong cảm ơn" (Ấn Ctrl+H, thay cụm từ chưa bằng "")
2- Bạn sẽ có kết quả ô màu vàng.

 

[Quang_Hải]

chào các A/C

em đã dùng nhiều hàm mid() nhưng em không biết là tới khì nào thì nó mới dấu " ; " nên phải dùng thêm nhiều công thức đếm (len ) nữa nên rất nhức đầu , nền nhờ A/C tìm giúp công thức cắt các số 1 ô thành nhiều liên tiếp nhau như trong file đính kèm em gửi
cảm ơn

Bài này dùng công thức chi cho mệt óc. Dùng chức năng Find and Replace xử lý phần đầu và phần cuối của dãy số. Sau đó dùng chức năng text to columns là xong.

 

[concogia]

Bài này dùng công thức chi cho mệt óc. Dùng chức năng Find and Replace xử lý phần đầu và phần cuối của dãy số. Sau đó dùng chức năng text to columns là xong.

Dùng công thức thì mệt óc, không dùng công thức thì ......mệt tay
Đằng nào cũng mệt, ai thích mệt kiểu nào thì mệt kiểu í
Hihi

 

[xuan.nguyen82]

Em cũng muốn thử "mệt" tý xem sao:

1/ Cắt chuỗi bỏ từ dấu hai chấm về trước, bỏ từ dấu chấm trở về sau.

2/ Không biết làm cách nào để tách nên dùng Record Macro để tách bằng công cụ Text to Columns

3/Test thử thấy nó chạy không báo lỗi gì

Chủ topic thử xem nhé. Bấm GPE:

Public Sub GPE()
Dim sArr(), dArr(), I As Long, M As Long
With Sheets("Text Message")
    sArr = .Range(.[A1], .[A65000].End(xlUp)).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 1)
For I = 1 To UBound(sArr, 1)
    M = InStrRev(sArr(I, 1), ".")
   dArr(I, 1) = Mid(Left(sArr(I, 1), M - 1), 30, 1000)
Next I
With Sheets("GPE")
    .[A4:J65000].ClearContents
    .[A4].Resize(I - 1).Value = dArr
    .Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=";", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), _
        TrailingMinusNumbers:=True
End With
End Sub

File đính kèm: