Hi các bác,
Em có code insert dòng sau đây, dữ liệu ít thì ok, nhưng số dòng insert tăng lên vài trăm là chậm rõ rệt. Các bác có giải pháp nào giúp em không ạ. Em cám ơn!
Em có code insert dòng sau đây, dữ liệu ít thì ok, nhưng số dòng insert tăng lên vài trăm là chậm rõ rệt. Các bác có giải pháp nào giúp em không ạ. Em cám ơn!
Mã:
Sub themdong()
Dim i As Long, lr As Long
lr = Sheet1.Cells(Rows.Count, "C").End(3).Row
For i = 2 To lr
If Range("C" & i).Value <> Range("C" & i - 1) Then
Range("C" & i).EntireRow.Insert
i = i + 1
Range("C" & i - 1).Value = Range("C" & i)
Range("D" & i - 1).Value = Range("D" & i)
End If
Next i
End Sub