Cần giúp đỡ về Merge

[tuoigiyeuem]

Em có 1 cột dữ liệu trong đó thỉnh thoảng lại có vài dòng Merge với nhau
ví dụ: merge : a3,a4,a5 có giá trị là 29
khi em bỏ merge thì chỉ có ô a3 là có giá trị 29 còn a4 và a5 rỗng, giờ em muốn làm cách nào nhanh để khi bỏ merge ta có thể copy giá trị cho những ô rỗng trong vùng merge ( cho a4, a5 đều có giá trị 29 ) .
Vì cột dữ liệu của em rất lớn nên làm thủ công thì rất lâu và có thể sẽ nhầm lẫn.
Mong các anh chị giúp em.

 

[Ba Tê]

Em có 1 cột dữ liệu trong đó thỉnh thoảng lại có vài dòng Merge với nhau
ví dụ: merge : a3,a4,a5 có giá trị là 29
khi em bỏ merge thì chỉ có ô a3 là có giá trị 29 còn a4 và a5 rỗng, giờ em muốn làm cách nào nhanh để khi bỏ merge ta có thể copy giá trị cho những ô rỗng trong vùng merge ( cho a4, a5 đều có giá trị 29 ) .
Vì cột dữ liệu của em rất lớn nên làm thủ công thì rất lâu và có thể sẽ nhầm lẫn.
Mong các anh chị giúp em.

1/ Bỏ Merge cột A - Chọn vùng dữ liệu, Auto Filter, cột A Chọn Blanks
2/ Ô A4 nhập công thức =A3, kéo copy xuống hết vùng Filter
3/ Thoát chế độ Filter
4/Copy cột A, Paste Value lại tại chỗ (cột A)

 

[tuoigiyeuem]

Cám ơn anh nhé, em làm được rồi .

 

[tuoigiyeuem]

Em nhờ anh Merge ngược lại hộ em với.
Giờ em cần Merge ô có giá trị với những ô trống ở dòng dưới như file đính kèm. Cám ơn anh.

 

[khuongvietphong]

Em nhờ anh Merge ngược lại hộ em với.
Giờ em cần Merge ô có giá trị với những ô trống ở dòng dưới như file đính kèm. Cám ơn anh.

Bạn thử dùng đoạn sub sau :

Sub thu()
i = 3
For j = 4 To 13
  If Cells(j, 2) <> "" Then
    Range("B" & i & ":B" & j - 1).MergeCells = True
    i = j
   End If
Next j
End Sub

 

[tuoigiyeuem]

Cám ơn bạn. Mình làm được rồi