Chèn dòng giữa điểm khách nhau. (1 người xem)

[phuyen89]

Mình muốn chèn 01 dòng giữa các điểm khác nhau.Nhưng chưa biết code thế nào?
Mình hiểu là thế này:
Duyệt từ trên xuống dưới trong cùng 01 cột nếu giá trị 1<>2 thì chèn một dòng giữa 2 giá trị, nhưng mà Code chưa biết viết.Anh chị giúp dùm.

 

[ChanhTQ@]

Bạn thử với cái ni:

Option Explicit
Sub ChenDong()
 Dim Rng As Range, J As Long, Rws As Long
 Rws = [b65500].End(xlUp).Row
 For J = Rws To 3 Step -1
    With Cells(J, "B")
        If .Value <> .Offset(-1).Value Then
            .EntireRow.Insert
        End If
    End With
 Next J
End Sub

 

[nginh]

Mình muốn chèn 01 dòng giữa các điểm khác nhau.Nhưng chưa biết code thế nào?
Mình hiểu là thế này:
Duyệt từ trên xuống dưới trong cùng 01 cột nếu giá trị 1<>2 thì chèn một dòng giữa 2 giá trị, nhưng mà Code chưa biết viết.Anh chị giúp dùm.

Bạn chọn vùng dữ liệu B2:B22 rồi chạy code sau

Sub ChenDong()
Dim R As Range, i As Integer
Set R = Selection
i = 2
Do
If R(i) <> R(i - 1) Then
R(i).EntireRow.Insert
i = i + 2
Else: i = i + 1
End If
Loop Until i > R.Rows.Count
R(i).Select
End Sub

 

[JinRua]

Em muốn hỏi gần giống như phuyen89 ,gần khác là : theo một cột trong vùng dữ liệu nếu cells nào có kí tự thì tự động thêm một dòng bên dưới nó với điều kiện là dòng thêm đó được giữ nguyên các công thức, validation ... giống như dòng trên. Các anh chị giúp em với. Em cảm ơn !