ghép các cột lại thành 1 cột duy nhất

[nguyendangkhoi]

nhờ các anh chị GPE hướng dẫn em macro ghép các cột em bôi màu vàng thành 1 cột duy nhất (cột u)

 

[nguyendangkhoi]

Sao lại phải dùng Macro vậy bạn? cộng các cột lại thành 1 cột thì chỉ việc dùng hàm Sum thôi

Sao lại phải dùng Macro vậy bạn? cộng các cột lại thành 1 cột thì chỉ việc dùng hàm Sum thôi

Xin lỗi mình dánh nhầm ghép các cột chứ không phải cộng

 

[Hai Lúa Miền Tây]

Xin lỗi mình dánh nhầm ghép các cột chứ không phải cộng

Ghép như thế nào vậy bạn?
Ví dụ ghép theo dạng chuổi của các cell trong cột vào 1 cell tương ứng, hay là chuyển dử liệu 1 cell của các cột vào 1 cell của 1 cột theo thứ tự đi xuống phải vậy không bạn ?

 

[haituan]

re:

Ghép các số lại với nhau hả bạn?
Bạn xem nhé:
http://www.4shared.com/file/121445698/a597e3b7/ghepdulieu.html

 

[nguyendangkhoi]

Không ý của mình là ghep các cột lại với nhau
ví dụ: trong bản của em có 8 cot dũ liệu tù cột A - cột H. mình muốn là chep dữ liệu của cột A vào Cột u và dữ liệu cột b cũng vào cột u

 

[Hai Lúa Miền Tây]

Không ý của mình là ghep các cột lại với nhau
ví dụ: trong bản của em có 8 cot dũ liệu tù cột A - cột H. mình muốn là chep dữ liệu của cột A vào Cột u và dữ liệu cột b cũng vào cột u

Vậy bạn thử dùng code này nhe

Sub Ghep()
    Dim Vung1 As Range
    Set Vung1 = Range("A1:H65536")
    Dim c As Range
    Dim iRow As Integer
    iRow = 0
    For Each c In Vung1
        If Not IsEmpty(c) Then
            Range("U1").Offset(iRow, 0).Value = c.Value
            iRow = iRow + 1
        End If
    Next c
End Sub

Tham khảo thêm file coi có đúng ý chưa nhé
Thân

 

[nm1000kg]

Như vầy có đúng không.

 

[ChanhTQ@]

Cũng có thể bạn ấy muốn như vầy:

Option Explicit
Sub GhepNoi()
 Dim Col As Byte, jJ As Byte 
 Range(Cells(1, 1), Cells(65500, 1).End(xlUp)).Copy Destination:=[U1]
 For jJ = 2 To [a1].CurrentRegion.Columns.Count
   Range(Cells(1, jJ), Cells(65500, jJ).End(xlUp)).Copy _
      Destination:=[u65500].End(xlUp).Offset(1)
 Next jJ
End Sub

 

[ndu96081631]

nhờ các anh chị GPE hướng dẫn em macro ghép các cột em bôi màu vàng thành 1 cột duy nhất (cột u)

Đáng tiếc dử liệu của bạn vừa là dử liệu thô lại vừa có cell chứa công thức ---> Nếu không ta dùng SpecialCells(2) là vô địch
Sao cell A16 lại là công thức nhỉ? ---> Mà duy nhất chỉ có 1 cell chứa công thức, bạn có thấy dử liệu như vầy có vẻ kỳ kỳ không?

 

[Hai Lúa Miền Tây]

Đáng tiếc dử liệu của bạn vừa là dử liệu thô lại vừa có cell chứa công thức ---> Nếu không ta dùng SpecialCells(2) là vô địch
Sao cell A16 lại là công thức nhỉ? ---> Mà duy nhất chỉ có 1 cell chứa công thức, bạn có thấy dử liệu như vầy có vẻ kỳ kỳ không?

Cái này chắc do thao tác của em chứ không phải của bạn nguyendangkhoi đâu thầy ơi

 

[huuthang_bd]

Một cách khác. Làm bằng công thức.

 

[nghiack]

Mình còn có một cách ghép các dữ liệu ở ba cột (ví dụ các cột A1, A2, A3) thành một cột (A4) không bỏ bớt dữ liệu nào.
=A1&A2&A3