Hợp nhất các ô mà không làm mất giá trị bằng VBA trong Microsoft Excel
Trong bài viết này, chúng tôi sẽ tạo macro để hợp nhất các giá trị trong hai ô liên tiếp.
Dữ liệu thô bao gồm dữ liệu phòng ban, bao gồm ID phòng ban, số hàng và tên.
Trong bài viết này, chúng tôi muốn hợp nhất Mã phòng ban và Số cuộn vào một cột duy nhất.
Giải thích mã
Do Until IsEmpty (Cells (IntRow, IntCol))
Vòng lặp Đoạn mã trên được sử dụng để lặp cho đến khi tìm thấy một ô trống.
Cells (IntRow, IntCol) = Cells (IntRow, IntCol) & “-” & Cells (IntRow, IntCol + 1)
Đoạn mã trên được sử dụng để nối các giá trị vào một ô duy nhất, được phân tách bằng dấu “-”.
Cells (IntRow, IntCol + 1) .ClearContents Đoạn mã trên được sử dụng để xóa nội dung khỏi ô.
Phạm vi (Ô (IntRow, IntCol), Ô (IntRow, IntCol + 1)). Hợp nhất Đoạn mã trên được sử dụng để hợp nhất hai ô liên tiếp với nhau.
Với Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Đoạn mã trên được sử dụng để căn giữa văn bản theo chiều ngang và chiều dọc.
Vui lòng theo dõi bên dưới để biết mã
Option Explicit
Sub Connects()
'Declaring variables
Dim IntRow, IntCol As Integer
'Initializing row and column number of first cell
IntRow = 9
IntCol = 1
'Disabling screen updates
Application.ScreenUpdating = False
'Looping through cells until blank cell is encountered in first column
Do Until IsEmpty(Cells(IntRow, IntCol))
'Merging value from two cells in the first column
Cells(IntRow, IntCol) = Cells(IntRow, IntCol) & " - " & Cells(IntRow, IntCol + 1)
'Clearing content from second column
Cells(IntRow, IntCol + 1).ClearContents
'Merging two cells
Range(Cells(IntRow, IntCol), Cells(IntRow, IntCol + 1)).Merge
'Moving to next row
IntRow = IntRow + 1
Loop
'Formatting the first column
Columns(IntCol).Select
'Setting the horizonatal and vertical alignment to center
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Range("A10").Select
End Sub
Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.
Chúng tôi rất muốn nghe ý kiến từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]