Điền đủ chủng loại và xóa dòng dữ liệu trống

[hoahuongduong1986]

Kính thưa anh chị và các bạn
Em có dạng dữ liệu tại sheet Data vùng bôi vàng.
- Tại cột B em muốn điền tự động loại hoa xuống vùng trống bên dưới mỗi loại (Làm hàm thì em làm như ở cột A)
- Sau đó, tìm tại cột D (Số lượng/thông tin) ô nào trống thì nó xóa toàn bộ dòng đó đi. Ví dụ ở đây D6, D7, D13 trống thì sẽ xóa các dòng 6,7,13 này đi.

Với hai yêu cầu này thì Code sẽ thực hiện ra sao a.

 

[Nhattanktnn]

Kính thưa anh chị và các bạn
Em có dạng dữ liệu tại sheet Data vùng bôi vàng.
- Tại cột B em muốn điền tự động loại hoa xuống vùng trống bên dưới mỗi loại (Làm hàm thì em làm như ở cột A)
- Sau đó, tìm tại cột D (Số lượng/thông tin) ô nào trống thì nó xóa toàn bộ dòng đó đi. Ví dụ ở đây D6, D7, D13 trống thì sẽ xóa các dòng 6,7,13 này đi.

Với hai yêu cầu này thì Code sẽ thực hiện ra sao a.

Thử code này xem sao bạn

Option Explicit
Sub NTKTNN()
Dim Lr As Long, Cll As Range, Txt As String
Lr = Cells(Rows.Count, "C").End(xlUp).Row
Range("D3:D" & Lr).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Lr = Cells(Rows.Count, "C").End(xlUp).Row
For Each Cll In Range("A3:A" & Lr)
    If Cll.Offset(, 1) <> "" Then Txt = Cll.Offset(, 1).Value
    Cll.Value = Txt
Next
End Sub

 

[Phuocam]

Code a-ma-tơ

Public Sub Them_Xoa()
Dim i As Long, lr As Long, rng As Range, temp As String
lr = Range("C" & Rows.Count).End(xlUp).Row
For i = 3 To lr
    If Range("B" & i).Value <> "" Then
        temp = Range("B" & i).Value
    Else
        Range("B" & i).Value = temp
    End If
    If Range("D" & i).Value = "" Then
        If rng Is Nothing Then
            Set rng = Range("D" & i)
        Else
            Set rng = Union(Range("D" & i), rng)
        End If
    End If
Next i

  If Not rng Is Nothing Then rng.EntireRow.Delete
                    
End Sub

 

[hoahuongduong1986]

Code a-ma-tơ

Public Sub Them_Xoa()
Dim i As Long, lr As Long, rng As Range, temp As String
lr = Range("C" & Rows.Count).End(xlUp).Row
For i = 3 To lr
    If Range("B" & i).Value <> "" Then
        temp = Range("B" & i).Value
    Else
        Range("B" & i).Value = temp
    End If
    If Range("D" & i).Value = "" Then
        If rng Is Nothing Then
            Set rng = Range("D" & i)
        Else
            Set rng = Union(Range("D" & i), rng)
        End If
    End If
Next i

  If Not rng Is Nothing Then rng.EntireRow.Delete
                   
End Sub

Em cảm ơn anh nhiều ạ !

Bài đã được tự động gộp: 27/12/20

Thử code này xem sao bạn

Option Explicit
Sub NTKTNN()
Dim Lr As Long, Cll As Range, Txt As String
Lr = Cells(Rows.Count, "C").End(xlUp).Row
Range("D3:D" & Lr).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Lr = Cells(Rows.Count, "C").End(xlUp).Row
For Each Cll In Range("A3:A" & Lr)
    If Cll.Offset(, 1) <> "" Then Txt = Cll.Offset(, 1).Value
    Cll.Value = Txt
Next
End Sub

Em cảm ơn anh nhiều ạ !

 

[be_09]

Kính thưa anh chị và các bạn
Em có dạng dữ liệu tại sheet Data vùng bôi vàng.
- Tại cột B em muốn điền tự động loại hoa xuống vùng trống bên dưới mỗi loại (Làm hàm thì em làm như ở cột A)
- Sau đó, tìm tại cột D (Số lượng/thông tin) ô nào trống thì nó xóa toàn bộ dòng đó đi. Ví dụ ở đây D6, D7, D13 trống thì sẽ xóa các dòng 6,7,13 này đi.

Với hai yêu cầu này thì Code sẽ thực hiện ra sao a.

Góp ý cho bạn:
1/ Theo dõi kiểu của bạn sẽ rất khó cho việc tổng hợp.
2/ Tôi ví dụ: Muốn tổng hợp từng loại hoa theo số lượng của từng kho với tổng số tiền thì bạn tính bằng cách nào?
3/ Hoặc làm thế nào để tính số lượng tồn theo từng kho?

 

[SA_DQ]

@ Chủ bài đăng: Nếu là mình thì sẽ tách làm 2 bảng, như:

Mã

Tên

Mã QH

Chủng loại

Bó

ĐG

T Tiền

Tồn Kho

Thủ Kho

ĐC

LK_00

Hoa loa kèn

LK_00

L I

20​

200000​

4000000​

Tổng kho

HP_00

Hoa hồng pháp

HP_00

Loại II

12​

220000​

2640000​

27​

Kho cửa hàng 1