Chuyển dữ liệu nhiều hàng thành 1 cột (2 người xem)

[Mydiem13031994]

Dạ anh chị nào biết cách chuyển dữ liệu từ nhiều hàng thành 1 cột liên tục chỉ giùm em với ạ?
-2
0
16
...
56
33

12
0
1

Em cảm ơn trước ạ!

 

[phulien1902]

Dạ anh chị nào biết cách chuyển dữ liệu từ nhiều hàng thành 1 cột liên tục chỉ giùm em với ạ?
-2
0
16
...
56
33

12
0
1

Em cảm ơn trước ạ!
View attachment 229542

Không có File thì làm sao?

 

[Mydiem13031994]

Dạ file đây ạ. hi. giúp em với

 

[thuyyeu99]

Dạ file đây ạ. hi. giúp em với

Chọn dòng cần rồi copy

 

[VetMini]

' chủ yếu là cái công thức áp mảng 1 chiều qua 2 chiều thôi
a = Sheet1.Range("A1").CurrentRegion.Value
soDong = UBound(a)
soCot = UBound(a, 2)
Redim b(1 to soDong*soCot, 1 to 1)
For i = 1 to soDong*soCot
b(i, 1) = a( (i-1) \ soCot + 1, (i - 1) Mod soCot + 1) ' công thức áp chỗ này
Next i
Sheet2.Range("A1").Resize(UBound(b), 1) = b

 

[phulien1902]

Dạ file đây ạ. hi. giúp em với

Bạn thử:

With Selection
        a = .Value
        ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 1)
        For i = 1 To UBound(a)
            For j = 1 To UBound(a, 2)
                If Len(a(i, j)) Then k = k + 1: b(k, 1) = a(i, j)
            Next: Next
    End With
    Range("AB4").Resize(k).Value = b

 

[tranvanhung2009]

Nhờ cao thủ trong nhóm giúp mình chuyển đổi hàng sang cột file này với ạ

 

[be_09]

Nhờ cao thủ trong nhóm giúp mình chuyển đổi hàng sang cột file này với ạ

Góp ý cho bạn:
1/ Nếu thành viên nào biết thì sẽ vào giúp cho bạn mà không cần dùng từ cao thủ trong bài viết.
2/ Nội dung trong File của bạn khác hoàn toàn so với File của chủ Topic, vì vậy bạn nên mở Topic để việc trả lời cho bạn được tập trung hơn.
3/ Về nội dung bạn cần diễn giải cụ thể rỏ ràng là lấy dữ liệu của sheet nào chuyển qua sheet nào? Bạn hỏi bâng quơ quá nên chẳng ai hiểu bạn muốn kết quả ở sheet nào?

 

[Mydiem13031994]

Bạn thử:

With Selection
        a = .Value
        ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 1)
        For i = 1 To UBound(a)
            For j = 1 To UBound(a, 2)
                If Len(a(i, j)) Then k = k + 1: b(k, 1) = a(i, j)
            Next: Next
    End With
    Range("AB4").Resize(k).Value = b

Dạ em cảm ơn. Để em thử xem ạ!

 

[Mydiem13031994]

' chủ yếu là cái công thức áp mảng 1 chiều qua 2 chiều thôi
a = Sheet1.Range("A1").CurrentRegion.Value
soDong = UBound(a)
soCot = UBound(a, 2)
Redim b(1 to soDong*soCot, 1 to 1)
For i = 1 to soDong*soCot
b(i, 1) = a( (i-1) \ soCot + 1, (i - 1) Mod soCot + 1) ' công thức áp chỗ này
Next i
Sheet2.Range("A1").Resize(UBound(b), 1) = b

Dạ em cảm ơn ạ!

 

[Mydiem13031994]

Bạn thử:

With Selection
        a = .Value
        ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 1)
        For i = 1 To UBound(a)
            For j = 1 To UBound(a, 2)
                If Len(a(i, j)) Then k = k + 1: b(k, 1) = a(i, j)
            Next: Next
    End With
    Range("AB4").Resize(k).Value = b

Dạ a ơi, A có thể chỉ chi tiết giùm em cách sử dụng code này được không ạ? Em ko rành code nên ko biết bỏ vô đâu để chạy ra cái này. Em cảm ơn a trước ạ.

 

[luc.dhuy]

B

Dạ a ơi, A có thể chỉ chi tiết giùm em cách sử dụng code này được không ạ? Em ko rành code nên ko biết bỏ vô đâu để chạy ra cái này. Em cảm ơn a trước ạ.

Bạn xem file đính kèm. Bấm vào mũi tên sẽ có kết quả. Muốn xem code thì bấm "Alt+F11" nhé.

 

[Mydiem13031994]

B

Bạn xem file đính kèm. Bấm vào mũi tên sẽ có kết quả. Muốn xem code thì bấm "Alt+F11" nhé.

Dạ em cảm ơn nhiều ạ

 

[phulien1902]

Dạ a ơi, A có thể chỉ chi tiết giùm em cách sử dụng code này được không ạ? Em ko rành code nên ko biết bỏ vô đâu để chạy ra cái này. Em cảm ơn a trước ạ.

Bạn dùng Code dưới linh hoạt hơn:

Sub Test()
    Dim a, b, i, j, k, Nguon As Range, Dich As Range
    Set Nguon = Application.InputBox(prompt:="Quet chon vung du lieu can chuyen ", Type:=8)
    With Nguon
        a = .Value
        ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 1)
        For i = 1 To UBound(a)
            For j = 1 To UBound(a, 2)
                If Len(a(i, j)) Then k = k + 1: b(k, 1) = a(i, j)
            Next: Next
    End With
    Set Dich = Application.InputBox(prompt:="Chon 1 Cell de gan du lieu", Type:=8)
    Dich.Resize(k).Value = b
End Sub

 

[Mydiem13031994]

Bạn dùng Code dưới linh hoạt hơn:

Sub Test()
    Dim a, b, i, j, k, Nguon As Range, Dich As Range
    Set Nguon = Application.InputBox(prompt:="Quet chon vung du lieu can chuyen ", Type:=8)
    With Nguon
        a = .Value
        ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 1)
        For i = 1 To UBound(a)
            For j = 1 To UBound(a, 2)
                If Len(a(i, j)) Then k = k + 1: b(k, 1) = a(i, j)
            Next: Next
    End With
    Set Dich = Application.InputBox(prompt:="Chon 1 Cell de gan du lieu", Type:=8)
    Dich.Resize(k).Value = b
End Sub

Dạ em cảm ơn em đã làm được rồi ạ.

Bài đã được tự động gộp: 10/12/19

Bạn dùng Code dưới linh hoạt hơn:

Sub Test()
    Dim a, b, i, j, k, Nguon As Range, Dich As Range
    Set Nguon = Application.InputBox(prompt:="Quet chon vung du lieu can chuyen ", Type:=8)
    With Nguon
        a = .Value
        ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 1)
        For i = 1 To UBound(a)
            For j = 1 To UBound(a, 2)
                If Len(a(i, j)) Then k = k + 1: b(k, 1) = a(i, j)
            Next: Next
    End With
    Set Dich = Application.InputBox(prompt:="Chon 1 Cell de gan du lieu", Type:=8)
    Dich.Resize(k).Value = b
End Sub

Hi. Em mới mở cái file anh gửi, nhìn hay quá anh. Em cảm ơn anh nhiều nhé