Xoá số thứ tự trong 1 ô

[giaosucan]

Chào các bác, em gặp vấn đề phức tạp này ạ
em có 1 ô gồm nhiêu line

1. Nguyen 1983
2. Van 1981
3. Trung 1978

100. Duc 8291

Em muốn xóa số thứ tự ở đầu dòng thì làm thế nào ạ
Một số hàm xóa số hiện tại nó del luôn cả những số như 1983, 1981
Thank các bác ạ

 

[huuthang_bd]

Chào các bác, em gặp vấn đề phức tạp này ạ
em có 1 ô gồm nhiêu line

1. Nguyen 1983
2. Van 1981
3. Trung 1978

100. Duc 8291

Em muốn xóa số thứ tự ở đầu dòng thì làm thế nào ạ
Một số hàm xóa số hiện tại nó del luôn cả những số như 1983, 1981
Thank các bác ạ

Nếu dữ liệu của bạn như vậy thì dùng Find and Replace cho nhanh:

Quét cột dữ liệu cần xóa số
Nhấn Ctrl + H gọi hộp thoại Find and Replace
Find what: *. (dấu sao, dấu chấm và khoản trắng)
Replace with: (bỏ trống)
Click vào Replace All

P/S: Nhớ hồi âm, đừng quăng lên rồi đi luôn như lần trước.

 

[Loan1989]

VD ô chứa dữ liệu là C4, bạn thử dùng công thức này : =RIGHT(C4,LEN(C4)-FIND(".",C4)-1)

 

[giaosucan]

E có làm theo cách find replace nhưng ko dc bác ạ thấy báo lỗi

 

[hoangvuluan]

VD ô chứa dữ liệu là C4, bạn thử dùng công thức này : =RIGHT(C4,LEN(C4)-FIND(".",C4)-1)

Công thức này có thể đúng khi ô chứa 1 dòng, trong yêu cầu của chủ topic có nói 1 ô gồm nhiều hơn 1 dòng.

 

[huuthang_bd]

E có làm theo cách find replace nhưng ko dc bác ạ thấy báo lỗi

Bạn kiểm tra xem các tùy chọn trong bảng Find and Replace của bạn có giống như thế này không.

 

[hoangvuluan]

To: Huu_Thang, hình như ý của câu hỏi là 1 ô có nhiều dòng, với cách tìm và thay thế này, nó sẽ xóa sạch chỉ để lại dòng cuối cùng trong ô!

 

[huuthang_bd]

To: Huu_Thang, hình như ý của câu hỏi là 1 ô có nhiều dòng, với cách tìm và thay thế này, nó sẽ xóa sạch chỉ để lại dòng cuối cùng trong ô!

À. Tôi cũng không để ý cái câu bạn ấy nói 1 ô gồm nhiều line. Nếu vậy thì phải Find and Replace 2 lần:
Lần1:
Find what: Giữ phím Alt và nhập lần lượt các số 0010 bằng phím bên bàn phím số. Sau đó nhập *. (dấu sao, dấu chấm và khoảng trắng)
Replace with: Giữ phím Alt và nhập lần lượt các số 0010 bằng phím bên bàn phím số
Click vào Replace All
Lần 2:
Find what: *. (dấu sao, dấu chấm và khoảng trắng)
Replace with: (bỏ trống)
Click vào Replace All

 

[giaosucan]

Em nghĩ dùng marco là nhanh và tiện nhất

 

[huuthang_bd]

Em nghĩ dùng marco là nhanh và tiện nhất

Vậy thì bạn làm đi. Chỉ nhanh và tiện cho người sử dụng thôi. Còn việc lập trình thì đương nhiên sẽ cực hơn sử dụng các công cụ sẵn có.

 

[Quang_Hải]

Em nghĩ dùng marco là nhanh và tiện nhất

Mình thấy nick này cứ thêm vào rồi lấy ra, rồi lại thêm vào. Cũng lạ thiệt
Bạn dùng tạm hàm này

Function tach(cell As Range)
Dim tam, kq, i, a
tam = Split(cell, vbLf)
For i = 0 To UBound(tam)
  a = Trim(tam(i))
  kq = kq & Right(a, Len(a) - InStr(a, "."))
Next
tach = Trim(kq)
End Function

 

[giaosucan]

thank bac nhiều nhé e làm dc rồi