Chọn và copy giá trị trong ô không có tô màu .

[vovanthanh2602]

Nhờ mọi người giúp.
Mong muốn. Khi bấm nút copy thì tự động copy giá trị trong những ô không có màu và dán vào vị trí khác. Như hình ạ. Em cảm ơn.

 

[BuiQuangThuan]

Nhờ mọi người giúp.
Mong muốn. Khi bấm nút copy thì tự động copy giá trị trong những ô không có màu và dán vào vị trí khác. Như hình ạ. Em cảm ơn.View attachment 280919

Muốn tự động mà lại đăng bài trong hàm và công thức. Thế rốt cuộc là thế nào?

 

[vovanthanh2602]

Muốn tự động mà lại đăng bài trong hàm và công thức. Thế rốt cuộc là thế nào?

Mình không biết đăng vào đâu .

 

[bebo021999]

Xài đỡ:
Click chuột phải vào nút, Assign Macro, chọn macro Copy

Option Explicit
Sub copy()
Dim lr&, i&, k&, arr(1 To 100000, 1 To 1)
lr = Cells(Rows.Count, "E").End(xlUp).Row
For i = 13 To lr
    With Cells(i, "E")
        If .Interior.Color = 16777215 Then
            k = k + 1
            arr(k, 1) = .Value
        End If
    End With
Next
Range("H13").Resize(k, 1).Value = arr
End Sub