Tách kí tự trước và sau dấu " + " (1 người xem)

[Văn Mai Hương]

Thưa các Thầy, Cô & các Sư huynh, Sư tỷ !

Muội có một mớ khoảng gần 30k dòng dữ liệu, trong đó có một số dữ liệu khi nhập đã ko Tách kí tự trước và sau dấu " + " .
VD như: khăn len+khăn mặt ; hay là: khăn len +khăn mặt ; hoặc là: khăn len+ khăn mặt.
Muội xin nhờ các Thầy, Sư huynh, Sư tỷ giúp muội Sub để tách dấu " + " ra cho khỏi dính liền với các từ trước và sau nó với ạ (kiểu : khăn len + khăn mặt ).
Muội xin cảm ơn !

 

[phulien1902]

Thưa các Thầy, Cô & các Sư huynh, Sư tỷ !

Muội có một mớ khoảng gần 30k dòng dữ liệu, trong đó có một số dữ liệu khi nhập đã ko Tách kí tự trước và sau dấu " + " .
VD như: khăn len+khăn mặt ; hay là: khăn len +khăn mặt ; hoặc là: khăn len+ khăn mặt.
Muội xin nhờ các Thầy, Sư huynh, Sư tỷ giúp muội Sub để tách dấu " + " ra cho khỏi dính liền với các từ trước và sau nó với ạ (kiểu : khăn len + khăn mặt ).
Muội xin cảm ơn !

1 đơn giản là dùng Text To Columns sẵn có trong Excel.

 

[befaint]

=TRIM(SUBSTITUTE(A1,"+"," + "))

 

[Văn Mai Hương]

=TRIM(SUBSTITUTE(A1,"+"," + "))

Muội xin cảm ơn Befaint đã giải quyết giúp muội. Muội đã làm được rồi

1 đơn giản là dùng Text To Columns sẵn có trong Excel.

Xin cảm ơn Phulien1902 ! Dưng có nhẽ muội chưa biết dùng hay sao í mà nó ko tách kí tự bằng khoảng trắng mà mà chơi tách hẳn ra cột khác í ạ .

 

[phulien1902]

Muội xin cảm ơn Befaint đã giải quyết giúp muội. Muội đã làm được rồi


Xin cảm ơn Phulien1902 ! Dưng có nhẽ muội chưa biết dùng hay sao í mà nó ko tách kí tự bằng khoảng trắng mà mà chơi tách hẳn ra cột khác í ạ .

Vậy thì ta phải tìm hiểu về nó( Text to Columns) thôi.

 

[ndu96081631]

Thưa các Thầy, Cô & các Sư huynh, Sư tỷ !

Muội có một mớ khoảng gần 30k dòng dữ liệu, trong đó có một số dữ liệu khi nhập đã ko Tách kí tự trước và sau dấu " + " .
VD như: khăn len+khăn mặt ; hay là: khăn len +khăn mặt ; hoặc là: khăn len+ khăn mặt.
Muội xin nhờ các Thầy, Sư huynh, Sư tỷ giúp muội Sub để tách dấu " + " ra cho khỏi dính liền với các từ trước và sau nó với ạ (kiểu : khăn len + khăn mặt ).
Muội xin cảm ơn !

Dùng cái này thử xem sao:

Sub Test()
  Dim rFind As Range
  With ActiveSheet.UsedRange
    .Replace "+", " + ", xlPart
    Do
      .Replace "  ", " ", xlPart
      Set rFind = .Find("  ", , xlFormulas, xlPart)
    Loop While Not rFind Is Nothing
  End With
End Sub

 

[Văn Mai Hương]

Dùng cái này thử xem sao:

Sub Test()
  Dim rFind As Range
  With ActiveSheet.UsedRange
    .Replace "+", " + ", xlPart
    Do
      .Replace "  ", " ", xlPart
      Set rFind = .Find("  ", , xlFormulas, xlPart)
    Loop While Not rFind Is Nothing
  End With
End Sub

Wa ! Cái Sub của Thầy Ndu96081631 sử dụng quá tiện lợi ạ, ko cần phải thêm cột để chỉnh qua ạ.
Muội ko biết nói sao, muội (em) xin cảm ơn Thầy Ndu96081631 nhiều ạ .

 

[ndu96081631]

Muội ko biết nói sao, muội (em) xin cảm ơn Thầy Ndu96081631 nhiều ạ .

Ở đâu mà người ta gọi "THẦY" xưng "MUỘI" ta?
Mới nha! THẦY... thik... lém... đóa...

 

[Văn Mai Hương]

Ở đâu mà người ta gọi "THẦY" xưng "MUỘI" ta?
Mới nha! THẦY... thik... lém... đóa...

Hì hì ! Thầy chiếu sáng thiếu mất tiêu 1 biến của muội nên "công thức" của Thầy tính ko ra ở đâu. Để muội chiếu lại Thầy xem giúp lại em (muội) với nhé

Muội ko biết nói sao, muội (em) xin cảm ơn Thầy Ndu96081631 nhiều ạ .