Sau khi bạn thao tác trang tính với VBA, có thể cần phải Tự động điều chỉnh các cột của bạn để trình bày kết quả cuối cùng đẹp nhất có thể. Dưới đây là cách tự động điều chỉnh các cột bằng VBA.
Cột tự động điều chỉnh bằng VBA
Mã này tự động điều chỉnh các cột A và B. Tính năng tự động phân tích được áp dụng cho trang tính đang hoạt động.
| 1 | Columns ("A: B"). EntireColumn.Autofit |
Tự động bổ sung tất cả các cột đã sử dụng
Điều gì sẽ xảy ra nếu bạn muốn Tự động điều chỉnh tất cả các cột được sử dụng trong một trang tính? Sử dụng phương pháp trên kết hợp với Đếm số cột đã sử dụng và một vòng lặp.
Đoạn mã sau tự động phân tích tất cả các cột đã sử dụng bằng VBA:
| 1234567891011 | Sub AutofitAllUsed ()Dim x As IntegerĐối với x = 1 Tới ActiveSheet.UsedRange.Columns.CountColumns (x) .EntireColumn.autofitTiếp theo xKết thúc Sub |
