Chuyển chuỗi trong Excel

[thuvov]

mọi người giúp mình với. hiện tại mình đang gặp vấn đề như sau.
mình có file excel chứa cột B ghi dữ liệu gồm chữ in đậm và chữ thường. bây giờ mình muốn chuyển toàn bộ chữ in đậm sang cột A, khi đó cột B chỉ còn chữ thường thôi.
mọi người nhìn qua ảnh đính kèm của mình đây nhé!
https://fbcdn-sphotos-h-a.akamaihd.n...cda3c1852c3ad1
Mong mọi người giúp đỡ mình với!

View more random threads:

• Dò lấy dữ liệu
• Xin code hoàn thiện bảng tự nhập công (có check + khóa)
• Lọc dữ liệu trên Excel với 1 giá trị cho trước
• Chia sẻ lập kế hoạch kinh doanh 2016 của Công ty Bibica
• hỏi về cách xắp xếp dữ liệu công ty giống nhau có thể cho về gần nhau lần lượt từ kh?
• Nhờ anh chị giúp việc lọc và thống kê
• Giúp em về tách chữ trong chuỗi của excel 2007 với ạ
• Hỏi về tình khoảng thời gian giữa 2 ngày tháng cụ thể
• Không đính kèm được file trong bài viết
• Lấy lại file excell

[anhhungan]

mọi người giúp mình với. hiện tại mình đang gặp vấn đề như sau.
mình có file excel chứa cột B ghi dữ liệu gồm chữ in đậm và chữ thường. bây giờ mình muốn chuyển toàn bộ chữ in đậm sang cột A, khi đó cột B chỉ còn chữ thường thôi.
mọi người nhìn qua ảnh đính kèm của mình đây nhé!
https://fbcdn-sphotos-h-a.akamaihd.n...cda3c1852c3ad1
Mong mọi người giúp đỡ mình với!

Bài này chắc phải dùng VBA mới tách ra được

Function tach(Cell As Range) As StringDim i As Long, tam As Stringtam = Cell.ValueFor i = 1 To Len(tam)   If Mid(tam, i, 1) <> " " Then      If Cell.Characters(i, 1).Font.Bold = False Then         tach = Left(tam, i - 2)         Exit For      End If   End IfNextEnd Function