Dạ dữ liệu của em là file tính toán và có nhập liệu nữa nên cần tô màu theo dòng có cùng ID để dễ nhận biết trong cùng nhóm đó anh.
Màu mè vào rồi file của anh chị cũng thành 1 đống rác thôi. Chưa nói tới nó sẽ làm tăng dung lượng file lên nữa. và cùng mã thì cùng màu. nếu 500k dòng có 300k mã khác nhau thì cũng nhọc đấy
Cảm ơn bạn nhé, mình đang tìm code còn làm cột phụ và conditional formatting thì mình cũng đang thực hiện rồi.
ah, tô màu xen kẽ các dòng đó anh
Làm cái này mới nghiệm ra lão Union này có nhiều điều khó hiểu.
Option Explicit
Sub TestUnion()
Dim I As Long, mColor As Boolean, Rng As Range, Lr As Long, t As Double
Application.ScreenUpdating = False
t = Timer()
With Sheets("Sheet1")
Lr = .Cells(Rows.Count, "D").End(xlUp).Row
For I = 5 To Lr
If .Cells(I, "D").Value <> .Cells(I - 1, "D").Value Then mColor = Not mColor
If mColor Then
If Rng Is Nothing Then
Set Rng = Range("A" & I & ":U" & I)
Else
Set Rng = Union(Rng, Range("A" & I & ":U" & I))
If Intersect(Rng, Columns("A")).Cells.Count = 2 Then
Rng.Interior.Color = vbYellow
Set Rng = Nothing
End If
End If
End If
Next
End With
On Error Resume Next
Rng.Interior.Color = vbYellow
Set Rng = Nothing
Application.ScreenUpdating = True
MsgBox "Thoi gian: " & Format(Timer - t, "0.0")
End SubOption Explicit
Sub tomauxenke()
Dim lr&, i&, c&, rng, u As Range, arr(1 To 1000000, 1 To 1)
lr = Cells(Rows.Count, "D").End(xlUp).Row
rng = Range("D4:D" & lr).Value
For i = 2 To UBound(rng)
If rng(i, 1) <> rng(i - 1, 1) Then c = c + 1
If WorksheetFunction.IsOdd(c) Then
arr(i - 1, 1) = 1
End If
Next
Range("bz5").Resize(UBound(rng) - 1, 2).Value = arr
With Range("A4:bz" & lr)
.AutoFilter Field:=Range("bz1").Column, Criteria1:=1
Range("A5:U" & lr).Interior.Color = 10086143
.AutoFilter
End With
Range("bz4:bz" & lr).ClearContents
End SubVậy thì chạy một lần thôi người ơi =))Gồi xong.
Sau cơ số lần chạy code thì cả bảng là một màu đẹp tuyệt vời.
Cái này thì em biết, cơ mà tới đây nó cũng chỉ có mỗi lỗi này nữa thôi nên cho chạy tuốt luôn anh
Cái này thì em biết, cơ mà tới đây nó cũng chỉ có mỗi lỗi này nữa thôi nên cho chạy tuốt luôn anh
Cái em thấy hay trong bài này là giữa các dòng union thì 100 dòng lại không nhanh hơn 2 dòng (có thể em chưa test được nhiều kiểu dữ liệu, nhưng test dòng chẵn lẻ cho 500.000 dòng thì nó vậy). Mà 2 dòng với 1 dòng thì một trời một vực. Để 1 là đơ file luôn. Chỗ này không hiểu được
Union một range mà dữ liệu lớn là cực chậm anh ạ. Nó tầm khoảng <500 dòng trong một range union. Còn lớn hơn là bắt đầu chậm rì rồi. Nên em mới phải tách ra nhiều lần đấy, mỗi lần xong lại set về nothing. Nhưng cái lạ là em cứ nghĩ cứ cho union nhiều dòng xíu rồi tô màu thì nhanh hơn mà test thì thấy 500 dòng chậm hơn 100, 100 chậm hơn 10 haha. Lão hóa luôn cái não
Vậy bạn có bao nhiêu mã trong 500K dòng vậy?
à chỉ tô xen kẽ 2 màu thôi anh, mã trùng nhau thì cùng 1 màu.
