Thủ thuật nhỏ mỗi ngày.

[OverAC]

Từ ngày bắt đầu làm việc tới nay tôi nhận được nhiều thủ thuật Excel, có cái tôi chẳng bao giờ dùng tới, nhưng vẫn thấy hay, biết đâu nó lại có ích cho người khác. Ngoài ra tôi cũng nhận được một số thủ thuật từ một trang web khác. Nay tôi xin gởi lên đây những thủ thuật mà tôi nhận được.

Tất nhiên cách làm với thủ thuật này có thể không phải là cách làm tốt nhất nhưng biết đâu được chúng ta lại tìm thấy mộo cách làm thích hợp cho trường hợp của mình và để chúng ta cùng nhau bàn luận về nó.

Thủ Thuật số 1: Xóa dòng trống
Cách 1:
1. Chọn toàn bộ vùng dữ liệu
2. Sort theo những tiêu chi mà bạn cho là nếu ô ở cột này mà trống thì tất cả những ô còn lại trên cùng một dòng cũng trống.
Kết quả: Sau khi sort lại thì tất cả nhũng ô trống sẽ bị đưa xuống dưới và như vậy coi như xong.

Cách 2:
1. Chọn toàn bộ vùng dữ liệu
2. Khởi động chế độ autofilter: chọn menu Data --> Filter --> Autofilter
3. Trong Combobox sổ xuống trên các dòng tiêu đề chọn trong danh sách sổ xuống chữ "Blank"
4. Xóa tất cả những dòng trống sau khi filter này.
Kết quả: tất cả những ô trống đã bị xóa.

Cách 3:
..
Còn tiếp, đang cập nhật

 

[nvson]

In toàn bộ file chỉ bằng một cái click chuột

Sau khi tất cả các sheet trong file đã được định dạng, căn lề, chọn vùng in (vì có những sheet bạn không muốn in cả, chỉ in một vùng nào đó thôi) xong.... Đã đến lúc phải in ra để lập báo cáo.
Bạn hãy chọn những sheet muốn in bằng cách nhấn Ctrl+click chuột vào những sheet đó.
Sau đó nhấn Print để hoàn tất công việc.

 

[nvson]

Xóa các dòng trùng nhau

Trong MS Excel để loại bỏ các dòng trùng nhau ta dùng chức năng Advanced Filter.
Và nếu bạn yêu thích VBA thì có thể sử dụng đoạn code sau:

Public Sub DeleteDuplicateRows()
'Macro nay se xoa het cac dong trung nhau (chi de lai mot dong)
Dim Col As Integer
Dim r As Long
Dim C As Range
Dim n As Long
Dim V As Variant
Dim Rng As Range
On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Col = ActiveCell.Column
If Selection.Rows.Count > 1 Then
    Set Rng = Selection
Else
    Set Rng = ActiveSheet.UsedRange.Rows
End If
n = 0
For r = Rng.Rows.Count To 1 Step -1
    V = Rng.Cells(r, 1).Value
    If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
        Rng.Rows(r).EntireRow.Delete
        n = n + 1
    End If
Next r
EndMacro:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

(st)