Tự động xuống dòng theo điều kiện (1 người xem)

[emlat3]

Em chào anh chị ạ,
Em đang cần xuống dòng các thông tin của các cột G,H,I xuống dưới cột F giống như dòng 2 trong ảnh thì có cách nào để làm nhanh nhiều dòng 1 lúc không ạ? Em làm hơn 1000 dòng nên làm tay không xuể ạ

 

[Hoàng Tuấn 868]

Em chào anh chị ạ,
Em đang cần xuống dòng các thông tin của các cột G,H,I xuống dưới cột F giống như dòng 2 trong ảnh thì có cách nào để làm nhanh nhiều dòng 1 lúc không ạ? Em làm hơn 1000 dòng nên làm tay không xuể ạ

Bạn gửi ảnh lên thì chỉ ngắm cho vui chứ chẳng làm được gì.

 

[SA_DQ]

,. . . . .
Em đang cần xuống dòng các thông tin của các cột G,H,I xuống dưới cột F giống như dòng 2 trong ảnh thì có cách nào để làm nhanh nhiều dòng 1 lúc không ạ? Em làm hơn 1000 dòng nên làm tay không xuể ạ

/(hông xuể bằng tay thì làm bằng 'máy'; Trong Excel thì là macro ;
Nhưng đúng là cái ảnh cũng làm mình phân vân là ĐƯA xuống dòng như thế nào cũng chưa thật sự rõ ràng!
Thôi thì bạn đành chờ ai hiểu mới cố giúp bạn được!
/-(ãy đợi đi nha & chúc khỏe trong khi chưa gặp được người giúp!
♥ ♠ ♦ ♣

 

[ptm0412]

Thôi thì bạn đành chờ ai hiểu mới cố giúp bạn được!

Tôi hiểu, nhưng không làm trên ảnh được.

 

[SA_DQ]

Tôi hiểu, nhưng không làm trên ảnh được.

Đã nêu là hiểu & phải 'cố' thì mới giúp được!

 

[ptm0412]

Đã nêu là hiểu & phải 'cố' thì mới giúp được!

Cố quá cũng được nhưng sẽ phải sửa tới sửa lui thành ra quá ...
- Dữ liệu nằm ở sheet tên gì?
- Dữ liệu từ cột A đến cột nào?
- Kết quả để ở đâu?

 

[huuthang_bd]

Em chào anh chị ạ,
Em đang cần xuống dòng các thông tin của các cột G,H,I xuống dưới cột F giống như dòng 2 trong ảnh thì có cách nào để làm nhanh nhiều dòng 1 lúc không ạ? Em làm hơn 1000 dòng nên làm tay không xuể ạ

• Dùng 1 cột đánh số thứ tự dữ liệu (cột STT);
• Copy cột G và cột STT dán tiếp theo dòng cuối cùng của dữ liệu, cột G dán vào cột F. Làm tương tự với các cột H, I, ...;
• Sắp xếp tăng dần theo cột STT;
• Xóa cột G, H, I, ... và các dòng thừa.

 

[ptm0412]

Này thì cố

Sub Newline()
Dim SArr(), RArr(), LastRw As Long, n As Long
With ActiveSheet
    LastRw = .[A10000].End(xlUp).Row
    SArr = .Range("A2:K" & LastRw).Value
    n = UBound(SArr, 1)
    ReDim RArr(1 To n * 4, 1 To 8)
    For i = 1 To n
        For j = 6 To 9
            If SArr(i, j) <> "" Then
                m = m + 1
                For k = 1 To 5
                    RArr(m, k) = SArr(i, k)
                Next
                RArr(m, 6) = SArr(i, j)
                If j = 6 Then
                    RArr(m, 7) = SArr(i, 10)
                    RArr(m, 8) = SArr(i, 11)
                End If
            End If
        Next
    Next
    .[N2].Resize(40000, 8).Clear
    .[N2].Resize(m, 8).Value = RArr
End With
End Sub

 

[LOGANWover]

Cố thêm 1 cách cho bạn là Query:

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Renamed Columns" = Table.RenameColumns(Source,{{"Column1", "NAME"}, {"Column2", "Sub1"}, {"Column3", "Sub2"}, {"Column4", "Sub3"}, {"Column5", "Sub4"}, {"Column6", "Score"}}),
    #"Unpivoted Columns" = Table.UnpivotOtherColumns(#"Renamed Columns", {"NAME", "Score"}, "Subject", "Value"),
    #"Grouped Rows" = Table.Group(#"Unpivoted Columns", {"NAME","Score"}, {{"AllData", each Table.AddIndexColumn(_, "Index", 1, 1, Int64.Type), type table [Name=text, Score=number, Subject=text, Value=text, Index=number]}}),
    #"Expanded AllData" = Table.ExpandTableColumn(#"Grouped Rows", "AllData", {"Subject", "Value", "Index"}, {"AllData.Subject", "AllData.Value", "AllData.Index"}),
    #"Added Custom" = Table.AddColumn(#"Expanded AllData", "Custom", each if [AllData.Index]=1 then [NAME]else null),
    #"Added Custom1" = Table.AddColumn(#"Added Custom", "Custom.1", each if [AllData.Index]=1 then [Score] else null),
    #"Removed Other Columns" = Table.SelectColumns(#"Added Custom1",{"Custom", "AllData.Value", "Custom.1"})
in
    #"Removed Other Columns"