Sử dụng VBA Chuyển đổi các giá trị phân tách bằng dấu phẩy
By Khách vào Thứ Ba, ngày 24 tháng 2019 năm XNUMX
Được đăng trong Excel
Trả lời 1
Lượt thích 0
Lượt xem 12.4K
Bình chọn 0
Sử dụng VBA để chuyển đổi chuỗi dấu phẩy của tôi thành hàng hoạt động tuyệt vời- nhưng bây giờ tôi cần phải khớp dấu chấm ra với giá trị trong cột A. Ví dụ
Cột A có "Cây: Cột B là chuỗi dấu phẩy: Dogwood, Ash, Maple, Elm, Apple.
Làm cách nào để hiển thị dưới dạng:
[font = Calibri]Current[/ nét chữ]
[font = Calibri]Cây[/ nét chữ][font = Calibri]Dogwood, Ash, Maple, Elm, Apple[/ nét chữ]
[font = Calibri]Cần[/ nét chữ]
[font = Calibri]Cây[/ nét chữ][font = Calibri]Cây dương đào[/ nét chữ]
[font = Calibri]Cây[/ nét chữ][font = Calibri]Tro[/ nét chữ]
[font = Calibri]Cây[/ nét chữ][font = Calibri]Cây phong[/ nét chữ]
[font = Calibri]Cây[/ nét chữ][font = Calibri]Cây du[/ nét chữ]
[font = Calibri]Cây[/ nét chữ][font = Calibri] Apple [/ font]
Cảm ơn bạn
Public Sub textToColumns ()
Đặt ARange = Range ("A: A")
Đặt BRange = Range ("B: B")
Đặt CRange = Range ("C: C")
Đặt DRange = Range ("D: D")
Dim arr () Dưới dạng chuỗi
lr = Cells.Find ("*", SearchOrder: = xlByRows, SearchDirection: = xlPrevious) .Row
Đặt ra = Worksheets.Add
out.Name = "out"
outRow = 2
Đối với i = 2 Đến lr
    arr = Tách (ARange (i), ",")
    Đối với j = 0 Đến UBound (arr)
        out.Cells (outRow, 1) = Trim (arr (j))
        out.Cells (outRow, 2) = BRange (i)
        out.Cells (outRow, 3) = CRange (i)
        out.Cells (outRow, 4) = DRange (i)
        outRow = outRow + 1
    Tiếp theo j
Tiếp theo
End Sub
Tôi đã không thực hiện các tiêu đề hoặc xử lý đúng với trang đầu ra nhưng bạn có thể thấy về cơ bản những gì đang xảy ra.
Lewis-H
·
năm 3 trước
·
0 Likes
·
Phiếu bầu 0
·
0 Comments
·
Xem toàn bộ bài viết