blackhat8x
Thành viên chính thức


- Tham gia
- 1/3/09
- Bài viết
- 80
- Được thích
- 259


B1=A1:A20Tại cột B1 lấy toàn bộ giá trị mail từ A1 đến A20. Giá trị của mỗi cột lấy được ngăn cách nhau bằng dấu ; để gửi mail cho tiện.
Xin các bác chỉ giúp em ạ
Thêm 1 cách không dùng công thức:Tại cột B1 lấy toàn bộ giá trị mail từ A1 đến A20. Giá trị của mỗi cột lấy được ngăn cách nhau bằng dấu ; để gửi mail cho tiện.
Xin các bác chỉ giúp em ạ
Sub abc()
Dim i, a
i = 1: a = [a1]
Do While Range("A" & i) <> ""
a = a & "," & [a1]
i = i + 1
Loop
[b1] = a
End Sub
B1=A1:A20
Nhấn F9, rồi Enter.
Xóa dấu ={ và } trong B1.
Ctrl + H, mục Find what nhập vào dấu 2 nháy ".
Click Replace All, OK


Hay quá bác ạ... Mỗi tội e ko Replace dc.. đành phải làm kiểu nông dân...! Cám ơn bác.. cái mấu chốt đã giải quyết đươc..!B1=A1:A20
Nhấn F9, rồi Enter.
Xóa dấu ={ và } trong B1.
Ctrl + H, mục Find what nhập vào dấu 2 nháy ".
Click Replace All, OK


Dạ em cảm ơn ạ..!B1=Transpose(A1:A20)&";"
Nhấn F9
Sửa { thành concatenate(
Sửa } thành )
Chủ thớt nên đổi tiêu đề lại thành "Nối chuỗi với ; làm dấu ngăn" trước khi bài bị khoá vì phạm lỗi "tiêu đề chung chung"