David đang thêm tổng phụ (tab Dữ liệu của dải băng, trong nhóm Dàn bài) vào các trang tính lớn và tìm cách di chuyển các ô tổng phụ sang các ô khác nhau. Ví dụ: giả sử rằng khi Excel thêm các tổng phụ tự động, chúng được thêm vào cột S và công thức SUBTOTAL được Excel thêm vào tham chiếu đến các dải ô trong cột S. David muốn di chuyển các công thức SUBTOTAL (và chỉ những công thức đó) ra khỏi cột S đến cột T, và có các công thức vẫn tham khảo chi tiết trong cột S.

Một tùy chọn là xem qua và di chuyển từng công thức SUBTOTAL, đến các vị trí mong muốn. (Bạn sẽ sử dụng Ctrl + X và Ctrl + V để di chuyển các ô, thay vì Ctrl + C và Ctrl + V để chỉ tạo bản sao của các ô.) Nếu các trang tính lớn, với nhiều tổng phụ, việc này có thể trở nên rất tẻ nhạt. Mau.

Tedium trong Excel thường là động lực chính để tạo macro. Trường hợp này cũng không ngoại lệ. Có thể tạo một macro sẽ thực hiện việc di chuyển các công thức SUBTOTAL. Hãy xem xét ví dụ sau:

Sub MoveSubtotals()

Dim rCell As Range     Dim rng As Range     Dim iCol As Integer     Dim iOffset As Integer

iCol = 19  '19 is Column S     iOffset = 1 'Positives go right, negatives go left     Set rng = Intersect(Selection.CurrentRegion, Columns(iCol))

For Each rCell In rng         If InStr(rCell.Formula, "SUBTOTAL") Then             rCell.Offset(0, iOffset).Formula = _                 rCell.Formula             rCell.ClearContents         End If     Next End Sub

Ví dụ này hoạt động bằng cách kiểm tra từng ô được chọn trong cột S. Nếu công thức trong ô chứa từ SUBTOTAL, thì công thức được sao chép một cột sang bên phải, trong cột T và bị xóa khỏi ô trong cột S. Bạn có thể thay đổi khoảng cách sang trái hoặc phải mà tổng phụ được di chuyển bằng cách chỉ cần thay đổi giá trị được gán cho biến iOffset.

_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 (8643) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: