Xin giúp đỡ về chuyển dữ liệu bảng sang bảng có sắp xếp (1 người xem)

[fathala]

Chào các anh/chị !
Em có 1 file như đính kèm . Bình thường muốn chuyển từ bảng 1 sang mẫu giống như bảng 2 em phải copy bằng tay nhưng hiện nay số lượng sản phẩm tăng lên rất nhiều nếu làm bằng tay thì rất lâu . Em ko biết có hàm nào để chuyển đổi sang bảng 2 được không?(Bảng 1 xuất từ hệ thống) của công ty Anh/chị hướng dẫn giúp em với nhé . Em cảm ơn anh/chị nhiều lắm .

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[Ba Tê]

Chào các anh/chị !
Em có 1 file như đính kèm . Bình thường muốn chuyển từ bảng 1 sang mẫu giống như bảng 2 em phải copy bằng tay nhưng hiện nay số lượng sản phẩm tăng lên rất nhiều nếu làm bằng tay thì rất lâu . Em ko biết có hàm nào để chuyển đổi sang bảng 2 được không?(Bảng 1 xuất từ hệ thống) của công ty Anh/chị hướng dẫn giúp em với nhé . Em cảm ơn anh/chị nhiều lắm .

Nếu dữ liệu nhiều thì dùng thử VBA xem, Click vào khung GPE 1 cái là xong.
Nhớ Enable Macros.

 

[Good-Luck]

Chào các anh/chị !
Em có 1 file như đính kèm . Bình thường muốn chuyển từ bảng 1 sang mẫu giống như bảng 2 em phải copy bằng tay nhưng hiện nay số lượng sản phẩm tăng lên rất nhiều nếu làm bằng tay thì rất lâu . Em ko biết có hàm nào để chuyển đổi sang bảng 2 được không?(Bảng 1 xuất từ hệ thống) của công ty Anh/chị hướng dẫn giúp em với nhé . Em cảm ơn anh/chị nhiều lắm .

tại sao không lập bảng dò cho nó : View attachment Copy of thongke(1).xls

thiểt lập công thức cho bảng 2 sau này dự liệu tự xuất

 

[fathala]

Xin cảm ơn 2 bác Pate và good luck !
Về file của bác Pate thì do em ko biết gì về VBA nên ko edit được file của bác để add thêm dữ liệu . Cảm ơn bác
File của bác good luck thì do dữ liệu e đưa chưa chi tiết nên đối với file chi tiết của em sẽ ko áp dụng được .
Em đính kèm file chi tiết của e các bác xem file xem có hỗ trợ giúp em được ko ạ .
Cảm ơn mọi người nhiều lắm .

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[mhung12005]

Xin cảm ơn 2 bác Pate và good luck !
Về file của bác Pate thì do em ko biết gì về VBA nên ko edit được file của bác để add thêm dữ liệu . Cảm ơn bác
File của bác good luck thì do dữ liệu e đưa chưa chi tiết nên đối với file chi tiết của em sẽ ko áp dụng được .
Em đính kèm file chi tiết của e các bác xem file xem có hỗ trợ giúp em được ko ạ .
Cảm ơn mọi người nhiều lắm .

Với file của anh BaTe bạn chỉ việc copy dữ liệu trong file của bạn dán vào và nhấn nút GPE là ok. Chú ý dán bắt đầu từ A3 nhé. Bạn xem file đính kèm.

 

[Quang_Hải]

Xin cảm ơn 2 bác Pate và good luck !
Về file của bác Pate thì do em ko biết gì về VBA nên ko edit được file của bác để add thêm dữ liệu . Cảm ơn bác
File của bác good luck thì do dữ liệu e đưa chưa chi tiết nên đối với file chi tiết của em sẽ ko áp dụng được .
Em đính kèm file chi tiết của e các bác xem file xem có hỗ trợ giúp em được ko ạ .
Cảm ơn mọi người nhiều lắm .

Code thì bạn đâu cần edit làm gì, chỉ cần copy dữ liệu mới vào rồi bấm nút thôi.
Nếu muốn giữ lại các dòng tổng của từng loại thì xài code này

Sub tu_lanh()
Dim kq(), dulieu(), i As Long, j As Long, k As Long, tem1, tem2
dulieu = Range([a5], [a65536].End(3).Offset(-1)).Resize(, 4).Value
ReDim kq(1 To UBound(dulieu), 1 To 4)
   For i = 1 To UBound(dulieu)
      If Not IsNumeric(dulieu(i, 1)) And InStr(dulieu(i, 1), "-") > 0 Then
         k = InStr(dulieu(i, 1), "-")
         If k Then
            tem1 = Trim(Left(dulieu(i, 1), k - 1))
            tem2 = Trim(Right(dulieu(i, 1), Len(dulieu(i, 1)) - k))
          End If
      ElseIf IsNumeric(dulieu(i, 1)) Then
         j = j + 1
         kq(j, 1) = tem1: kq(j, 2) = tem2
         kq(j, 3) = dulieu(i, 3): kq(j, 4) = dulieu(i, 4)
      ElseIf Not IsNumeric(dulieu(i, 1)) And InStr(dulieu(i, 1), "-") < 1 Then
         j = j + 1
         kq(j, 1) = dulieu(i, 1)
         kq(j, 2) = dulieu(i, 2)
      End If
   Next
[e6].Resize(i - 1, 4) = kq
[e:h].Columns.AutoFit
End Sub

 

[fathala]

Cảm ơn hai bác quanghai1969 va mhung12005 em đã làm được rùi ạ , đúng cái em cần ý, em hôm nay lại biết được thêm 1 cái nữa rất hay của Excell là marco ^^! Em không được học excell cơ bản, chỉ là do đi làm phải sử dụng, tự học nên còn gà mờ lắm. Một lần nữa xin cảm ơn các bác đã giúp đỡ em rất nhiều, chúc các bác luôn thành công trong cuộc sống

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau