Xin giúp ẩn dữ liệu trùng chỉ hiện 1 giá trị đầu (1 người xem)

[onecry]

Chào các Thầy,
Hiện tại em có 1 vấn đề nhỏ trong công việc nhưng chưa có giải pháp,
em có 1 file làm công nợ, ở cột A là số hóa đơn, ô A2 = A3 = A4 giống nhau, em muốn chỉ hiện giá trị số hóa đơn A2, ô A3, A4 sẽ ẩn đi, mong được giúp đỡ, em cảm ơn.

trong file dòng màu đỏ là dòng em muốn ẩn đi.

 

[phulien1902]

Chào các Thầy,
Hiện tại em có 1 vấn đề nhỏ trong công việc nhưng chưa có giải pháp,
em có 1 file làm công nợ, ở cột A là số hóa đơn, ô A2 = A3 = A4 giống nhau, em muốn chỉ hiện giá trị số hóa đơn A2, ô A3, A4 sẽ ẩn đi, mong được giúp đỡ, em cảm ơn.

trong file dòng màu đỏ là dòng em muốn ẩn đi.

Bạn thử:

Sub abc()
    Dim i As Long
    For i = 2 To Range("A" & Rows.Count).End(3).Row
        If Cells(i + 1, "A").Value = Cells(i, "A").Value Then
            Cells(i + 1, "A").Resize(, 2).Font.ColorIndex = 2
            Cells(i + 1, "A").Resize(, 2).Interior.ColorIndex = -4142
        End If
    Next i
End Sub

 

[Ba Tê]

Chào các Thầy,
Hiện tại em có 1 vấn đề nhỏ trong công việc nhưng chưa có giải pháp,
em có 1 file làm công nợ, ở cột A là số hóa đơn, ô A2 = A3 = A4 giống nhau, em muốn chỉ hiện giá trị số hóa đơn A2, ô A3, A4 sẽ ẩn đi, mong được giúp đỡ, em cảm ơn.

trong file dòng màu đỏ là dòng em muốn ẩn đi.

Muốn ẩn là sao? Nền màu trắng và font màu trắng nhưng không nhìn thấy dữ liệu gọi là ẩn? Hay xóa dữ liệu các ô đó luôn?
Code này nếu giống dòng trên thì xóa luôn:

Public Sub GPE()
Dim R As Long, I As Long
R = Range("C60000").End(xlUp).Row
For I = R To 3 Step -1
    If Range("A" & I) = Range("A" & I - 1) And Range("B" & I) = Range("B" & I - 1) Then
        Range("A" & I).Resize(, 2).ClearContents
    End If
Next I
End Sub

 

[onecry]

Muốn ẩn là sao? Nền màu trắng và font màu trắng nhưng không nhìn thấy dữ liệu gọi là ẩn? Hay xóa dữ liệu các ô đó luôn?
Code này nếu giống dòng trên thì xóa luôn:

Public Sub GPE()
Dim R As Long, I As Long
R = Range("C60000").End(xlUp).Row
For I = R To 3 Step -1
    If Range("A" & I) = Range("A" & I - 1) And Range("B" & I) = Range("B" & I - 1) Then
        Range("A" & I).Resize(, 2).ClearContents
    End If
Next I
End Sub

dạ e cần nền trắng chữ trắng thôi, mà em gặp 1 vấn đề nữa là dữ liệu em không liên tục, có những dòng trống, em muốn code bỏ qua nhưng dòng trống không định dạng những dòng này thì làm sao ạ

 

[onecry]

Bạn thử:

Sub abc()
    Dim i As Long
    For i = 2 To Range("A" & Rows.Count).End(3).Row
        If Cells(i + 1, "A").Value = Cells(i, "A").Value Then
            Cells(i + 1, "A").Resize(, 2).Font.ColorIndex = 2
            Cells(i + 1, "A").Resize(, 2).Interior.ColorIndex = -4142
        End If
    Next i
End Sub

cảm ơn Thầy, em chạy code này trên file test thì ổn, nhưng file thực tế em làm thì gặp 1 vấn đề nữa là dữ liệu em không liên tục, có những dòng trống, em muốn code bỏ qua nhưng dòng trống không định dạng những dòng này thì làm sao ạ

 

[be_09]

cảm ơn Thầy, em chạy code này trên file test thì ổn, nhưng file thực tế em làm thì gặp 1 vấn đề nữa là dữ liệu em không liên tục, có những dòng trống, em muốn code bỏ qua nhưng dòng trống không định dạng những dòng này thì làm sao ạ

Thì xóa dòng trống đi là xong chuyện, chứ suy nghĩ vòng vo chi cho mệt mình và mệt cả người giúp.

 

[Ba Tê]

dạ e cần nền trắng chữ trắng thôi, mà em gặp 1 vấn đề nữa là dữ liệu em không liên tục, có những dòng trống, em muốn code bỏ qua nhưng dòng trống không định dạng những dòng này thì làm sao ạ

Từ đầu sao không nói trước các tình huống?
Thấy file mới làm được.

 

[phulien1902]

cảm ơn Thầy, em chạy code này trên file test thì ổn, nhưng file thực tế em làm thì gặp 1 vấn đề nữa là dữ liệu em không liên tục, có những dòng trống, em muốn code bỏ qua nhưng dòng trống không định dạng những dòng này thì làm sao ạ

Vậy thì bạn gửi File Demo lên đây và nói rõ yêu cầu của bạn.

 

[onecry]

Dạ thành thật xin lỗi các Thầy, thứ nhất dòng trống không xóa được vì nó lấy dữ liệu từ file nhập liệu, thứ 2 em đưa lên nguyên file sợ các thầy rối, thứ 3 do em nghĩ đơn giản nhưng đưa code zô nó muk lòi ra lỗi, giờ em đưa file góc lên mong được mọi người giúp đỡ, trong sheet form thầy chọn H10 click chọn mã khách hàng nó sẽ lọc ra hóa đơn cho khách hàng đó và những số hóa đơn em muốn ẩn, khi chọn tới khách hàng khác nó bị lỗi. em cảm ơn

 

[Ba Tê]

Dạ thành thật xin lỗi các Thầy, thứ nhất dòng trống không xóa được vì nó lấy dữ liệu từ file nhập liệu, thứ 2 em đưa lên nguyên file sợ các thầy rối, thứ 3 do em nghĩ đơn giản nhưng đưa code zô nó muk lòi ra lỗi, giờ em đưa file góc lên mong được mọi người giúp đỡ, trong sheet form thầy chọn H10 click chọn mã khách hàng nó sẽ lọc ra hóa đơn cho khách hàng đó và những số hóa đơn em muốn ẩn, khi chọn tới khách hàng khác nó bị lỗi. em cảm ơn

Dữ liệu trong file không phải là dòng trống, mà là kết quả công thức trả về là "".
Cả ngàn dòng công thức ghê quá.
Xem thử sheet GPE trong file này, chỉ dùng VBA không có công thức nào, bạn xem được không.

 

[onecry]

Dữ liệu trong file không phải là dòng trống, mà là kết quả công thức trả về là "".
Cả ngàn dòng công thức ghê quá.
Xem thử sheet GPE trong file này, chỉ dùng VBA không có công thức nào, bạn xem được không.

đúng ý em rồi thầy, em xin chân thành cảm ơn thầy, thầy thật vi diệu, cả đống cống thức thay bằng 1 đoạn code hay thật, do vba e mù tịt nên trước h file em làm toàn công thức, em đang mò đoạn code của thầy vs kiến thức của em thì em bị rối não hihi, em cảm ơn tất cả mọi người đã giúp đỡ