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:
Cảm ơn bạn
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] |
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.
Đặ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.
- Trang :
- 1
Không có câu trả lời cho bài viết này.