Có gì mới?

Welcome to Quản trị - Phát triển Con người & Tổ chức - SprinGO Consultant

Join us now to get access to all our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, and so, so much more. It's also quick and totally free, so what are you waiting for?

Latest Thread

Blue
Red
Green
Orange
Voilet
Slate
Dark

Tách dữ liệu thành nhiều cột

thaian

Administrator
Staff member
VIP.1
Tham gia
Bài viết
282
Điểm tương tác
3
Offline
Giả sử như file kèm theo, khi dán dữ liệu vào Sheet1:
1632365463280.png


Chỉ cần bấm nút lệnh sẽ cho kết quả ở Sheet KetQua.

1632365517438.png

Rất cảm ơn mọi người.

Code có thể sử dụng cho yêu cầu này:
Mã:
Option Explicit

Sub TachCot()
Dim Nguon
Dim Kq
Dim i, j, k
Nguon = Sheet1.Range("A1").CurrentRegion
k = Len(Nguon(1, 1)) - Len(Replace(Nguon(1, 1), ",", "")) + 1
ReDim Kq(1 To UBound(Nguon), 1 To k)
For i = 1 To UBound(Nguon)
    k = 0
    For Each j In Split(Nguon(i, 1), ",")
        k = k + 1
        Kq(i, k) = Replace(j, """", "")
    Next j
Next i
With Sheet2.Range("A1").Resize(UBound(Kq), UBound(Kq, 2))
    .Clear
    .Value = Kq
    .Columns.AutoFit
End With
End Sub

Nếu có câu hỏi hoặc vướng mắc, các bạn vui lòng phản hồi tại đây để được giải đáp nhé.
 

Đính kèm

  • hrspring.vn_Tách dữ liệu thành nhiều cột.xlsb
    27.2 KB · Xem: 1

Facebook Comment


Nội quy khi thảo luận:

Dù bạn có cố tình spam bằng cách nào khi BQT diễn đàn phát hiện sẽ lập tức banned nick và xoá toàn bộ bài viết của bạn. Ngoài ra khi phát hiện ra Spam hãy gửi thông báo cho BQT diễn đàn. Hãy suy nghĩ trước khi hành động..!
✓ Khi muốn trả lời ai đó, bạn gõ @ cộng thêm nick diễn đàn của người đó phía sau @, giống như tag tên trên Facebook.
✓ Yêu cầu khi bình luận, bạn phải gõ chữ rõ ràng, không viết tắt, gõ tiếng Việt đầy đủ dấu câu.
✓ Nên dùng font chữ mặc định của diễn đàn, không tô màu lòe loẹt hay dùng size chữ quá lớn khi bình luận.
✓ Bài viết, comment... không được phép quảng cáo dịch vụ, rao vặt, pr... Loại trừ ở chuyên mục Rao vặt đã cho phép.
✓ Nghiêm cấm các chủ đề dạng: Cứu em với, help me, giật tít, câu view... dưới mọi hình thức.
✓ Tất cả các thành viên tham gia diễn đàn cần đọc kỹ Nội quy chung và nghiêm túc tuân thủ.


  • Thẻ
    tách dữ liệu thành nhiều cột
  • Top Bottom
    Liên hệ
    Chat ngay