Mergel cell tự động

[giaosucan]

Chào các bác, em đang gặp vấn đề với merge cell như thế này ạ

Em select 1 vùng cell (gồm nhiều dòng, 2 cột (hoặc nhiều cột) , em cần
merge cell ở mỗi dòng ( ở mỗi dòng merge 2 cột lại )

Em gửi file đính kèm để dể hiểu hơn ạ

 

[hoangvuluan]

Tôi không biết liệu có phải bạn muốn viết macro để làm việc này hay không? vì nếu như thế thì bài của bạn sai box. Nếu không dùng macro thì tôi lại không biết có cách nào để merge cell đồng thời như thế không?

 

[giaosucan]

vâng cách nào cũng dc bác ạ

 

[giaosucan]

e nghĩ post ở đây cũng được

 

[hoangvuluan]

Bạn chó thể sử dụng macro sau để trộn các ô theo yêu cầu:

Sub MergeCells()
Dim ra As Range, i As Long, iR As Long, iC As Long, sTemp As String
With Application
Set ra = Selection
    If ra.Cells.Count = 1 Then
        On Error Resume Next
        Set ra = .InputBox(Prompt:="Chon vung can tron o", Title:="Merge Cells", Type:=8)
        On Error GoTo 0
    End If
    If ra Is Nothing Then Exit Sub
    iR = ra.Rows.Count
    iC = ra.Columns.Count
    For i = 1 To iR
        sTemp = ""
        For j = 1 To iC
            If ra(i, j) <> "" Then sTemp = sTemp & Chr(10) & Chr(13) & ra(i, j)
        Next
        If Left(sTemp, 2) = Chr(10) + Chr(13) Then sTemp = Right(sTemp, Len(sTemp) - 2)
        .DisplayAlerts = False
        ra.Rows(i).Merge
        .DisplayAlerts = True
        ra.Rows(i) = sTemp
        ra.Rows(i).HorizontalAlignment = xlCenter
    Next
End With
End Sub

Hoặc là bạn chọn trước vùng cần trộn rồi thực hiện macro, hoặc là chọn sau khi đã gọi macro.
Nếu các ô đều có dữ liệu thì macro sẽ nối các ô lại với nhau.

 

[giaosucan]

ah ok rồi thank bác nhiều nha