nối các cột thành dòng

[thao82]

Đệ có 1 file (như đính kèm) mong các huynh giúp đệ cách chuyển như trong file đệ muốn nhé! Đệ vô cùng cám ơn! Nếu đệ dùng cách thủ công chắc là đến sang năm vẫn chưa xong mất! Hic hic !

 

[Po_Pikachu]

Dùng VBA nha! Bạn nhấn vào nút Chạy thì sẽ xong ngay. Thân.

 

[ChanhTQ@]

Bạn tham khảo thêm 1 macro này

(Macro chép vô cột 'D' không biết đúng theo yêu cầu của bạn chưa?)

Option Explicit
Sub NoiCotSangDong()
 Dim lRw As Long, Zz As Long
' Dim Rng As Range, Clls As Range '
 Dim StrC As String
 lRw = [b65500].End(xlUp).Row
 For Zz = lRw To 1 Step -1
    With Cells(Zz, "B")
        If .Offset(, -1) = "" Then
            StrC = .Value & StrC
        Else
            .Offset(, 2) = .Value & StrC
            StrC = ""
        End If
    End With
 Next Zz

 

[anhtuan1066]

Nếu bạn chưa rành VBA thì tôi chỉ bạn 1 cách làm bằng tay mà chắc chắn ai cũng làm được
1> Tại cell C2 bạn gõ vào công thức:
=IF(AND(A2="",A3<>""),B2,B2&" "&C3)
2> Kéo fill xuống ---> Copy toàn bộ công thức rồi PasteSpecial\Value
3> Tiếp theo chọn toàn bộ bảng tính, vào menu Data\Filter\AutoFilter
4> Click vào mũi tên xổ xuống tại cột A, chọn Blanks
5> Xóa hết cột C
6> Lại click vào mũi tên xổ xuống tại cột A, chọn All
Vậy là đã có được kết quả cần tìm
Bảo đãm cách này đơn giãn không kém mấy cách dùng VBA đâu nha, lại nhẹ nhàng và.. tình cảm
Nói thêm: Nếu các cao thủ VBA dùng cách này biến thành code thì ăn chắc khỏi PHO PHIẾC gì ráo
Ha... ha...

 

[echo07]

Cái này của bác anhtuan1066 rất hay xong nếu như ở cột A có hai ô chứa dữ liệu liền nhau thì chưa đúng. Cần bổ xung công thức là: =IF(AND(A2<>"",A3<>""),B2,IF(AND(A2="",A3<>""),B2,B2&" "&C3)). Chính xác trong mọi điều kiện.

 

[anhtuan1066]

Cái này của bác anhtuan1066 rất hay xong nếu như ở cột A có hai ô chứa dữ liệu liền nhau thì chưa đúng. Cần bổ xung công thức là: =IF(AND(A2<>"",A3<>""),B2,IF(AND(A2="",A3<>""),B2,B2&" "&C3)). Chính xác trong mọi điều kiện.

He... he... Cũng đúng... nhưng mà bạn để ý toán tử AND của bạn:
AND(A2<>"",A3<>""),B2,IF(AND(A2="",A3<>""),B2...
Có thấy hơi buồn cười không?
Đằng nào thì cũng xét A3<>"" , còn thằng em A2 có rỗng hay ko cũng.. mặc kệ (vẫn lấy B2)
Vậy sao ko là:
=IF(A3<>"",B2, B2&" "&C3)