Hỏi cách định dạng 1 phần font chữ trong cell thành chữ đậm hàng loạt

[kimdong80]

Tôi có 1500 ô chứa 1500 câu hỏi và đáp án
Xin chỉ cho tôi cách nhanh nhất để chỉnh font chữ các câu hỏi trong mỗi ô thàng chữ đậm mà câu trả lời thì vẫn là chữ thường.
Thanks

 

[sealand]

Bạn xem bài trả lời ở bài này

 

[ChanhTQ@]

Đúng là, muốn giải quyết vấn đề này chỉ có thể là VBA.

Mà điểm mấu chốt nằm ở chỗ, giữa phần câu hỏi & phần trả lời được ngăn cách bằng ký hiệu gì đặc trưng (duy nhất) trong ô.
Có cái này rồi, thì VBA sẽ chỉ ra ngay cách làm cho bạn được thôi.
Chờ tin bạn & thân ái!

 

[kimdong80]

nội dung của 1 cell như thế này:câu 1 &char(10)&nội dung câu hỏi&char(10)&đáp án 1&char(10)&đáp án 2.Mong bạn giúp đỡ

 

[sealand]

Nếu đúng dữ liệu như vậy thì vấn đề của bạn đã được giải quyết. Bài mình gửi ở đây

 

[SA_DQ]

Macro của bạn đây, xin mời xem & cho biết đúng ý chưa nha.

Trước khi chạy thử macro, ta cần định dạng các ô cột 'B' trở về bình thường (không Bold nữa)

Option Explicit
Sub BoldString()
 Dim lRw As Long, Ff As Long
 Dim BDau As Byte, KThuc As Integer
 lRw = [b65500].End(xlUp).Row
 For Ff = 2 To lRw
    With Cells(Ff, "B")
    BDau = InStr(1, .Value, Chr(10))
        If BDau > 0 Then
            KThuc = InStr(BDau + 1, Cells(Ff, "B"), Chr(10))
            With .Characters(Start:=BDau, Length:=KThuc - BDau).Font
                .FontStyle = "Bold"
            End With
        End If
    End With
 Next Ff
End Sub