Kết hợp nhiều cells vào một cells với mã VBA

 
Các mã VBA sau đây có thể giúp bạn kết hợp nhiều tế bào vào một tế bào, và bạn có thể áp dụng mã với các bước sau:
 
1. Chọn các ô mà bạn muốn kết hợp.
 
2. Bấm Developer > Visual Basic , một mới Microsoft Visual Basic cho các ứng dụng cửa sổ sẽ được hiển thị, nhấp vào Insert > Mô-đun , và nhập mã sau vào Module:
 
Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub
 
3. Sau đó nhấn doc-nhân-tính-3nút để thực thi mã. Một hộp thoại hiện ra cho bạn chọn một phạm vi làm việc với VBA. Xem ảnh chụp màn hình:
 
ket-hop-nhieu-o-cel-vab
 
4. Nhấp vào Ok , hộp thoại khác sẽ được hiển thị cho bạn để xác định seperator, trong mặc định, seperator là dấu phẩy. Xem ảnh chụp màn hình:
 
ket-hop-nhieu-o-cel-vab1
 
5. Nhấn Ok , sau đó các nội dung di động trong phạm vi lựa chọn được kết hợp thành một tế bào. Xem ảnh chụp màn hình:
 
ket-hop-nhieu-o-cel-vab2
54.236.234.60

Bình luận

Các bài viết mới

Các tin cũ hơn