Cách Tách Họ Tên, Số điện Thoại, Địa Chỉ Từ Một ô Dữ Liệu Trong Excel

Trang chủ » Tách Sdt Trong Excel » Cách Tách Họ Tên, Số điện Thoại, Địa Chỉ Từ Một ô Dữ Liệu Trong Excel

Có thể bạn quan tâm

HomeExcel Cách tách Họ Tên, Số điện thoại, Địa chỉ từ một ô dữ liệu trong Excel 14/10/2021 0 Nếu sếp giao cho bạn một danh sách khách hàng như hình bên trái. Yêu cầu bạn tách Họ Tên, Số điện thoại, Địa chỉ ra thành một các cột riêng biệt như hình bên phải. Bạn phải làm như thế nào? Dùng biện pháp thủ công: cắt chuỗi ra rồi dán vào từng cột riêng biệt chăng? Nếu danh sách chỉ có vài chục dòng thì chắc bạn phải tốn vài giờ là hoàn thành công việc được giao. Nhưng nếu danh sách lên đến vài trăm dòng thì bạn phải tốn vài ngày, vài tháng,... Bạn có từng nghĩ chỉ cần một cú nhấp chuột, Excel sẽ tự động tách Họ Tên, Số điện thoại và Địa chỉ riêng ra cho bạn. Excel sẽ tự điền vào đúng vị trí các cột, và đặc biệt là thời gian chỉ mất có vài giây. Hiệu quả công việc của bạn được nâng lên đáng kể, và có thể sếp cũng có một suy nghĩ một vị trí mới cho bạn, ... Trong bài viết này, tôi sẽ hướng dẫn các bạn tách ra chỉ với vài dòng code trong VBA. Các bạn có thể tham khảo các bài viết sau để nắm các kiến thức nền về lập trình VBA trong Excel: Lập trình VBA trong Excel {tocify} $title={Table of Contents}

Chèn thêm các cột Họ Tên, Số điện thoại, Địa chỉ

Nếu các bạn có sẵn một danh sách mẫu thì hãy thực hiện ngay trên danh sách của bạn. Hoặc bạn có thể tải file mẫu của tôi, với đường dẫn bên dưới. Link tải file Excel mẫu Sau khi tải về, trước tiên chúng ta hãy chèn thêm 3 cột và đặt tên là Họ Tên, Số điện thoại, Địa chỉ. Đôi khi trong quá trình viết code có xảy ra lỗi làm mất dữ liệu. Để đảm bảo không bị mất dữ liệu thì trước tiên chúng ta lưu lại file với định dạng *.xlsm nhé. Cách lưu nếu chưa biết bạn có thể tham khảo bài viết:
  • Tính năng Record Macro và tạo Add-In trong Excel

Viết chương trình thực thi

Tạo một nút lệnh tên "Thực thi" trên Sheet chứa danh sách khách hàng. Nút lệnh này sẽ liên kết với function ThucThi_Click(). Khi chúng ta nhấp vào nút Thực thi thì các đoạn chương trình bên trong sẽ bắt đầu thực hiện. Cách thức thực hiện sẽ do chúng ta tạo. Các bạn dán đoạn code sau đây vào trong function ThucThi_Click(). Dim txtAdd As String Dim tmpString As Variant Dim LastRow As Integer LastRow = Sheets("SGP-1").Cells(Sheets("SGP-1").Rows.Count, "E").End(xlUp).Row For i = 2 To LastRow txtAdd = Sheets("SGP-1").Cells(i, 5).Value 'Dung ham Split de tach chuoi tmpString = Split(txtAdd, vbLf) '---------Gan gia tri vao cac cot--------------- '-------gan Ho Ten------------- Sheets("SGP-1").Cells(i, 2).Value = tmpString(0) 'Dinh dang o thanh kieu Text Sheets("SGP-1").Cells(i, 3).NumberFormat = "@" '-------gan So dien thoai------ Sheets("SGP-1").Cells(i, 3).Value = tmpString(1) '-------gan Dia chi--------- Sheets("SGP-1").Cells(i, 4).Value = tmpString(2) Next i Trong đó:
  • LastRow là biến kiểu Interger, để lưu trữ số dòng cuối cùng của danh sách.
  • Hàm Split để cắt chuỗi thành nhiểu mãnh tại các vị trí xuống dòng (vbLf)
Các bạn cũng có thể định dạng canh trái, canh giữa các cell. Định dạng Wraptext để chuỗi tự ngắt dòng trong cell với cú pháp như sau: Sheets("SGP-1").Cells(i, 4).WrapText = True Sheets("SGP-1").Cells(i, 4).HorizontalAlignment = xlLeft Lưu lại đoạn chương trình vừa thay đổi. Các bạn nhấp vào nút lệnh Thực thi để xem kết quả nhé. Tags: Excel Thủ Thuật Excel

Post a Comment

Previous Post Next Post

Follow Us

Latest Deals

Knowledge & Skills

  • Learn VBA for Beginners
  • Learn PHP for Beginners
Show More Discuss and share programming knowledge. Now, connect to Us!

Popular Posts

Cách tạo bảng DataTable trong PHP - dùng jQuery và Boostrap 4

27/08/2021

Cài đặt và sử dụng Google Chrome - Information Technology Tips

09/09/2021

Bài 7 - Thuộc tính CorlorIndex trong lập trình VBA Excel

18/06/2021

Tags

  • Blogger
  • IT
  • Website
  • Excel
  • Computer
  • HTML-CSS
  • Lập Trình VBA
  • jQuery-Ajax
  • News
  • Learn-VBA-for-Beginners
  • PHP-MySQL
  • Thủ Thuật Excel
  • Videos
  • Internet
  • Blogspot-Template
  • Email
  • Kiến Thức Excel
  • Covid-19
  • Google
  • Share
  • Facebook
  • Google-Sheet
  • JavaScript
  • Meta

Friend Link

  • Kiến Thức Thú Vị
  • VAY24GIO
  • Tech Zezo
  • Hoàng Hiệp Blog
  • DoiGuocMoc
  • NewTricks
  • Nguyen Ha Blog
  • Dinh Diep
  • Cosmo City Quận 7
  • Faye Dark
  • Đặt liên kết

Comments

Biểu mẫu liên hệ

Từ khóa » Tách Sdt Trong Excel