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

• Question Question

Co, Dãn dòng vừa trang in (1 người xem)

• vova2209
• Thứ sáu lúc 00:42
• Lập Trình với Excel

Trả lời 20 Đọc 374 Hôm nay lúc 18:19 Maika8008 N Lập file Nhập - Xuất - Tồn cho kho có 300 mã nguyên vật liệu (2 người xem)

• nguyenlamthumua
• Hôm nay lúc 18:12
• Những vấn đề chung

Trả lời 0 Đọc 14 Hôm nay lúc 18:12 nguyenlamthumua N G Vẽ mặt cắt dầm từ excel

• • 
  • 
  • 

• gpe.vn
• 17/6/24
• Xây dựng ứng dụng.

Trả lời 21 Đọc 2K Hôm nay lúc 17:03 gpe.vn G E Xin giúp tách lấy tên Tỉnh thành, Quận huyện, Phường xã từ địa chỉ có sẵn

• estudyvn
• 22/4/19
• Học tập Online

Trả lời 9 Đọc 2K Hôm nay lúc 15:33 HUONGHCKT H Xây dựng RPC Server cho Excel / Access bằng Delphi – Tận dụng lại DLL và bảo mật mã nguồn

• • 

• phuongnam366377
• 28/2/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 10 Đọc 348 Hôm nay lúc 14:56 A-T A V các bác ơi giúp e hàm countif với ạ (4 người xem)

• • 

• vunl
• Thứ ba lúc 16:46
• Hàm và công thức Excel

Trả lời 3 Đọc 101 Hôm nay lúc 13:57 vunl V H Làm phiếu lương nhân viên công ty

• • 

• hieuchi89
• Hôm qua, lúc 09:23
• Hàm và công thức Excel

Trả lời 3 Đọc 155 Hôm nay lúc 13:36 trhieu T N Lập báo cáo thống kê sản lượng theo ngày của từng nhân viên

• Nhyyyyyyyyy
• Hôm nay lúc 10:22
• Những vấn đề chung

Trả lời 4 Đọc 76 Hôm nay lúc 13:12 levant0908 L T Xin đoạn code để gửi mail hàng loạt có đính kèm file PDF

• tuquyen1711
• 1/3/26
• Macro4.0 và Dialog Sheet 5.0

Trả lời 3 Đọc 221 Hôm nay lúc 11:31 levant0908 L H Xin A/C Giúp Tách địa chỉ ra Tỉnh , Huyện, Xã, Ấp

• hoanghanh80
• 31/5/24
• Hàm và công thức Excel

Trả lời 11 Đọc 2K Hôm nay lúc 11:18 dong.nguyen.hdkt D File kiểm đếm phiếu bầu cử 2026-2031 dễ hiểu có kết quả và biên bản (3 người xem)

• • 

• katanvn
• 4/3/26
• Excel Ứng Dụng

Trả lời 7 Đọc 5K Hôm nay lúc 11:02 katanvn [GPE22] BƯỚC NÂNG CẤP QUAN TRỌNG NHỮNG POWER QUERY ĐƠN GIẢN (1 người xem)

• • 

• GPE-Trợ Lý
• Hôm nay lúc 09:59
• Học tập Online

Trả lời 0 Đọc 390 Hôm nay lúc 09:59 GPE-Trợ Lý Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 93 Đọc 3K Hôm nay lúc 04:08 SA_DQ

• Question Question

Vì sao KHÔNG nên sử dụng Excel (VBA) làm máy chủ (1 người xem)

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

Trả lời 4 Đọc 206 Hôm qua, lúc 11:09 phuongnam366377

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 68 Đọc 13K Hôm qua, lúc 11:02 Nguyễn Duy Tuân File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp (3 người xem)

• • 

• adua29
• 9/4/21
• Excel Ứng Dụng

Trả lời 27 Đọc 7K Hôm qua, lúc 10:54 cameravp2022 C V Biểu diễn số đếm theo hình vẽ từ Shape

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

Trả lời 38 Đọc 1K Thứ ba lúc 20:10 HUONGHCKT H V Một Excel add-in vibe coding

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 26 Đọc 1K Thứ ba lúc 15:57 vietdang170 V

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 641 Đọc 96K Thứ ba lúc 09:28 pycckuu410 Gửi tặng file excel kiểm phiếu bầu cử Đại biểu Quốc hội và Hội đồng nhân dân các cấp (1 người xem)

• • 
  • 

• adua29
• 19/5/11
• Ứng dụng cho lĩnh vực khác

Trả lời 26 Đọc 30K Thứ hai lúc 20:40 adua29 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

• vova2209 11
• Maika8008 11
• phuongnam366377 8
• HeSanbi 6
• HUONGHCKT 6
• adua29 5
• SA_DQ 5
• katanvn 5
• levant0908 4
• PhanTuHuong 3
• chienminhanh 3
• MinhKhai 3
• ongke0711 3
• A-T 3
• gpe.vn 3
• Gà Công Nghệ 2
• doredore1988 2
• ptm0412 2
• Vũ Hải Sơn 2
• GPE-Trợ Lý 2

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

• Maika8008 16
• HUONGHCKT 10
• SA_DQ 7
• katanvn 7
• GPE-Trợ Lý 6
• ptm0412 3
• phuongnam366377 3
• yeudoi 2
• vietdang170 2
• adua29 2
• vunl 2
• kHOA1973 1
• vinhlouis87 1
• ThuyMay93 1
• mafiana 1
• doredore1988 1
• huhumalu 1
• trhieu 1

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