Lấy ký tự trong ngoặc vuông [ ] (1 người xem)

[QuangMinhtb]

Xin chào anh, chị trên diễn đàn!
Trong dữ liệu cột F, em muốn chỉ lấy ký tự số trong ngoặc [ ], còn lại bỏ các ký tự khác, ký được lấy thay thế luôn dữ liệu trong ô đó.
Hình 1 (dữ liệu ban đầu)
Hình 2 (kết quả)
Cho em hỏi có thẻ dùng CTR + H để làm được điều này không ạ?
Hay phải dùng code.
Em xin cảm ơn!

 

[ptm0412]

Dùng công thức:
Bước 1: Dùng hàm Find đối với ký tự "["
Bước 2: Dùng hàm Find đối với ký tự "]"
Bước 3: Dùng hàm Mid với đối số là 2 kết quả trên.

Dùng replace
Bước 1: Loại "Công nhân ["
Bước 2: loại "] ;"

 

[QuangMinhtb]

Dùng công thức:
Bước 1: Dùng hàm Find đối với ký tự "["
Bước 2: Dùng hàm Find đối với ký tự "]"
Bước 3: Dùng hàm Mid với đối số là 2 kết quả trên.

Dùng replace
Bước 1: Loại "Công nhân ["
Bước 2: loại "] ;"

Em cảm ơn thầy!

 

[VetMini]

Dùng công thức:
Bước 1: Dùng hàm Find đối với ký tự "["
Bước 2: Dùng hàm Find đối với ký tự "]"
Bước 3: Dùng hàm Mid với đối số là 2 kết quả trên.

Dùng replace
Bước 1: Loại "Công nhân ["
Bước 2: loại "] ;"

Tổng hợp hai cái trên, dùng 2 hàm Substitute lồng nhau, lần thứ nhất loại "Công nhân [" và lần thứ hai loại "] ;"

Còn cách thứ ba là text to columns. Lần thứ nhất delimiter là [. Lần thứ hai là ]. Cuối cùng xoá bỏ mấy cột không cần đi.

Cách thứ tư là dùng flash fill.

Nếu muốn dùng công thức khủng cho có vẻ nguy hiểm thì chịu khó tìm. Ở đây có cả đống bài về tách số ra khỏi một chuỗi.

 

[batman1]

Trong dữ liệu cột F, em muốn chỉ lấy ký tự số trong ngoặc [ ], còn lại bỏ các ký tự khác, ký được lấy thay thế luôn dữ liệu trong ô đó.
Hình 1 (dữ liệu ban đầu)
Hình 2 (kết quả)
Cho em hỏi có thẻ dùng CTR + H để làm được điều này không ạ?

Find and Replace -> trong Find what gõ *[ -> trong Replace with để trống -> nhấn Replewce All -> trong Find what sửa thành ]* -> nhấn Replace All

 

[SA_DQ]

Bạn tham khảo thêm cách xài Code khi rỗi nha:

Ta viết 1 macro gồm 1 dòng lệnh, như sau:

Sub TachSo()
 Tach Selection
End Sub

Sau đó gán cho nó 1 tổ hợp phím nóng, như {CTRL}+{SHIFT}+T
Tiếp sau ta chép macro này vô module đó luôn:

 Sub Tach(Rng As Range)
 Dim Cls As Range
 Dim fLen As Integer, lLen As Integer
 
 For Each Cls In Rng
    fLen = Len("Công nhân ["):       lLen = Len("] ;")
    Cls.Value = CInt(Mid(Cls.Value, fLen + 1, Len(Cls.Value) - fLen - lLen))
 Next Cls
End Sub

Từ thời điểm này trở về sau, bạn cần thực hiện 2 động tác này sẽ cho kết quả thảnh thơi:
1./ Dùng chuột bấm chọn các ô cần chuyển đổi;
2./ Bấm tổ hợp phím iêu thích của bạn

Chúc các bạn vui & khỏe qua đợt dịch!

 

[batman1]

Lưu ý:
- cách dùng Find and Replace như bài #5 tôi hướng dẫn.
- nếu vd. 2 cột đều có dạng Công nhân [8] ; nhưng bạn chỉ muốn thao tác cho 1 cột thì trước khi thao tác như bài #5 hãy chọn cột cần thao tác.