Code tích "x" cho vùng dữ liệu bị Merge cell

[Yeuvoyeucon]

Kính gửi Ạnh chị,
E có File muốn đánh dấy tích "x" nếu cột C khác rỗng nhưng với điều kiện tại vùng C bị hòa ô và muốn các ô tại cột A có chiều cao của hòa ô cũng được tích "x" như File. Có code gì làm được việc này không ạ.

 

[Hoàng Tuấn 868]

Kính gửi Ạnh chị,
E có File muốn đánh dấy tích "x" nếu cột C khác rỗng nhưng với điều kiện tại vùng C bị hòa ô và muốn các ô tại cột A có chiều cao của hòa ô cũng được tích "x" như File. Có code gì làm được việc này không ạ.

.................

 

[Yeuvoyeucon]

.................

file chưa có code gì anh ạ

 

[Hoàng Tuấn 868]

file chưa có code gì anh ạ

Ra kết quả là được rồi bạn, đâu cần code nhỉ.

 

[Yeuvoyeucon]

Ra kết quả là được rồi bạn, đâu cần code nhỉ.

Em chưa hiểu ạ, cái hàm của anh em làm lại mà không được ạ. Em có thử merge ô lại nó vẫn không ra. A chưa hiểu thao tác anh thế nào mà được thế ạ.

 

[Phuocam]

Thử code này:

Sub Tich_X()
  Dim Rng As Range, eRow&, i&
  Application.ScreenUpdating = False
  With ActiveWorkbook.ActiveSheet
    eRow = .Range("C" & Rows.Count).End(xlUp).Row
    For i = 4 To eRow
        Set Rng = .Range("C" & i).MergeArea
        If Rng.Cells(1, 1).Value <> "" Then Rng.Offset(0, -1).Resize(Rng.Rows.Count, 1).Value = "X"
        i = i + Rng.Rows.Count - 1
    Next i
  End With
  Application.ScreenUpdating = True
End Sub

Code nguồn tại đây:

Các ô sau khi đã Merge & Center không thể kéo công thức được

Mấy ngày nay mình gặp khó khăn với những Ô sau khi đã sử dụng chức năng merge & center. Mặc dù đã hỏi bài rất nhiều trên diễn đàn nhưng vẫn cảm thấy không thực sự ưng ý. Vậy nên xin phép cho mình hỏi lại ở đây ạ. Mong được mọi người giúp đỡ %$$

www.giaiphapexcel.com