Nối cột theo thứ tự (1 người xem)

[leminhthang132]

Nhờ các bạn giúp mình code nối cột theo thự tự, có file đính kèm. Mình muốn nối để hiển thị ở Cột C là 1 2 3 4 5 6 7 8 9 10

 

[lenongree]

Ct tại cột D2!!!!!!!!!

D2=IFERROR(SMALL($A$1:$C$5,ROW(1:1)),"")

Rồi bạn fill xuống

 

[leminhthang132]

Nhưng giờ mình thay các số đấy bằng các chữ A B C.... thì công thức như thế nào vậy bạn lenongree

 

[khuongvietphong]

Nhưng giờ mình thay các số đấy bằng các chữ A B C.... thì công thức như thế nào vậy bạn lenongree

Thử với File này coi sao

 

[chucuoi92]

Nhờ các bạn giúp mình code nối cột theo thự tự, có file đính kèm. Mình muốn nối để hiển thị ở Cột C là 1 2 3 4 5 6 7 8 9 10

bạn dùng code này xem có đúng không

Sub noi()
Dim data(1 To 3)
Dim cll
Dim i As Long, ii As Long
For i = 1 To 3
Set data(i) = Sheet1.Range("A1:A5").Offset(0, i - 1)
    For Each cll In data(i)
        If cll <> "" Then
           ii = ii + 1
          Sheet1.Range("D" & ii + 1) = cll.Value
        End If
    Next
Next
End Sub