Tách 3 Số Thành Một Cột | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Hàm và công thức Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Tách 3 số thành một cột (1 người xem)

• Thread starter Thread starter thuong_mdc80
• Ngày gửi Ngày gửi 26/6/07

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) T

thuong_mdc80

Thành viên mới

Tham gia 4/5/07 Bài viết 31 Được thích 1 Chào các A/ C. Cột A chứa dữ liệu là những chữ số. Tôi muốn tách 3 chữ số tính từ bên PHẢI thành 1 cột riêng ( giống như việc tách phần nghìn, triệu..) VD: Cột A CộtB CộtC Cột D 123456789 tách thành 123 456 789 98651423 98 651 423 987654321 987 654 321 .... Cảm ơn. T

ThuNghi

Hãy cho rồi sẽ nhận!

Thành viên đã mất Tham gia 16/8/06 Bài viết 3,808 Được thích 4,449 Format Cell - Custom ## ### ### ##0 Còn muốn tách ra từng cột thì dùng hàm right, left kết hợp len()

Mr Okebab

Ngon Ngất Ngây

Thành viên đã mất Tham gia 6/8/06 Bài viết 3,260 Được thích 3,790

thuong_mdc80 đã viết: Chào các A/ C. Cột A chứa dữ liệu là những chữ số. Tôi muốn tách 3 chữ số tính từ bên PHẢI thành 1 cột riêng ( giống như việc tách phần nghìn, triệu..) VD: Cột A CộtB CộtC Cột D 123456789 tách thành 123 456 789 98651423 98 651 423 987654321 987 654 321 .... Cảm ơn. Nhấp chuột vào đây để mở rộng...

1. Dùng hàm : Bạn xem File dưới đây 2. Dùng VBA : Để sau Thân!

File đính kèm

• Tach So.7z Tach So.7z 4 KB · Đọc: 97

XuanThanh

Thành viên thường trực

Tham gia 20/3/07 Bài viết 278 Được thích 373 Công thức ở cột D : =RIGHT(A1,3) Công thức ở cột C : =RIGHT(LEFT((A1-D1),LEN(A1)-LEN(D1)),3) Công thức ở cột B : =LEFT(A1,LEN(A1)-LEN(C1)-LEN(D1)) Thân

anhtuan1066

Thành viên gạo cội

Tham gia 10/3/07 Bài viết 5,802 Được thích 6,913 Cũng có thể dùng hàm MOD kết hợp với INT vẫn cho ra kết quả như ý mà lại dễ hiểu nữa. B1=INT(MOD(A1,1000000000)/1000000) C1=INT(MOD(A1,1000000)/1000) D1=MOD(A1,1000) vân vân... muốn tách đến bao nhiêu thì tự suy ra theo nguyên tắc trên ANH TUẤN D

digita

Guest

thuong_mdc80 đã viết: Chào các A/ C. Cột A chứa dữ liệu là những chữ số. Tôi muốn tách 3 chữ số tính từ bên PHẢI thành 1 cột riêng ( giống như việc tách phần nghìn, triệu..) VD: Cột A CộtB CộtC Cột D 123456789 tách thành 123 456 789 98651423 98 651 423 987654321 987 654 321 .... Cảm ơn. Nhấp chuột vào đây để mở rộng...

Và đây là cách tách số dùng VBA. Code này tách số (từ cột A) ra hàng triệu (cột B), hàng ngàn (cột C) & hàng trăm hay nhỏ hơn (cột D)

