Mục lục
Hướng dẫn này sẽ trình bày cách chia chuỗi thành các ô.
Chia chuỗi thành các ô
Trong VBA, chúng ta có thể sử dụng Hàm tách để chia một chuỗi văn bản thành một Mảng.
Lưu ý: Chúng tôi đã viết toàn bộ hướng dẫn lớn để sử dụng Hàm tách trong VBA. Chúng tôi thực sự khuyên bạn nên kiểm tra nó.
Sau đó, chúng ta có thể lặp qua mảng, xuất văn bản được chia thành các ô Excel:
| 12345678910111213141516171819 | Sub SplitBySemicolonExample ()'Xác định các biếnDim MyArray () Dưới dạng chuỗi, MyString dưới dạng chuỗi, Tôi là biến thể, N là số nguyên'Chuỗi mẫu có dấu phân cách bằng dấu chấm phẩyMyString = "[email protected]; [email protected]; [email protected]; [email protected]"'Sử dụng hàm Split để phân chia các phần thành phần của chuỗiMyArray = Tách (MyString, ";")'Xóa trang tínhActiveSheet.UsedRange.Clear'lặp qua mảngĐối với N = 0 Đến UBound (MyArray)'Đặt từng địa chỉ email vào cột đầu tiên của trang tínhPhạm vi ("A" & N + 1) .Value = MyArray (N)N tiếp theoKết thúc Sub |
Ngoài ra, chúng ta có thể sử dụng Hàm Transpose để xuất mảng thành một trang tính:
| 12345678910111213 | Sub CopyToRange ()'Tạo các biếnDim MyArray () As String, MyString As String'Chuỗi mẫu có dấu cáchMyString = "Một, Hai, Ba, Bốn, Năm, Sáu"'Sử dụng hàm Split để phân chia các phần thành phần của chuỗiMyArray = Tách (MyString, ",")'Sao chép mảng vào trang tínhPhạm vi ("A1: A" & UBound (MyArray) + 1) .Value = WorksheetFunction.Transpose (MyArray)Kết thúc Sub |
