Pat tự hỏi làm thế nào để thay đổi kiểu dữ liệu cột mặc định từ “chung”

thành “văn bản” cho tất cả các cột của tệp văn bản được phân tách bằng dấu phẩy. Thay đổi định dạng của từng cột, đặc biệt là khi có nhiều cột, tốt nhất có thể rất tẻ nhạt.

Thật không may, không có cách nào để thay đổi mặc định. Tuy nhiên, việc thay đổi kiểu dữ liệu cột có thể được thực hiện dễ dàng hơn nhiều bằng cách áp dụng một chút tính năng “chọn và chọn” có sẵn trong hầu hết các chương trình Windows. Làm theo các bước sau:

  1. Bắt đầu nhập tệp văn bản được phân tách bằng dấu phẩy của bạn như bình thường.

  2. Khi hộp thoại được hiển thị cho phép bạn thay đổi kiểu dữ liệu cột, hãy chọn cột đầu tiên trong bảng.

  3. Cuộn sang phải trong hộp thoại để hiển thị cột cuối cùng trong bảng.

  4. Giữ phím Shift khi bạn nhấp vào cột cuối cùng. Bây giờ tất cả các cột sẽ được chọn.

  5. Thay đổi kiểu dữ liệu thành Văn bản.

  6. Tiếp tục nhập như bình thường.

Nếu bạn thích cách nhập thông tin nhanh hơn từ tệp văn bản được phân tách bằng dấu phẩy, bạn có thể làm như vậy bằng cách sử dụng macro, do đó bỏ qua hoàn toàn bộ lọc nhập Excel. Macro sau, có tên (đủ thích hợp) Nhập, sẽ thực hiện thủ thuật:

Sub Import()

Open "d:\data.txt" For Input As #1     R = 1     While Not EOF(1) 'Scan file line by line         C = 1         Entry = ""

Line Input #1, Buffer         Length = Len(Buffer)

i = 1         While i <= Length 'split string into cells             If (Mid(Buffer, i, 1)) = "," Then                 With Application.Cells(R, C)

.NumberFormat = "@" 'Text formatting                     .Value = Entry                 End With                 C = C + 1                 Entry = ""

Else                 Entry = Entry + Mid(Buffer, i, 1)

End If             i = i + 1         Wend         If Len(Entry) > 0 Then             With Application.Cells(R, C)

.NumberFormat = "@" 'Text formatting                 .Value = Entry             End With         End If         R = R + 1     Wend     Close #1 End Sub

Bạn cần lưu ý rằng bạn có thể thay đổi dòng đầu tiên của macro để thể hiện tên của tệp bạn đang nhập. Bạn cũng nên hiểu rằng macro này hoạt động trên các tệp văn bản được phân tách bằng dấu phẩy đơn giản nhất. Nếu tệp được tạo với các dấu ngoặc kép xung quanh mỗi trường (đôi khi là như vậy), thì macro sẽ không cho kết quả mong muốn và cần được thay đổi để bù cho các dấu ngoặc kép. Hoặc, để thay thế, bạn có thể chỉ cần sử dụng tìm kiếm và xóa dấu ngoặc kép sau khi macro được nhập thông tin.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2235) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: