Xoá dữ liệu những dòng cách đều nhau

[sep_hatxel]

Mong GPE giúp hộ mình trường hợp xoá dữ liệu những dòng cách đều nhau.
Ví dụ: bắt đầu xoá dữ liệu từ dòng 3, sau đó cách 14 dòng lại xoá dữ liệu ở dòng 17, cách 14 dòng tiếp theo xoá dữ liệu ở dòng 31, .v.v.v cứ cách 14 dòng lại xoá dữ liệu.
- Chỉ xoá dữ liệu ở trong dòng chứ không xoá cả dòng! Xin cảm ơn ạ!

 

[giangleloi]

Mong GPE giúp hộ mình trường hợp xoá dữ liệu những dòng cách đều nhau.
Ví dụ: bắt đầu xoá dữ liệu từ dòng 3, sau đó cách 14 dòng lại xoá dữ liệu ở dòng 17, cách 14 dòng tiếp theo xoá dữ liệu ở dòng 31, .v.v.v cứ cách 14 dòng lại xoá dữ liệu.
- Chỉ xoá dữ liệu ở trong dòng chứ không xoá cả dòng! Xin cảm ơn ạ!

Dùng VBA, vòng lặp với step 14 để xóa. Không có file thì chỉ biết chỉ đến đó thôi.

 

[sep_hatxel]

Dùng VBA, vòng lặp với step 14 để xóa. Không có file thì chỉ biết chỉ đến đó thôi.

- Vâng, mình xin gửi file minh hoạ ạ!

 

[giangleloi]

- Vâng, mình xin gửi file minh hoạ ạ!

Chắc bạn biết VBA? Paste code sau vô module rồi chạy nhé:

Sub GLL()
Dim I
With Sheet1
  For I = 3 To .Range("A" & Rows.Count).End(3).Row Step 14
   .Range("A" & I & ":F" & I).ClearContents
  Next
End With
End Sub

 

[sep_hatxel]

Vâng, cảm ơn các bạn rất nhiều!

 

[Lê Duy Thương]

ngồi rãnh bon chen thêm tý

Sub LDT()
    Dim Rng As Range, i As Long
    Set Rng = Range("I3")
    For i = 3 To [I6550].Row Step 14
         Set Rng = Union(Rng, Range(Cells(i, 9), Cells(i, 14)))
    Next
    Rng.ClearContents
    
End Sub

 

[VetMini]

Thủ công:

- ở cột tạm nào đó, gõ công thức =MOD(ROW()+11,14). 11 tức là 14-3. Fill đến dòng cuối cùng.
- vào filter, filter cột này lấy những ô 0
- chọn những dòng đã filtered. Select visible
- delete (delete dữ liệu, không phải delete dòng)
- bỏ filter
- delete cột phụ
- hết