Chuyển dữ liệu theo điều kiện

[anhkhang.ak1122]

Em chào anh/chị
Em có dữ liệu từ phần mềm kết xuất ra nó không theo như mình mong muốn. Bây giờ em muốn chuyển lại dữ lại như file em đính kèm bên dưới. Mong anh/chị giúp đỡ. Em cảm ơn.

 

[snow25]

Em chào anh/chị
Em có dữ liệu từ phần mềm kết xuất ra nó không theo như mình mong muốn. Bây giờ em muốn chuyển lại dữ lại như file em đính kèm bên dưới. Mong anh/chị giúp đỡ. Em cảm ơn.

Viết cái code VBA là xong.Còn công thức thì chịu.

 

[anhkhang.ak1122]

Vâng, code hay công thức đều được ạ.

 

[Phuocam]

Em chào anh/chị
Em có dữ liệu từ phần mềm kết xuất ra nó không theo như mình mong muốn. Bây giờ em muốn chuyển lại dữ lại như file em đính kèm bên dưới. Mong anh/chị giúp đỡ. Em cảm ơn.

.
Thử công thức này tại D3:

=IF(B3="","",LOOKUP(2,1/($B$2:B2=""),$A$2:A2))

Tương tự trong E3.

.

 

[anhkhang.ak1122]

.
Thử công thức này tại D3:

=IF(B3="","",LOOKUP(2,1/($B$2:B2=""),$A$2:A2))

Tương tự trong E3.

.

D3 thì em ra kết quả rồi, E3 em áp dụng được rồi bác. Em cảm ơn nhiều ạ.

 

[hichlehg]

.
Thử công thức này tại D3:

=IF(B3="","",LOOKUP(2,1/($B$2:B2=""),$A$2:A2))

Tương tự trong E3.

.

Công thức quá hay !

 

[dangductuong2125]

Công thức quá hay !

Thích sưu tầm công thức nữa không bạn :

D3=IF(B3="","",IF(AND(A2<>"",B2=""),A2,D2))

E3=IF(B3="","",IF(AND(A3<>"",B2=""),A3&"-"&B3,SUBSTITUTE(E2,B2,B3)))

 

[SA_DQ]

Thêm 1 tham khảo cù lần:

Sub ChuyenDuLieu()
 Dim Rws As Long, J As Long, W As Integer
 Dim KHg As String, Color_ As String
 
 Rws = 13 + [B9999].End(xlUp).Row
 ReDim Arr(1 To Rws, 1 To 2)
 [D2].Resize(Rws, 2).Value = Arr()
 W = 1:                         Arr(1, 1) = "Customer"
 Arr(1, 2) = "Fabric description"
 For J = 2 To Rws
    If Cells(J, "B").Value = "" And Cells(J, "A").Value <> "" Then
        KHg = Cells(J, "A").Value
        W = W + 1
    ElseIf Cells(J, "B").Value <> "" And Cells(J, "A").Value <> "-" Then
        W = W + 1:              Color_ = Cells(J, "A").Value & "-"
        Arr(W, 1) = KHg:        Arr(J, 2) = Color_ & Cells(J, "B").Value
    ElseIf Cells(J, "A").Value = "-" Then
        W = W + 1:              Arr(J, 2) = Color_ & Cells(J, "B").Value
        Arr(W, 1) = KHg
    ElseIf Cells(J, "A").Value = "" And Cells(J, "B").Value = "" Then
        W = W + 1
    End If
 Next J
 [D2].Resize(W, 2).Value = Arr()
End Sub

 

[VetMini]

Dùng If's thôi đủ rồi, Lookup hơi mệt.