Gộp nhiều cột dữ liệu thành một cột dữ liệu

[tuanzoi]

Mình có một báo cáo theo dõi hàng ngày trong tháng. Tức là mỗi tháng có 30-31 cột dữ liệu. Giờ mình muốn gộp dữ liệu của các cột đó thành một cột, nhưng số lần vật tư xuất hiện không đổi. Cao thủ nào giúp mình cái. Trên file đính kèm thì từ bảng 1 sang bảng 2. Cám ơn các bạn trước

 

[phucbugis]

bạn xem file đính kèm, xem cách làm đó có OK ko?

Link MediaFire: Nhieu cot thanh mot cot.xlsm

 

[Ba Tê]

Mình có một báo cáo theo dõi hàng ngày trong tháng. Tức là mỗi tháng có 30-31 cột dữ liệu. Giờ mình muốn gộp dữ liệu của các cột đó thành một cột, nhưng số lần vật tư xuất hiện không đổi. Cao thủ nào giúp mình cái. Trên file đính kèm thì từ bảng 1 sang bảng 2. Cám ơn các bạn trước

Tặng bạn 1 Sub có xài được thì xài nhé.

Public Sub GPE()
Dim sArr(), dArr(), Col(), I As Long, J As Long, K As Long
With Sheet1
    Col = .Range(.[B2], .[IV2].End(xlToLeft)).Value
    sArr = .Range(.[B4], .[B4].End(xlDown)).Resize(, UBound(Col, 2)).Value
    ReDim dArr(1 To UBound(sArr, 1) * UBound(Col, 2), 1 To 3)
    For I = 1 To UBound(sArr, 1)
        For J = 3 To UBound(Col, 2)
            If sArr(I, J) <> "" Then
                K = K + 1
                dArr(K, 1) = sArr(I, 1)
                dArr(K, 2) = Col(1, J)
                dArr(K, 3) = sArr(I, J)
            End If
        Next J
    Next I
    If K Then
        .[B17:D1000].ClearContents
        .[B17].Resize(K, 3).Value = dArr
    End If
End With
End Sub

 

[tuanzoi]

Mình muốn chuyển sang sheet khác thì đổi mã thế nào? Tức là bảng 1 ở sheet1, bảng 2 ở sheet2.
Ngoài ra, có cách nào làm bằng công thức, không dùng marco không?
Thanks

 

[tuanzoi]

Mình muốn chuyển sang sheet khác thì đổi mã thế nào? Tức là bảng 1 ở sheet1, bảng 2 ở sheet2.
Ngoài ra, có cách nào làm bằng công thức, không dùng marco không?
Thanks

 

[phucbugis]

Mình muốn chuyển sang sheet khác thì đổi mã thế nào? Tức là bảng 1 ở sheet1, bảng 2 ở sheet2.
Ngoài ra, có cách nào làm bằng công thức, không dùng marco không?
Thanks

Vấn đề lập công thức mà ko dùng macro, mình nghỉ chưa ra.

Bạn xem file mình đã tách Bảng 2 ở sheet2 rồi đó. (Macro của mình nhìn vào rất dễ hiểu và bạn có thể tuỳ biến về sau mà)

Link MediaFire: Nhieu cot thanh mot cot (1).xlsm

 

[concogia]

Mình muốn chuyển sang sheet khác thì đổi mã thế nào? Tức là bảng 1 ở sheet1, bảng 2 ở sheet2.
Ngoài ra, có cách nào làm bằng công thức, không dùng marco không?
Thanks

Tặng bạn một cách làm bằng công thức
Kết quả ở sheet2
Thân

 

[tuanzoi]

Vấn đề lập công thức mà ko dùng macro, mình nghỉ chưa ra.

Bạn xem file mình đã tách Bảng 2 ở sheet2 rồi đó. (Macro của mình nhìn vào rất dễ hiểu và bạn có thể tuỳ biến về sau mà)

Cảm ơn bạn rất nhiều. Vì mình không biết tí gì về macro nên hơi thụ động .
Còn dựa vào code để tùy biến thì chắc ổn .

 

[tuanzoi]

Tặng bạn một cách làm bằng công thức
Kết quả ở sheet2
Thân

Rất rất cám ơn. Mình không biết về Macro nên file của bạn chuẩn với yêu cầu của mình

 

[tuanzoi]

@phucbugis ơi. Nếu mình muốn chuyển từ workbook A sang workbook B thì làm thế nào.

 

[tuanzoi]