Merge các ô trong excel<= các cao nhân giúp e với ạ

[hong1806]

Chào mọi người ạ,
E có file ship hàng, xuất 1 lần khoảng 2-3k, với mỗi giá trị giống nhau sẽ phải gộp ô. Mà gộp tay quả thật rất dễ sai sót. Các cao nhân xem giúp e code bên dưới sao e không dùng được thế ạ, liệu có phải xóa các dòng tiếng việt đi không ạ. E là con gái xem cái này quả thật như...c hó xem bản đồ. Mong các cao nhân chỉ giáo ạ

 

[Hoàng Tuấn 868]

Chào mọi người ạ,
E có file ship hàng, xuất 1 lần khoảng 2-3k, với mỗi giá trị giống nhau sẽ phải gộp ô. Mà gộp tay quả thật rất dễ sai sót. Các cao nhân xem giúp e code bên dưới sao e không dùng được thế ạ, liệu có phải xóa các dòng tiếng việt đi không ạ. E là con gái xem cái này quả thật như...c hó xem bản đồ. Mong các cao nhân chỉ giáo ạ

Chỉ cần bạn xóa những chữ không phải tiếng Việt trên bài viết của bạn và đừng viết tắt thì khả năng được trợ giúp sẽ cao hẳn lên đó.

 

[VetMini]

Chỉ cần bạn xóa những chữ không phải tiếng Việt trên bài viết của bạn và đừng viết tắt thì khả năng được trợ giúp sẽ cao hẳn lên đó.

Cái này lỗi tại tôi.
Tôi từng xui dại "cứ lấy cái tên phụ nữ mọt chút, xưng 'là con gái'" thì sẽ có khối anh nhào vào giúp.

 

[truongthon304]

Không biết code nhưng thấy trong Kutools có chức năng Merge same cells, bạn xem thử đúng yêu cầu chưa!

 

[bebo021999]

Bạn dùng thế nào mà không được?
Làm theo các bước:
1- Alt-F11, insert module, copy code vào
2- Trở ra bảng tính, chọn vùng A2 tới E1032
3- Trở lại cửa sổ VBA, nhấn F5 chạy code

 

[vanle33]

Chào mọi người ạ,
E có file ship hàng, xuất 1 lần khoảng 2-3k, với mỗi giá trị giống nhau sẽ phải gộp ô. Mà gộp tay quả thật rất dễ sai sót. Các cao nhân xem giúp e code bên dưới sao e không dùng được thế ạ, liệu có phải xóa các dòng tiếng việt đi không ạ. E là con gái xem cái này quả thật như...c hó xem bản đồ. Mong các cao nhân chỉ giáo ạ

Biết đâu cờ hó cũng xem được bản đồ thì sao, kakaka. Mà xem 1 cách ngon lành.
Copy code vào sheet hoặc file / chọn vùng A1:E1032 / chạy code = Developer-> Macro-> chọn Marco-> Run.
Ra kết quả như file dưới. Có đúng ý cờ hó? kakaka

 

[VetMini]

... khả năng được trợ giúp sẽ cao hẳn lên đó.

Thấy tôi nói ở bài #3 chưa? chỉ cần nhắc lại hai từ "con gái"

 

[vanle33]

@hong1806 : Không thấy khổ chủ lên tiếng. Cho hỏi khổ chủ mang giới tính thật là gì? Thời buổi này nhiều giới tính mà pháp luật sắp công nhận.

 

[6677028]

Chào mọi người ạ,
E có file ship hàng, xuất 1 lần khoảng 2-3k, với mỗi giá trị giống nhau sẽ phải gộp ô. Mà gộp tay quả thật rất dễ sai sót. Các cao nhân xem giúp e code bên dưới sao e không dùng được thế ạ, liệu có phải xóa các dòng tiếng việt đi không ạ. E là con gái xem cái này quả thật như...c hó xem bản đồ. Mong các cao nhân chỉ giáo ạ

bạn có thể lấy vidu là bảng bạn muốn nó như thế nào?

 

[hong1806]

E cảm ơn các cao nhân đã giúp đỡ ạ. Nhưng em chạy file thì nó lại báo lỗi màu vàng như thế này ạ, huhu. Em mà sửa được file này là thành 1 cải tiến của năm, được 50k đấy ạ. Mong các bác giúp đỡ.

 

[bebo021999]

Trong code của bạn dòng đầu là:
Set WorkRng = Selection
Nên muốn chạy code thì việc đầu tiên bạn phải qúet chọn vùng trước. (Làm các bước như bài 5 của tôi nhé)

 

[HUONGHCKT]

Chào mọi người ạ,
E có file ship hàng, xuất 1 lần khoảng 2-3k, với mỗi giá trị giống nhau sẽ phải gộp ô. Mà gộp tay quả thật rất dễ sai sót. Các cao nhân xem giúp e code bên dưới sao e không dùng được thế ạ, liệu có phải xóa các dòng tiếng việt đi không ạ. E là con gái xem cái này quả thật như...c hó xem bản đồ. Mong các cao nhân chỉ giáo ạ

Góp vui.

Sub AutoMergeCenter1() 'l?nh T? đ?ng tr?n ô và căn gi?a

Dim Rng As Range
Dim xRows As Integer, xColumns As Integer
Dim WorkRng As Range
Dim i As Integer, j As Integer

Set WorkRng = Selection 'Vùng đư?c ch?n
xRows = WorkRng.Rows.Count 'Bi?n xác đ?nh s? d?ng c?a vùng đư?c ch?n, là gi?i h?n ph?m vi v?ng l?p
xColumns = WorkRng.Columns.Count
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For j = 1 To xColumns
    For i = 1 To xRows
            If WorkRng(i, j).Value <> WorkRng(i + 1, j).Value Then
                 Set Rng = WorkRng(i, j)
            Else
                If Rng Is Nothing Then Set Rng = WorkRng(i, j) Else Set Rng = Union(Rng, WorkRng(i, j))
                Rng.Merge
            End If
    Next
Next
WorkRng.VerticalAlignment = xlCenter 'Căn gi?a cho vùng đư?c ch?n

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[6677028]

Của bạn đây bạn xem có đúng k