Gộp 2 cell lại thành 1

[Hưng Bắp]

Chào mọi người,
Mình cần gộp 2 cell lại thành 1 cell, có xuống hàng.
Vì sheet của mình có hơn 7000 tình huống như vậy, mong mọi người chỉ cách để thực hiện.
Cám ơn nhiều.

 

[phihndhsp]

Chào mọi người,
Mình cần gộp 2 cell lại thành 1 cell, có xuống hàng.
Vì sheet của mình có hơn 7000 tình huống như vậy, mong mọi người chỉ cách để thực hiện.
Cám ơn nhiều.
View attachment 198464

Công thức này chăng =A1&CHAR(10)&B1, hên suôi nha

 

[Hưng Bắp]

Không thành công bạn ơi.
Dù sao cũng cám ơn bạn đã quan tâm!

 

[phihndhsp]

Không thành công bạn ơi.
Dù sao cũng cám ơn bạn đã quan tâm!

Phải như vầy không?

 

[Hưng Bắp]

Hiện tại, mình dùng công thức để gộp 2 cell lại có chèn thêm 1 ký tự đặc biệt.
Mình cần giúp tạo 1 macro để thay dấu + thành lệnh xuống hàng vblf, mong được giúp đỡ.
Cám ơn.

Bài đã được tự động gộp: 29/6/18

Oh, để mình thự lại, sao mình chỉ ra AB, không xuống hàng?

 

[phihndhsp]

Hiện tại, mình dùng công thức để gộp 2 cell lại có chèn thêm 1 ký tự đặc biệt.
Mình cần giúp tạo 1 macro để thay dấu + thành lệnh xuống hàng vblf, mong được giúp đỡ.
Cám ơn.
View attachment 198466

Bài đã được tự động gộp: 29/6/18

Oh, để mình thự lại, sao mình chỉ ra AB, không xuống hàng?

Có thể sử dụng công thức này =SUBSTITUTE(C1,"+",CHAR(10))
còn nếu muốn VBA thì chờ các bạn khác giúp nha hihi

 

[Hưng Bắp]

Không hiểu sao bên mình không được. Mình còn dùng Excel 2003.

Cám ơn phihndhsp, nhưng nó không thành công với máy mình

 

[ndu96081631]

Không hiểu sao bên mình không được. Mình còn dùng Excel 2003.
View attachment 198468

Bài đã được tự động gộp: 29/6/18

Cám ơn phihndhsp, nhưng nó không thành công với máy mình

Format Wraptext cho kết quả chứ bạn

 

[Hưng Bắp]

Format Wraptext cho kết quả chứ bạn

Mình cũng muốn lắm mà không được

 

[ndu96081631]

Mình cũng muốn lắm mà không được
View attachment 198470View attachment 198471

Thì bạn chưa format Wraptext nên đương nhiên không được rồi
Thật ra bạn biết format Wraptext cho cell là gì không?

 

[nlbx]

Sử dụng macro với đoạn code sau:
Ci.select
Application.SendKeys Ai, True
Application.SendKeys "%{ENTER}", True
Application.SendKeys Bi, True
Application.SendKeys "{ENTER}", True

 

[Hưng Bắp]

Format Wraptext cho kết quả chứ bạn

Ah, format wraptext thành công.
Xin lỗi vì mình quá gà mờ
Cám ơn tất cả mọi người đã giúp đỡ nhiệt tình.

Bài đã được tự động gộp: 29/6/18

Sử dụng macro với đoạn code sau:
Ci.select
Application.SendKeys Ai, True
Application.SendKeys "%{ENTER}", True
Application.SendKeys Bi, True
Application.SendKeys "{ENTER}", True

Cám ơn nlbx!

 

[PacificPR]

Sử dụng macro với đoạn code sau:
Ci.select
Application.SendKeys Ai, True
Application.SendKeys "%{ENTER}", True
Application.SendKeys Bi, True
Application.SendKeys "{ENTER}", True

Oái. Bạn ơi sao mình copy cái đoạn trên vào mà nó không chạy nhỉ. Bạn giúp mình nha

 

[nlbx]

sub xxx()
Dim raSel , cllRun as Range
set raSel=Selection
set cllRun=raSel(1,raSel.columns.count+1)
cllRun.select
Application.ScreenUpdating = False
For i=1 to raSel.rows.count
Application.SendKeys raSel(i,1), True
Application.SendKeys "%{ENTER}", True
Application.SendKeys raSel(i,2), True
Application.SendKeys "{ENTER}", True
next
Application.ScreenUpdating = true
end sub

 

[phihndhsp]

sub xxx()
Dim raSel , cllRun as Range
end sub

Nếu đã khai báo biến thì nên khai như thế này
Dim raSel as Range, cllRun as Range
khai như trên chưa chắc biến raSel kiểu Range

 

[be_09]

Chào mọi người,
Mình cần gộp 2 cell lại thành 1 cell, có xuống hàng.
Vì sheet của mình có hơn 7000 tình huống như vậy, mong mọi người chỉ cách để thực hiện.
Cám ơn nhiều.
View attachment 198464

Không đưa File tôi làm đại hên thì trúng, nhấn nút xem kết quả.

 

[Hưng Bắp]

Không đưa File tôi làm đại hên thì trúng, nhấn nút xem kết quả.

Rất hay, cám ơn bạn đã cho mình thêm 1 giải pháp.

 

[PacificPR]

sub xxx()
Dim raSel , cllRun as Range
set raSel=Selection
set cllRun=raSel(1,raSel.columns.count+1)
cllRun.select
Application.ScreenUpdating = False
For i=1 to raSel.rows.count
Application.SendKeys raSel(i,1), True
Application.SendKeys "%{ENTER}", True
Application.SendKeys raSel(i,2), True
Application.SendKeys "{ENTER}", True
next
Application.ScreenUpdating = true
end sub

Bảo sao mà mình copy mấy dòng lệnh trên nó không chạy được. Hóa ra phải thêm mấy cái kia vào nữa. Cám ơn Bạn rất nhiều