Tách dữ liệu từ 1 ô thành nhiều ô

[phucnguyen1993]

Dear các anh/chị, em có file mẫu như bên dưới,
Số liệu khá nhiều nên copy bằng tay khá lâu,
Có phương pháp nào để tách dữ liệu từ 1 ô ra nhiều ô như file không ạ.
Nhờ các Pro giúp đỡ, em xin cám ơn ạ

 

[snow25]

Dear các anh/chị, em có file mẫu như bên dưới,
Số liệu khá nhiều nên copy bằng tay khá lâu,
Có phương pháp nào để tách dữ liệu từ 1 ô ra nhiều ô như file không ạ.
Nhờ các Pro giúp đỡ, em xin cám ơn ạ

Dùng VBA không.

 

[phucnguyen1993]

Dùng VBA không.

dạ miễn ra được kết quả là được bác snow25.
Em cám ơn a

 

[snow25]

dạ miễn ra được kết quả là được bác snow25.
Em cám ơn a

Bạn cho cái file mà có nhiều dữ liệu cần lấy đây.Mình viết luôn 1 thể có 1 cái viêt về bạn chưa chắc đã sửa được.

 

[phulien1902]

Dear các anh/chị, em có file mẫu như bên dưới,
Số liệu khá nhiều nên copy bằng tay khá lâu,
Có phương pháp nào để tách dữ liệu từ 1 ô ra nhiều ô như file không ạ.
Nhờ các Pro giúp đỡ, em xin cám ơn ạ

Bạn thử:

Sub Tam()
   Dim i, a
    a = Split(Range("B1"), ",")
      For i = LBound(a) To UBound(a)
        Cells(3, 2).Offset(i) = a(i)
      Next
End Sub

 

[phucnguyen1993]

Bạn thử:

Sub Tam()
   Dim i, a
    a = Split(Range("B1"), ",")
      For i = LBound(a) To UBound(a)
        Cells(3, 2).Offset(i) = a(i)
      Next
End Sub

dạ cám ơn bác, mình sử dụng được rồi ạ

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

Bạn cho cái file mà có nhiều dữ liệu cần lấy đây.Mình viết luôn 1 thể có 1 cái viêt về bạn chưa chắc đã sửa được.

hi dạ mình cám ơn bác Snow nhé, mình sử dụng của bác phulien1902 ok rồi ạ.
Cám ơn rất nhiều

 

[giaiphap]

Bạn thử:

Sub Tam()
   Dim i, a
    a = Split(Range("B1"), ",")
      For i = LBound(a) To UBound(a)
        Cells(3, 2).Offset(i) = a(i)
      Next
End Sub

Em muốn làm bài này với 0 vòng lặp.

 

[Ba Tê]

Em muốn làm bài này với 0 vòng lặp.

Thử kiểu này coi sao, chưa hề dùng bao giờ.

Public Sub sGpe()
Dim Tmp
  Tmp = Split(Range("B1"), ", ")
  Range("C3").Resize(UBound(Tmp) + 1) = Application.Transpose(Tmp)
End Sub

 

[befaint]

Em muốn làm bài này với 0 vòng lặp.

Em lót dép hóng.

 

[giaiphap]

Em lót dép hóng.

Thầy @Ba Tê đã giải rồi còn hóng gì nửa anh.

 

[Phuocam]

Chậm rồi .....

 

[befaint]

Thầy @Ba Tê đã giải rồi còn hóng gì nửa anh.

Chưa đạt anh ơi. 256 ký tự là dừng ngay.

 

[giaiphap]

Chưa đạt anh ơi. 256 ký tự là dừng ngay.

Trình độ em cũng chỉ cỡ đó thôi anh ơi. Anh ra tay cho em học hỏi thêm với.

 

[befaint]

Trình độ em cũng chỉ cỡ đó thôi anh ơi. Anh ra tay cho em học hỏi thêm với.

Em theo bài #5 mà anh

 

[VetMini]

Không dùng vòng lặp thì đệ quy.
Tôi chỉ nói vậy thôi chứ tôi không viết code đâu. Lý do thì quý vị biết rồi.

 

[befaint]

Rảnh rỗi..

Sub transpose1D(ByVal arr As Variant, ByRef result As Variant)
    'arr is array 1D '
    'result is array 2D '
    Static i As Long
    Static flag As Boolean
    If flag = False Then
        ReDim result(1 To UBound(arr) - LBound(arr) + 1, 1 To 1)
        flag = True
        i = LBound(arr)
    End If
    If i <= UBound(arr) Then
        result(i + 1, 1) = arr(i)
        i = i + 1
        transpose1D arr, result
    Else
        i = 0
        flag = False
    End If
End Sub
'//
Sub vidu()
    Dim arr, res
    arr = Array(1, 2, 3)
    transpose1D arr, res
    MsgBox res(2, 1)
End Sub

 

[SA_DQ]

Em muốn làm bài này với 0 vòng lặp.

Chắc đây là 1 ví dụ điển hình của cách giáo dục Việt Nam: Tạo ra những viện sỹ nhưng ra đời thì 90% như gà cônghiệp!

 

[NoDiNaDu]

Bạn thử:

Sub Tam()
   Dim i, a
    a = Split(Range("B1"), ",")
      For i = LBound(a) To UBound(a)
        Cells(3, 2).Offset(i) = a(i)
      Next
End Sub

Dạ thưa, em muốn làm tương tự như #1, tuy nhiên ô chứ dữ liệu ở cột B, Các ô dữ liệu con ở các cột:C,D,E... thì làm thế nào ạ ?

 

[phulien1902]

Dạ thưa, em muốn làm tương tự như #1, tuy nhiên ô chứ dữ liệu ở cột B, Các ô dữ liệu con ở các cột:C,D,E... thì làm thế nào ạ ?

Bạn thử:

Sub Test()
    Dim Cll As Range, St
    For Each Cll In Range("B1", Range("B" & Rows.Count).End(3))
        If InStr(Cll, ",") > 0 Then
            St = Split(Cll, ",")
            Cll.Offset(, 2).Resize(, UBound(St) + 1) = St
        End If
    Next
End Sub

 

[be_09]

Dạ thưa, em muốn làm tương tự như #1, tuy nhiên ô chứ dữ liệu ở cột B, Các ô dữ liệu con ở các cột:C,D,E... thì làm thế nào ạ ?

Tìm hiểu về Text to Columns (trên Ribbon vào data > Text to Columns)