Giúp em công thức lấy tên từng chi nhánh? (2 người xem)

[danhculao]

Chào các Anh/chị,
Nhờ các anh/chị chỉ giúp em công thức lấy tên từng chi nhánh (em có gửi kèm theo file)
Em cám ơn ạ!

 

[CHAOQUAY]

Chào các Anh/chị,
Nhờ các anh/chị chỉ giúp em công thức lấy tên từng chi nhánh (em có gửi kèm theo file)
Em cám ơn ạ!

C2=LEFT(A2,FIND(":",A2)-1)

 

[leonguyenz]

Chào các Anh/chị,
Nhờ các anh/chị chỉ giúp em công thức lấy tên từng chi nhánh (em có gửi kèm theo file)
Em cám ơn ạ!

Công thức tại B2:

=LEFT(A2,SEARCH(":",A2)-1)

P/s: trùng giải pháp. Tham khảo thêm hàm SEARCH.

 

[danhculao]

Các anh ơi chỉ thêm giúp em, em thêm cột D là cột tên ngắn gọn của từng chi nhánh. Nhờ các anh chỉ giúp em công thức ạ.
Em cám ơn!

 

[be_09]

Chào các Anh/chị,
Nhờ các anh/chị chỉ giúp em công thức lấy tên từng chi nhánh (em có gửi kèm theo file)
Em cám ơn ạ!

Thử với đoạn code sau:

Sub Tach_ChiNhanh()
    Application.DisplayAlerts = False
    Sheet1.Range("A1").CurrentRegion.Copy Range("C1")
    Columns("C:C").TextToColumns Destination:=Range("C1"), Tab:=True, OtherChar:=":"
    Columns("D:D").ClearContents
    Application.DisplayAlerts = True
End Sub

 

[danhculao]

Thử với đoạn code sau:

Sub Tach_ChiNhanh()
    Application.DisplayAlerts = False
    Sheet1.Range("A1").CurrentRegion.Copy Range("C1")
    Columns("C:C").TextToColumns Destination:=Range("C1"), Tab:=True, OtherChar:=":"
    Columns("D:D").ClearContents
    Application.DisplayAlerts = True
End Sub

Nếu dùng công thức cho kết quả như trong file (đính kèm) của em được không ạ?

 

[be_09]

Nếu dùng công thức cho kết quả như trong file (đính kèm) của em được không ạ?

Cách đơn giản nhất là có 1 sheet danh mục với Tên chi nhánh và Tên chi nhánh (ngắn gọn) rồi dùng hàm tra sang hoặc có thể sử dụng VBA tra sang cho nhanh.