Giúp đỡ mình cách dãn dòng (3 người xem)

[keke355992]

Mình có dữ liệu như file, mình muốn cứ khi hàm đếm countif trả kết quả = 1, thì dữ liệu tại đấy được dãn thêm 1 dòng trống ra để phân biệt rõ các số thứ tự, trong file là số 25; 26; 27; 28. Có thể k làm bằng VBA đc k, mình mù tịt cái này

 

[nghiaphuc]

Mình có dữ liệu như file, mình muốn cứ khi hàm đếm countif trả kết quả = 1, thì dữ liệu tại đấy được dãn thêm 1 dòng trống ra để phân biệt rõ các số thứ tự, trong file là số 25; 26; 27; 28. Có thể k làm bằng VBA đc k, mình mù tịt cái này

Bạn dùng code sau nhé (nhấn Ctrl+Shift+C để chạy code):

Sub ChenDong()
    Dim So1 As Range, So1Dau As Integer
    On Error GoTo Thoat
    So1Dau = [B:B].Find("1", [B1], xlValues, xlWhole).Row
    Set So1 = [B1]
    Do
        Set So1 = [B:B].Find("1", So1.Offset(1), xlValues, xlWhole, xlByRows, xlNext)
        If So1.Offset(-1) <> "" Then So1.EntireRow.Insert xlDown
    Loop Until So1.Row = So1Dau
Thoat:
End Sub

 

[keke355992]

Bạn dùng code sau nhé (nhấn Ctrl+Shift+C để chạy code):

Sub ChenDong()
Dim So1 As Range, So1Dau As Integer
On Error GoTo Thoat
So1Dau = [B:B].Find("1", [B1], xlValues, xlWhole).Row
Set So1 = [B1]
Do
Set So1 = [B:B].Find("1", So1.Offset(1), xlValues, xlWhole, xlByRows, xlNext)
If So1.Offset(-1) <> "" Then So1.EntireRow.Insert xlDown
Loop Until So1.Row = So1Dau
Thoat:
End Sub

bác hướng dẫn mình cách để đặt ra lệnh CTRL + SHIRT + C như bác trong VBA đc k,Có thể thay bằng các lệnh k trùng trong EXEL là đc nhỉ, Mong bác giúp đỡ . Thanks ^^

 

[ndu96081631]

Mình có dữ liệu như file, mình muốn cứ khi hàm đếm countif trả kết quả = 1, thì dữ liệu tại đấy được dãn thêm 1 dòng trống ra để phân biệt rõ các số thứ tự, trong file là số 25; 26; 27; 28. Có thể k làm bằng VBA đc k, mình mù tịt cái này

Tôi có cách "củ chuối" này:
- Đầu tiên cứ gõ công thức bình thường tại cột B
- Xong, gõ gì đó vào B1 và C1 để làm tiêu đề





- Chọn toàn bộ dữ liệu, vào menu Data, chọn Subtotals và làm như hình



- Chọn cột C rồi bấm Ctrl + C, xong, click phải chuột, chọn Paste Special\Values
- Vào menu Data\Subtotals và bấm nút Remove All
- Chọn toàn bộ dữ liệu (cột B và C), vào menu Data\Filter\AutoFilter
- Bấm mũi tên xổ xuống của AutoFilter tại cột B, chọn Custom và làm như hình



- Sau khi bấm OK, ta bấm luôn phím Delete trên bàn phím
- Làm xong ta được thế này:

 

[nghiaphuc]

bác hướng dẫn mình cách để đặt ra lệnh CTRL + SHIRT + C như bác trong VBA đc k,Có thể thay bằng các lệnh k trùng trong EXEL là đc nhỉ, Mong bác giúp đỡ . Thanks ^^

Để đặt phím tắt cho một Macro nào đó, trong cửa sổ Excel, bạn nhấn Alt+F8, chọn Macro và nhấn nút Option. Vào đó, bạn sẽ biết phải làm gì tiếp theo.
Bạn nhận định chính xác, khi đặt phím tắt cho Macro, tốt nhất là hãy tránh những tổ hợp phím tắt có sẵn của Excel.