Đôi khi bạn có thể nhận được trang tính từ người khác và bạn cần một số chỗ để làm việc với thông tin được cung cấp. Ví dụ: bạn có thể thấy hữu ích khi thêm một số hàng trống giữa mỗi hàng ban đầu trong bảng dữ liệu. Mặc dù điều này có thể được thực hiện khá dễ dàng bằng cách sử dụng menu Chèn, nhưng nó có thể nhanh chóng trở nên tẻ nhạt — đặc biệt nếu bạn có một bảng lớn mà bạn muốn trải ra.

Macro sau đây sẽ giúp bạn rất nhiều trong tình huống này. Tất cả những gì bạn cần làm là chọn hàng đầu tiên trong bảng dữ liệu. Khi bạn chạy macro, nó sẽ hỏi bạn có bao nhiêu hàng trống bạn muốn chèn vào giữa các hàng ban đầu. Khi bạn cung cấp một số, macro sẽ bước qua bảng và bắt đầu chèn các hàng trống. Macro dừng khi ô trống đầu tiên sau khi bảng gốc được phát hiện.

Sub SpreadOut()

Dim iBlanks As Integer     Dim J As Integer

iBlanks = InputBox("How many blank rows?", "Insert Rows")

ActiveCell.Offset(1, 0).Select     While ActiveCell.Value > "" And iBlanks > 0         For J = 1 To iBlanks             Selection.EntireRow.Insert         Next J         ActiveCell.Offset(iBlanks + 1, 0).Select     Wend End Sub

_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 (2344) á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: