Xin giúp code VBA paste nhiều ô vào 1 ô

[hoang0569]

Anh em giúp mình code VBA như tiêu đề trên, ví dụ: ô A1,B1,C1....lần lượt có các số là: 1,2,3, kết qủa ô D1=123. Xin cảm ơn.

 

[TongDe]

Anh em giúp mình code VBA như tiêu đề trên, ví dụ: ô A1,B1,C1....lần lượt có các số là: 1,2,3, kết qủa ô D1=123. Xin cảm ơn.

[d1] = [a1] & [b1] & [c1]

 

[hoang0569]

Cảm ơn anh, em muốn xem thêm code VBA thế nào, anh giúp em nhé

 

[Phuocam]

em muốn xem thêm code VBA thế nào

Range("D1").Value = Range("A1").Value & Range("B1").Value & Range("C1").Value

 

[phulien1902]

Cảm ơn anh, em muốn xem thêm code VBA thế nào, anh giúp em nhé

Hoặc:

[d1] = [A1&B1&C1]

 

[hoang0569]

Có thể giữ được cả Formatting Font color của từng ô được gộp không anh?

 

[TongDe]

Cảm ơn anh, em muốn xem thêm code VBA thế nào, anh giúp em nhé

Alt+F11: Xem code

Sub Noi()
    [d1] = [a1] & [b1] & [c1]
    [d2] = [a2] & [b2] & [c2]
End Sub
Sub Xoa()
    Range("d1:d2").ClearContents
End Sub

 

[PacificPR]

Có thể giữ được cả Formatting Font color của từng ô được gộp không anh?

Được Bạn. Nhưng để làm gì vậy

 

[hoang0569]

Anh giúp em nhé, em dùng màu font để phân biệt số đó nằm ở ô nào, cảm ơn anh

 

[PacificPR]

Úi vậy có nghìn ô thì Bạn phải tô nghìn màu đó nha.
Trong excel có phần ghi chú đó. Bạn đưa vào đó khi di chuyển đến ô đó nó hiện lên dễ hơn là cách tìm màu nhiều

 

[hoang0569]

Số liệu sau khi lọc ra không nhiều nên em mới dùng cách này anh ơi

 

[PacificPR]

Số liệu sau khi lọc ra không nhiều nên em mới dùng cách này anh ơi

Vậy Bạn cho file ví dụ chứ. Để mọi người đoán già đoán non chán chết

 

[hoang0569]

Em gửi File ví dụ, anh xem giúp

 

[PacificPR]

Em gửi File ví dụ, anh xem giúp

Ủa cái này là ghép thứ tự có điều kiện í. Trong file là kiểu A-Z

 

[hoang0569]

Nếu theo thứ tự phức tạp quá, anh giúp vẫn giữ định dạng font là tốt rồi ah

 

[PacificPR]

Nếu theo thứ tự phức tạp quá, anh giúp vẫn giữ định dạng font là tốt rồi ah

Thực ra nếu toàn bộ là số thì chả có gì phức tạp. Có gì mai mình thử. Nếu là số thì chạy vòng lặp dùng Dic ghi lại số trong ô và mầu chữ.xong chạy vòng nũa vừa nối vùa tô mầu chắc cũng được
Có ví dụ rồi các anh chị khác sẽ giúp bạn nhiều cách hay hơn hướng mình đang nghĩ

 

[hoang0569]

Vâng, mai anh rảnh giúp e nhé, mọi người cùng giúp em nhé

 

[PacificPR]

Vâng, mai anh rảnh giúp e nhé, mọi người cùng giúp em nhé

Bạn xem thử nhé

 

[hoang0569]

Anh ơi, các ô dùng Formatting thì không được, nhưng vậy là tốt lắm rồi, cảm ơn anh nhiều.