Giúp mình hàm có thể liệt kê tất cả các hàng

[buonviem]

Mình có một file exel đã gửi kèm theo bài viết...Bạn nào có thể giúp mình liệt kê ra hết giá trị các dòng (Như trong cột B) cho đến hết giá trị 142 ạ...Mình chân thành cám ơn

 

[nguyenthuy13388]

Mình có một file exel đã gửi kèm theo bài viết...Bạn nào có thể giúp mình liệt kê ra hết giá trị các dòng (Như trong cột B) cho đến hết giá trị 142 ạ...Mình chân thành cám ơn

Dùng VBA:

Function noi(ByVal Rng As Range, Optional ByVal a As String = "") As String
noi = Join(WorksheetFunction.Transpose(Rng), a)
End Function

Công thức được viết như sau:

B2 =noi(A2:A143) ==> Nếu không dùng ký tự ngăn cách
Hoặc B2 =noi(A2:A143," ") ==> Nếu muốn dùng ký tự ngăn cách là "space"

 

[buonviem]

Dùng VBA:

Function noi(ByVal Rng As Range, Optional ByVal a As String = "") As String
noi = Join(WorksheetFunction.Transpose(Rng), a)
End Function

Công thức được viết như sau:

B2 =noi(A2:A143) ==> Nếu không dùng ký tự ngăn cách
Hoặc B2 =noi(A2:A143," ") ==> Nếu muốn dùng ký tự ngăn cách là "space"

Cảm ơn bạn nhưng mình cần làm bằng hàm có được không bạn...chứ VBA mình k biết chạy nó

 

[LamNA]

Mình có một file exel đã gửi kèm theo bài viết...Bạn nào có thể giúp mình liệt kê ra hết giá trị các dòng (Như trong cột B) cho đến hết giá trị 142 ạ...Mình chân thành cám ơn

Một cách thủ công dùng Justify mà hình như chỉ tối đa 250 ký tự nên dùng thêm hàm concatenate để nối chuỗi, còn nhanh gọn thì nên dùng VBA
Xem clip quay để biết cách làm

 

[nguyenthuy13388]

Cảm ơn bạn nhưng mình cần làm bằng hàm có được không bạn...chứ VBA mình k biết chạy nó

Bạn mở file đính kèm ==> enable macro ==> ấn tổ hợp phím Atl + F11, để tham khảo cách làm bằng VBA cho yêu cầu của bạn
Hiện tại mình chưa có cách nào làm bằng hàm cho bạn nếu bạn dùng bản office < 2019

Bài đã được tự động gộp: 22/10/19

Một cách thủ công dùng Justify mà hình như chỉ tối đa 250 ký tự nên dùng thêm hàm concatenate để nối chuỗi, còn nhanh gọn thì nên dùng VBA
Xem clip quay để biết cách làm

Còn 1 cách nữa: nếu dùng office 365 hoặc 2019 thì coa hàm textjoin giải quyết ngon luôn

 

[buonviem]

Bạn mở file đính kèm ==> enable macro ==> ấn tổ hợp phím Atl + F11, để tham khảo cách làm bằng VBA cho yêu cầu của bạn
Hiện tại mình chưa có cách nào làm bằng hàm cho bạn nếu bạn dùng bản office < 2019

Bài đã được tự động gộp: 22/10/19

Còn 1 cách nữa: nếu dùng office 365 hoặc 2019 thì coa hàm textjoin giải quyết ngon luôn

Cảm ơn bạn mình làm đc rồi...mình cứ coppy cái B2= noi... đó nên không chạy được hóa ra phải chạy bằng code trên kia...cảm ơn bạn nhiều

Bài đã được tự động gộp: 22/10/19

Một cách thủ công dùng Justify mà hình như chỉ tối đa 250 ký tự nên dùng thêm hàm concatenate để nối chuỗi, còn nhanh gọn thì nên dùng VBA
Xem clip quay để biết cách làm

Cảm ơn bạn mình làm được rồi

 

[LamNA]

Bạn mở file đính kèm ==> enable macro ==> ấn tổ hợp phím Atl + F11, để tham khảo cách làm bằng VBA cho yêu cầu của bạn
Hiện tại mình chưa có cách nào làm bằng hàm cho bạn nếu bạn dùng bản office < 2019

Bài đã được tự động gộp: 22/10/19

Còn 1 cách nữa: nếu dùng office 365 hoặc 2019 thì coa hàm textjoin giải quyết ngon luôn

Đã nghĩ tới nhưng chắc gì chủ thớt đã dùng nên đã loại trừ. khà khà