Đôi khi bạn có nhu cầu nối các ô với nhau.

Ví dụ: bạn có thể có thông tin trong ba cột, nhưng bạn muốn nó kết hợp với nhau thành cột đầu tiên của mỗi hàng. Macro sau, StuffTogether, sẽ thực hiện điều đó. Nó kiểm tra phạm vi ô bạn chọn, sau đó di chuyển mọi thứ từ mỗi ô liên tiếp vào ô đầu tiên của hàng.

Sub StuffTogether()

Dim FirstCol As Integer, FirstRow As Integer     Dim ColCount As Integer, RowCount As Integer     Dim ThisCol As Integer, ThisRow As Integer     Dim J As Integer, K As Integer     Dim MyText As String

FirstCol = ActiveWindow.RangeSelection.Column     FirstRow = ActiveWindow.RangeSelection.Row     ColCount = ActiveWindow.Selection.Columns.Count     RowCount = ActiveWindow.Selection.Rows.Count

For J = 1 To RowCount         ThisRow = FirstRow + J - 1         MyText = ""

For K = 1 To ColCount             ThisCol = FirstCol + K - 1             MyText = MyText & Cells(ThisRow, ThisCol).Text & " "

Cells(ThisRow, ThisCol).Value = ""

Next K         MyText = Trim(MyText)

Cells(ThisRow, FirstCol).Value = MyText     Next J End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (11944) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.