Từ 1 dòng ở bảng này có thể insert , tách ra được 4 dòng bảng kia (1 người xem)

[hongthuy1992]

Chào các bạn , các bạn cho mình hỏi làm tnao để khi nhập dữ liệu từ bảng 1 thì sẽ tự động suy ra bảng 2 đc . Mình cảm ơn

 

[snow25]

Chào các bạn , các bạn cho mình hỏi làm tnao để khi nhập dữ liệu từ bảng 1 thì sẽ tự động suy ra bảng 2 đc . Mình cảm ơn

View attachment 270465

Dùng VBA mà tách nó ra.

 

[HUONGHCKT]

Chào các bạn , các bạn cho mình hỏi làm tnao để khi nhập dữ liệu từ bảng 1 thì sẽ tự động suy ra bảng 2 đc . Mình cảm ơn

View attachment 270465

Bạn phải đưa file giả định nên chứ chỉ đưa cái ảnh lên thì chỉ để xem cho vui thôi. Viết công thức hay code vào đâu? trên ảnh à?Muốn trợ giúp cũng chịu

 

[SA_DQ]

Mình xin cụ thể hóa ý định của Snow25 đây, xin mời:

Sub Tach1Dong_4()
 Dim Cls As Range:                            Const Ng As Integer = 900
 Dim Rws As Long, W As Integer, Num As Integer, SoSF As Integer, MyColor As Integer
 Dim Dau As String, Cuoi As String
 
 Rws = [B2].End(xlDown).Row
 ReDim Arr(1 To 9 * Rws, 1 To 4)
 [G2].Resize(9 * Rws, 4).Value = Arr()
 For Each Cls In Range([B2], [B2].End(xlDown))
    Dau = Right(Cls.Value, 4):                  Cuoi = Right(Cls.Value, 3)
    SoSF = Cls.Offset(, 2).Value
    Arr(W + 1, 1) = Cls.Offset(, -1).Value
  
    For Num = 1 To 4
        If SoSF >= 900 Then
            W = W + 1:                          Arr(W, 2) = Dau & "0900" & Cuoi
            Arr(W, 3) = Ng:                     Arr(W, 4) = "SF nguyên: OK"
            SoSF = SoSF - 900
        Else
            W = W + 1
            Arr(W, 2) = Dau & Right("0" & CStr(SoSF), 4) & Cuoi
            Arr(W, 3) = SoSF:                   Arr(W, 4) = "SF OK"          
            W = W + 1
            Arr(W, 2) = Dau & Right("0" & CStr(Cls.Offset(, 3).Value), 4) & Cuoi
            Arr(W, 3) = Cls.Offset(, 3).Value:  Arr(W, 4) = "No OK"
            Exit For
        End If
    Next Num
 Next Cls
 Randomize:                                     MyColor = 34 + 9 * Rnd() \ 1
 If W Then
    [G2].Resize(W, 4).Value = Arr():            [G1:J1].Interior.ColorIndex = MyColor
 End If
End Sub

Dùng VBA mà tách nó ra.

 

[HieuCD]

Chào các bạn , các bạn cho mình hỏi làm tnao để khi nhập dữ liệu từ bảng 1 thì sẽ tự động suy ra bảng 2 đc . Mình cảm ơn

View attachment 270465

Có khi nào tách 3 dòng khi có 200 sản phẩm lỗi?

 

[SA_DQ]

Có khi nào tách 3 dòng khi có 200 sản phẩm lỗi?

Hãy ráng chờ tác giải bài đăng thôi!
. . . . . .
Còn #4 để thỏa mãn chỉ những gì nêu trong hình mà thôi. . .
Chúc mọi người cuối tuần vui vẻ!

 

[VetMini]

Hãy ráng chờ tác giải bài đăng thôi!
. . . . . .
Còn #4 để thỏa mãn chỉ những gì nêu trong hình mà thôi. . .
Chúc mọi người cuối tuần vui vẻ!

Chờ chắc hơi lâu. Đã diễn tả lạng quạng mà còn mang tật viết tắt (dân viết tắt có tật chủ quan, không chịu khó nghe người ta hỏi lại).

 

[batman1]

Đã diễn tả lạng quạng mà còn

Tôi có thấy diễn tả gì đâu. Tung 2 bảng lên rồi muốn người ta tự tìm ra qui luật, tìm ra cách tách. Diễn tả là khi: "Ta xét từng dòng dữ liệu. Với mỗi dòng ta ...". Tóm lại phải nói cách làm khi làm "bằng tay". Ở đây không có bất cứ mô tả nào.

 

[SA_DQ]

Tôi có thấy diễn tả gì đâu. .... . Ở đây không có bất cứ mô tả nào.

Coi gần như khỏi mua vé mà được xem kịch câm lúc rỗi rồi còn gì!

[Đầu hiệp II giữa VIE với CAM vẫn là 2 - 0 & VIE đang nhì bảng.]

 

[VetMini]

Tôi có thấy diễn tả gì đâu. Tung 2 bảng lên rồi muốn người ta tự tìm ra qui luật, tìm ra cách tách. Diễn tả là khi: "Ta xét từng dòng dữ liệu. Với mỗi dòng ta ...". Tóm lại phải nói cách làm khi làm "bằng tay". Ở đây không có bất cứ mô tả nào.

Người ta cho rằng như vậy là đã diễn tả.
Có lẽ họ theo chính sách "A picture is worth a thousand words".
(đương nhiên cái ảnh này đối với người khác thì "worthless". Bài #7 tôi có nhắc đến từ "chủ quan" mờ))