Sub TachSo() Range("B1") = "Hang Trieu" Range("C1") = "Hang Ngan" Range("D1") = "Hang Tram/Chuc" For i = 2 To Range("A65536").End(xlUp).Row Select Case Len(Cells(i, 1)) Case Is < 3 Trieu = "" Ngan = "" Tram = Cells(i, 1) Case 3 Trieu = "" Ngan = "" Tram = Left(Cells(i, 1), 1) Case 4 To 6 Trieu = "" Ngan = Left(Cells(i, 1), Len(Cells(i, 1)) - 3) Tram = Right(Cells(i, 1), 3) Case Is > 6 Trieu = Left(Cells(i, 1), Len(Cells(i, 1)) - 6) Ngan = Left(Right(Cells(i, 1), 6), 3) Tram = Right(Cells(i, 1), 3) End Select Cells(i, 2) = Trieu Cells(i, 3) = Ngan Cells(i, 4) = Tram Next i End Sub Nhấp chuột vào đây để mở rộng...

Vì không biết bảng số bạn bắt đầu ở dòng nào, tôi dùng hàng số 2 làm thí dụ. Bạn thay đối số dòng và cột trong câu nầy nếu cần.

For i = 2 To Range("A65536").End(xlUp).Row Nhấp chuột vào đây để mở rộng...

Mến Chỉnh sửa lần cuối bởi điều hành viên: 26/6/07 P

phamduylong

-

