ke-toan-thuc-te

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

Liên quan: các hàm vba trong excel ; vòng lặp trong vba excel ; range trong excel la gi ; selection trong vba ; tham chieu trong vba ; offset trong vba ; hàm range trong vba ;

Comment lời nhắn:
Chua co comment nào

>>> Bạn đang có nhu cầu đăng ký tham gia lớp học kế toán hãy đăng ký để lại thông tin chúng tôi sẽ hỗ trợ tư vấn báo giá trực tiếp cho bạn
dang ky hoc ke toan

>>> Bài Viết Xem Nhiều Nhất

- Lịch khai giảng kế toán Hà Nội
- Khóa học thực hành kế toán trên excel
- Khai trương cơ sở Bình Dương Giảm 50% Học phí
- Khóa học kế toán cho người đã biết kế toán
- Khóa học kế toán dành cho người chưa biết
- Khóa học kế toán xây lắp
- Khóa học phần mềm kế toán Misa, Fast
- Nhận dạy kèm riêng kế toán 1 - 1
- Học kế toán theo thông tư 200/BTC

>>> Nếu bạn thấy Hay hãy Like và Chia sẻ cho bạn bè giúp chúng tôi. Xin cảm ơn. Bạn muốn nhận thông tin hay tài liệu mới nhất comment email của bạn ở phía dưới. Xin cảm ơn


Hãy like để nhận nhiều bài mới nhất

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

Các tin cũ hơn