danhdanh81
Thành viên mới
- Tham gia
- 18/4/08
- Bài viết
- 29
- Được thích
- 4
Bạn ơi... TRỜIgiúp em vd sau?.
em có code xóa rồi nhưng chạy chậm vì em dùng 2 vòng lặp for nhưng các bác có bac nào có code hay cho em xin với em xin cảm ơn
sub xoa()
For i = 3 To 17
For j = 5 To 20 Step 5
If Cells(j, i) = Cells(j - 2, i) Then
Cells(j, i) = ""
Cells(j - 1, i) = ""
Cells(j + 2, i) = ""
Range(Cells(j - 2, i), Cells(j, i)).Select
Selection.Merge
Range(Cells(j + 2, i), Cells(j + 1, i)).Select
Selection.Merge
Else
Cells(j - 1, i) = ""
Cells(j + 2, i) = ""
Cells(j + 1, i) = ""
Range(Cells(j - 2, i), Cells(j - 1, i)).Select
Selection.Merge
Range(Cells(j + 2, i), Cells(j, i)).Select
Selection.Merge
End If
Next
Next
End Sub