Giúp tạo macro merge cells và canh giữa dữ liêu trong excel

[mavanthang]

Mình có file muốn tạo macro:
Hướng 1: Delete dòng tô vàng và gán dữ liệu vùng đó lên phía sau chữ kính gửi như trong hinh
Hướng 2:Thực hiện Merge cells những dòng tô vàng và canh giữa vùng dữ liệu đó luôn
Xin chân thành cảm ơn

View more random threads:

• List rút gọn để in
• Hỏi cách làm thời khóa biểu dạy ôn thi lớp 9
• Bt excel
• Mọi người viết code giúp mình đánh Số thứ tự liên xen kẻ giữa các ô bị gộp lại
• Nhê c¸c B¸c söa gióp chøc n¨ng in hµng lo¹t trong file VBA
• Cách điền dữ liệu bằng thanh bar
• Hàm MAXIFS trong Excel 2016
• Ký tự ~
• Xin Chào: Mình muốn hỏi...
• Mọi người chỉ em mấy bài excel này với ạ! Em sắp thi nghề rồi ạ.

[quanghuyz2007]

Mình có file muốn tạo macro:
Hướng 1: Delete dòng tô vàng và gán dữ liệu vùng đó lên phía sau chữ kính gửi như trong hinh
Hướng 2:Thực hiện Merge cells những dòng tô vàng và canh giữa vùng dữ liệu đó luôn
Xin chân thành cảm ơn

Dòng tô màu vàng xóa mất rồi lấy gì trộn cell???

[danga]

Đây là hướng đi 1B:

Option ExplicitSub Huong1() Dim Rng As Range, sRng As Range Dim MyAdd As String  Set Rng = Range([e1], [E65500].End(xlUp)) Set sRng = Rng.Find("Kính g", , xlFormulas, xlPart) If Not sRng Is Nothing Then    MyAdd = sRng.Address    Do        sRng.Offset(, 1).Value = Cells(sRng.Row + 1, "A").Value        Cells(sRng.Row + 1, "A").Resize(, 9).Value = ""        Rows(sRng.Row + 1 & ":" & sRng.Row + 1).RowHeight = 0.5        Set sRng = Rng.FindNext(sRng)    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd End IfEnd Sub  

[noithatnhaxanh]

Dòng tô màu vàng xóa mất rồi lấy gì trộn cell???

Ben trong file mình để 2 hướng.1.là delet và gán lên tren.hướng 2 là trộn ô và canh giữa.tức là 2 cách làm chứ không phải gộp chung bạn à

[thuvov]

Ben trong file mình để 2 hướng.1.là delet và gán lên tren.hướng 2 là trộn ô và canh giữa.tức là 2 cách làm chứ không phải gộp chung bạn à

Hướng 2 đây

Sub TronCell()Dim arr(), i As Long, dk As Stringdk = [A2].Valuearr = Range("A1", [A65536].End(3)).ValueFor i = 1 To UBound(arr)   If arr(i, 1) = dk Then      With Cells(i + 1, 1).Resize(, 9)         .MergeCells = True         .HorizontalAlignment = xlCenter      End With   End IfNextEnd Sub