Làm sao giữ nguyên định dạng chữ khi chạy công thức excel (1 người xem)

[Trangdigital]

Xin chào,

Mình làm hàm excel với 1 dữ liệu có sẵn. Khi chạy công thức lại bị mất định dạng màu của text.

Có cách nào để giữ nguyên định dạng ô (text và màu) khi chạy hàm không ạ?
Mong mọi người giúp đỡ. Mình cảm ơn rất nhiều.

 

[bebo021999]

1 cách dùng VBA nhé.
Click chuột phải vào sheet name, View Code, Insert/ Module rồi dán code này vào. Nhấn F5 chạy code.
Lưu file dạng .xlsm

Option Explicit
Sub test()
Dim rng As Range, cell As Range
Set rng = Range("A2:A3")
rng.Copy Range("D2")
For Each cell In rng.Offset(, 3)
    cell.Replace "@@@@", vbLf
Next
End Sub

 

[Trangdigital]

1 cách dùng VBA nhé.
Click chuột phải vào sheet name, View Code, Insert/ Module rồi dán code này vào. Nhấn F5 chạy code.
Lưu file dạng .xlsm

Option Explicit
Sub test()
Dim rng As Range, cell As Range
Set rng = Range("A2:A3")
rng.Copy Range("D2")
For Each cell In rng.Offset(, 3)
    cell.Replace "@@@@", vbLf
Next
End Sub

Cảm ơn câu trả lời của bạn nha.
Cho mình hỏi thêm vì dữ liệu mình làm có 3 vấn đề.
- Vấn đề thứ 1: Dữ liệu trong word của mình hiển thị như hình (có ngắt dòng và màu chữ khác nhau), Khi copy qua excel thì mỗi dòng lại thành 1 ô
=> Có cách nào để chuyển word sang excel mà giữ nguyên định dạng cell không bạn?

- Vấn đề thứ 2: (Nếu vẫn cách làm cũ là dùng VBA và "@@@@" ngắt dòng) nhưng với những ô có "@@@@" thì màu chữ không giữ đc định dạng nữa...

- Vấn đề thứ 3: Khi mình làm hàm vlookup lấy dữ liệu một sheet khác, thì dữ liệu cũng không lấy được định dạng màu của chữ (ô có 2 màu chữ thì thành 1 màu). VBA có cách nào không vậy bạn?

Mong nhận được câu trả lời của bạn, cảm ơn bạn lần nữa !!!