Tách chuỗi có hai ngôn ngữ khác nhau

[tranhuunguyen]

Mình muốn tách tiếng việt và tiếng nhật mà nó bị dính vào, ví dụ:
tách cột đầu tiên làm sao cho ra được 2 cột kia

安心an tâm	安心	an tâm
安全an toàn	安全	an toàn
印象ấn tượng	印象	ấn tượng

Cảm ơn nhiều !

 

[eke_rula]

Mình muốn tách tiếng việt và tiếng nhật mà nó bị dính vào, ví dụ:
tách cột đầu tiên làm sao cho ra được 2 cột kia

安心an tâm	安心	an tâm
安全an toàn	安全	an toàn
印象ấn tượng	印象	ấn tượng

Cảm ơn nhiều !

Bài này chắc nhờ các anh chị viết VBA cho bạn rồi, nếu không có dấu thì có thể lấy được!!!

 

[ndu96081631]

Mình muốn tách tiếng việt và tiếng nhật mà nó bị dính vào, ví dụ:
tách cột đầu tiên làm sao cho ra được 2 cột kia

安心an tâm	安心	an tâm
安全an toàn	安全	an toàn
印象ấn tượng	印象	ấn tượng

Cảm ơn nhiều !

Tôi nghĩ bài này phải dùng phương pháp lập trình VBA mới giải quyết được chứ công thức thường chắc khó ăn
Nếu bạn đồng ý dùng VBA thì ta tiếp tục
------------------
Bạn cũng có thể xem qua bài này để tham khảo:
https://www.giaiphapexcel.com/forum/showthread.php?59573-Tách-dữ-liệu-1-cột-thành-nhiều-cột

 

[befaint]

Mình muốn tách tiếng việt và tiếng nhật mà nó bị dính vào, ví dụ:
tách cột đầu tiên làm sao cho ra được 2 cột kia

安心an tâm	安心	an tâm
安全an toàn	安全	an toàn
印象ấn tượng	印象	ấn tượng

Cảm ơn nhiều !

Bạn gửi thêm dữ liệu được không?

 

[tranhuunguyen]

Bạn giúp mình phần VBA với, cái này mình mù tịt. Cảm ơn bạn

 

[tranhuunguyen]

Tôi nghĩ bài này phải dùng phương pháp lập trình VBA mới giải quyết được chứ công thức thường chắc khó ăn
Nếu bạn đồng ý dùng VBA thì ta tiếp tục
------------------
Bạn cũng có thể xem qua bài này để tham khảo:
https://www.giaiphapexcel.com/forum/showthread.php?59573-Tách-dữ-liệu-1-cột-thành-nhiều-cột

Bạn giúp mình phần VBA với, cái này mình mù tịt. Cảm ơn bạn

 

[ndu96081631]

Bạn giúp mình phần VBA với, cái này mình mù tịt. Cảm ơn bạn

Tôi dùng code vầy:

Function VCSeparate(ByVal Text As String)
  Dim lCp As Long, sTmp As String, sCh As String, lCode As Long
  'On Error Resume Next
  ReDim arr(1 To 2) As String
  sTmp = Space(1) & Text
  lCp = Len(sTmp)
  Do
    sCh = Mid(sTmp, lCp, 1)
    lCode = AscW(sCh)
    lCp = lCp - 1
  Loop Until (sCh <> " " And (lCode < 1 Or (lCode > 432 And lCode < 7840) Or lCode > 7929)) Or lCp = 0
  arr(1) = Trim(Left(sTmp, lCp + 1))
  arr(2) = Trim(Mid(sTmp, lCp + 2))
  VCSeparate = arr
End Function

Trên bảng tính, quét chọn B1:C1 rồi gõ lên thanh Formula công thức:

=VCSeparate(A1)

Bấm Ctrl + Shift + Enter để kết thúc
(với dữ liệu đặt tại cột A, từ A1 trở xuống)

 

[tranhuunguyen]

Cảm ơn bạn nhiều lắm.

 

[ara20230101]

Tôi dùng code vầy:

Function VCSeparate(ByVal Text As String)
  Dim lCp As Long, sTmp As String, sCh As String, lCode As Long
  'On Error Resume Next
  ReDim arr(1 To 2) As String
  sTmp = Space(1) & Text
  lCp = Len(sTmp)
  Do
    sCh = Mid(sTmp, lCp, 1)
    lCode = AscW(sCh)
    lCp = lCp - 1
  Loop Until (sCh <> " " And (lCode < 1 Or (lCode > 432 And lCode < 7840) Or lCode > 7929)) Or lCp = 0
  arr(1) = Trim(Left(sTmp, lCp + 1))
  arr(2) = Trim(Mid(sTmp, lCp + 2))
  VCSeparate = arr
End Function

Trên bảng tính, quét chọn B1:C1 rồi gõ lên thanh Formula công thức:

=VCSeparate(A1)

Bấm Ctrl + Shift + Enter để kết thúc
(với dữ liệu đặt tại cột A, từ A1 trở xuống)

Da, Cho e hỏi với ạ

EM copy mã code của anh ở bên trên
Nhưng em chỉ làm ra được tiếng nhật
còn tiếng việt thì ko hiển thị được ra ạ

Anh chỉ cho e với ạ

 

[Phuocam]

Da, Cho e hỏi với ạ

EM copy mã code của anh ở bên trên
Nhưng em chỉ làm ra được tiếng nhật
còn tiếng việt thì ko hiển thị được ra ạ

Anh chỉ cho e với ạ

.
1. Bạn quyét chọn 2 ô liền kề, ví dụ D1:E1

2. Đưa trỏ chuột vào thanh công thức, nhập: =VCSeparate(A1)

3. Kết thúc bằng Ctrl + Shift + Enter.

.

 

[ara20230101]

.
1. Bạn quyét chọn 2 ô liền kề, ví dụ D1:E1

2. Đưa trỏ chuột vào thanh công thức, nhập: =VCSeparate(A1)

3. Kết thúc bằng Ctrl + Shift + Enter.

.

Vâng, e đã làm được rồi ạ, e cảm ơn ạ

 

[snow25]

.
1. Bạn quyét chọn 2 ô liền kề, ví dụ D1:E1

2. Đưa trỏ chuột vào thanh công thức, nhập: =VCSeparate(A1)

3. Kết thúc bằng Ctrl + Shift + Enter.

.

Tiếng Anh với tiếng việt tách được không anh.