Thành viên đã mất Tham gia 30/12/06 Bài viết 918 Được thích 2,372 Nghề nghiệp Giáo viên Có hàm này ít ai dùng đến: 3 số đầu: MID(A1,1,3) 3 số giữa: MID(A1,4,3) 3 số cuối: MID(A1,7,3) Một lưu ý là số này phải là số 9 chữ số và số đầu tiên không phải là 0. Ví dụ số 000123456 (định dạng Format > Cells > Custom > Type=000000000 thì Excel hiểu là 123456, khi đó công thức cho 3 số đầu là 123, 3 số giữa là 456, không có 3 số cuối.

anhtuan1066

Thành viên gạo cội

Tham gia 10/3/07 Bài viết 5,802 Được thích 6,913 Cách của bạn Phamduylong ko ổn, vì người ta muốn tách ra từng nhóm 3 số tính từ bên phải qua (còn bạn thì lại tách thì trái qua). Muốn chắc chắn thì bạn vẩn phải dùng thêm hàm LEN thôi. Đả vậy do mình chưa biết chuổi cần tách ra có bao nhiêu chử số tổng cộng nên rất phiền phức khi phải tìm cách tránh lỗi #VALUE ANH TUẤN P

phamduylong

-

Thành viên đã mất Tham gia 30/12/06 Bài viết 918 Được thích 2,372 Nghề nghiệp Giáo viên Chỉnh lại theo ý bạn anhtuan1066 Kết hợp hàm LEN lấy từ phải qua trái, tahy lần lượt 2, 5, 8, 11, 14, ... nhóm 1: MID(A1,LEN(A1)-2,3) nhóm 2: MID(A1,LEN(A1)-5,3) nhóm 3: MID(A1,LEN(A1)-8,3) Tuy nhiên vẫn bị lỗi #VALUE nếu LEN(A1)-X<0

Mr Okebab

Ngon Ngất Ngây

Thành viên đã mất Tham gia 6/8/06 Bài viết 3,260 Được thích 3,790 Các bạn theo dõi hàm TachSo này nhé. Các bạn có thể tách từ ngàn tỷ, tỷ, triệu, ngàn và đơn vị. Hàm ngắn thôi mà : Mã: Sao chép. [COLOR=Blue]Option Explicit[/COLOR] [COLOR=Blue]Public Function[/COLOR] TachSo(So [COLOR=Blue]As Currency[/COLOR], i [COLOR=Blue]As Byte[/COLOR]) TachSo = Int([COLOR=Blue]CCur[/COLOR](Right(So, i * 3)) / WorksheetFunction.Power(10, ((i - 1) * 3))) [COLOR=Blue]End Function[/COLOR] Tham số i : 1. Đơn vị 2. Ngàn 3. Triệu 4. Tỷ 5. Ngàn tỷ 6. Triệu tỷ . . . . . Thân!

File đính kèm

• Tach So.xls Tach So.xls 24 KB · Đọc: 52

anhtuan1066

Thành viên gạo cội

Tham gia 10/3/07 Bài viết 5,802 Được thích 6,913 Sao lại phải rắc rối thế... Tôi bảo dám bảo đảm chỉ cần 1 hàm duy nhất là INT cũng đủ tính toán trong trường hợp này rồi và ko bao giờ xuất hiện lỗi, dù chuổi có dài bao nhiêu.

anhtuan1066

Thành viên gạo cội

Tham gia 10/3/07 Bài viết 5,802 Được thích 6,913 Giả sử bạn ấy nhập số cần tách vào cell A1, và bạn ấy có n cột chứa các số đã tách ra, với cột cuối cùng chứa 3 số cuối cùng, cột tiếp theo chứa 3 số tiếp theo... vân... vân... Ta tạm gọi cột cuối cùng là cột 1, cột kế cuối là cột 2, vân... vân... Vậy công thức tổng quát đễ tách 3 số vào cột thứ X là: =INT($A1/10^(3*(X-1)))-INT($A1/10^(3*X))*1000 Công thức này luôn luôn đúng cho dù chuổi số dài bao nhiêu, và cho dù cột thứ X ko lấy dc số nào thì nó cũng chỉ cho kết quả =0 chứ ko gây lỗi Tôi post file lên đễ có 1 VD minh họa cụ thể ANH TUẤN Lần chỉnh sửa cuối: 29/7/07 D

digita

Guest

Mr Okebab đã viết: Các bạn theo dõi hàm TachSo này nhé. Các bạn có thể tách từ ngàn tỷ, tỷ, triệu, ngàn và đơn vị. Hàm ngắn thôi mà : Mã: Sao chép. [COLOR=blue]Option Explicit[/COLOR] [COLOR=blue]Public Function[/COLOR] TachSo(So [COLOR=blue]As Currency[/COLOR], i [COLOR=blue]As Byte[/COLOR]) TachSo = Int([COLOR=blue]CCur[/COLOR](Right(So, i * 3)) / WorksheetFunction.Power(10, ((i - 1) * 3))) [COLOR=blue]End Function[/COLOR] Tham số i : 1. Đơn vị 2. Ngàn 3. Triệu 4. Tỷ 5. Ngàn tỷ 6. Triệu tỷ . . . . . Thân! Nhấp chuột vào đây để mở rộng...

Anh Okebab, Cái UDF này rất ngắn. Cám ơn anh. Chỉnh sửa lần cuối bởi điều hành viên: 27/6/07

chibi

Thành viên tích cực

Thành viên danh dự Tham gia 10/1/07 Bài viết 1,120 Được thích 623 Xin góp thêm 1 macro Mã: Sao chép. Sub tach_so() Dim i, so, so_cot, dong dong = 1 Do While Len(Cells(dong, 1).Value) > 0 so = Cells(dong, 1).Value so_cot = WorksheetFunction.RoundUp(Len(so) / 3, 0) For i = 1 To so_cot Cells(dong, so_cot + 2 - i).Value = Right(so, 3) so = Int(so / 1000) Next dong = dong + 1 Loop End Sub Mô tả: Tách các số tại cột A ra các cột B,C... (Có thể cải tạo dùng Worksheet_Change để khi nhập tại cột A thì tự động tách ra các cột B,C - Phần trên còn thiếu xoá dự liệu cũ tại các cột B, C..) Lần chỉnh sửa cuối: 27/6/07 T

thuong_mdc80

Thành viên mới

Tham gia 4/5/07 Bài viết 31 Được thích 1 Cảm ơn các Anh / Chị nhiều. Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Hôm nay lúc 10:55
• Hàm và công thức Excel

Trả lời 1 Đọc 54 Hôm nay lúc 18:32 Phuocam Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Hôm nay lúc 16:15 le_vis L Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• HeSanbi
• Hôm nay lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 0 Đọc 38 Hôm nay lúc 15:41 HeSanbi H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel (1 người xem)

• H_P
• Hôm nay lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 0 Đọc 28 Hôm nay lúc 14:23 H_P H D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 467 Hôm nay lúc 10:43 Cúc Hr C D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Hôm qua, lúc 15:39
• Lập Trình với Excel

Trả lời 3 Đọc 105 Hôm nay lúc 07:17 HUONGHCKT H CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ (1 người xem)

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 8 Đọc 2K Hôm nay lúc 00:09 PhanTuHuong D

• Question Question

IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN

• duongnhuxuyen
• 12/11/25
• Lập Trình với Excel

Trả lời 14 Đọc 427 Hôm qua, lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape (1 người xem)

• Vũ Hải Sơn
• 2/12/25
• Hàm và công thức Excel

Trả lời 34 Đọc 650 Hôm qua, lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel.

• Thúy Sa
• Thứ năm lúc 17:17
• Những vấn đề chung

Trả lời 1 Đọc 80 Thứ năm lúc 20:29 Maika8008 L

• Question Question

Tạo ComboBox để tìm kiếm tên

• lyvanthang
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 152 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif

• TVT230279
• 5/12/25
• Hàm và công thức Excel

Trả lời 5 Đọc 245 Thứ năm lúc 11:30 87kilua H Quên mật khẩu khóa protect (1 người xem)

• Hoale85
• 20/2/25
• Những vấn đề chung

Trả lời 22 Đọc 1K Thứ năm lúc 09:10 Gà Con yêu VBA

• Question Question

Hướng dẫn sửa lỗi không khởi động được ứng dụng Excel

• • 
  • 

• HeSanbi
• Thứ tư lúc 23:52
• Lập Trình với Excel

Trả lời 0 Đọc 94 Thứ tư lúc 23:52 HeSanbi K Lập trình để xoá giá trị trong file PDF (1 người xem)

• khoa289
• 28/11/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 14 Đọc 569 Thứ tư lúc 17:05 khoa289 K E

• Question Question

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• Thứ hai lúc 17:23
• Lập Trình với Excel

Trả lời 12 Đọc 330 Thứ tư lúc 15:26 87kilua TaxCode v4.21 - Add-in Tra cứu mã số thuế từ tổng cục thuế nhanh chóng

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 15 Đọc 1K Thứ tư lúc 12:44 HeSanbi Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• PhanTuHuong
• Thứ tư lúc 08:26
• Câu lạc bộ hoạt động xã hội

Trả lời 3 Đọc 222 Thứ tư lúc 12:12 PhanTuHuong V

• Question Question

dùng vba vẽ graph theo điều kiện (1 người xem)

• vic_it
• 3/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 480 Thứ tư lúc 11:49 Maika8008 GPE phát hành sách "Lập trình VBA trong Excel - Phần nâng cao" xuất bản 2019 (2 người xem)

• • 

• moneymong.pt
• 20/9/19
• Phát hành sách, tiện ích

2 Trả lời 160 Đọc 121K Thứ tư lúc 09:38 nguoitrongbao N Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 32
• thanthanhan 16
• ongke0711 16
• dungpham01 14
• nguyenanhtruong2409 14
• vic_it 11
• nhhnam 10
• eagle12 10
• Vũ Hải Sơn 9
• HUONGHCKT 9
• Phan Thế Hiệp 8
• pycckuu410 8
• bsbnhh 7
• HeSanbi 7
• Hana2610 6
• ketoan113 5
• Emyeuexcel 5
• Gà Con yêu VBA 5
• huuthang_bd 5
• Phuocam 5

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 53
• Maika8008 26
• ongke0711 17
• thanthanhan 13
• HeSanbi 9
• Cúc Hr 8
• eagle12 7
• HUONGHCKT 7
• dungpham01 6
• Mr.hieudoanxd 5
• befaint 5
• SA_DQ 4
• nguyenanhtruong2409 4
• pycckuu410 4
• Phuocam 4
• tieutuvodanh192 2
• Emyeuexcel 2
• nhhnam 2
• Dinh Hong Nhung 2
• huuthang_bd 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Hàm và công thức Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom