Bỏ qua nội dung chính

Làm cách nào để tách một cột cho mỗi hàng khác trong Excel?

doc chia mỗi hàng khác 1

Ví dụ: tôi có một danh sách dài dữ liệu và bây giờ, tôi muốn chia cột thành hai danh sách bằng nhau cho mỗi hàng khác như hình minh họa sau. Có cách nào tốt để giải quyết công việc này trong Excel không?

Tách một cột mỗi hàng khác bằng Công thức

Tách một cột mỗi hàng khác bằng mã VBA

Tách một cột cho mỗi hàng khác bằng Kutools cho Excel


mũi tên màu xanh bong bóng bên phải Tách một cột mỗi hàng khác bằng Công thức

Các công thức sau đây có thể giúp bạn nhanh chóng tách một cột thành hai cột theo mỗi hàng khác, vui lòng thực hiện như sau:

1. Nhập công thức này vào một ô trống, chẳng hạn như C2, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), xem ảnh chụp màn hình :

doc chia mỗi hàng khác 2

2. Sau đó kéo chốt điền xuống cho đến khi lỗi hiển thị trong các ô, xem ảnh chụp màn hình:

doc chia mỗi hàng khác 3

3. Sau đó, nhập một công thức khác vào ô D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)và kéo chốt điền xuống các ô cho đến khi các giá trị lỗi xuất hiện và các giá trị cột đã được chia thành hai cột mỗi hàng khác, hãy xem ảnh chụp màn hình:

doc chia mỗi hàng khác 4


mũi tên màu xanh bong bóng bên phải Tách một cột mỗi hàng khác bằng mã VBA

Nếu bạn quan tâm đến mã VBA, ở đây, tôi có thể nói về một mã để bạn giải quyết vấn đề này.

1. Giữ ALT + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Tách một cột thành hai cột mỗi hàng khác

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn chọn phạm vi dữ liệu mà bạn muốn tách, xem ảnh chụp màn hình:

doc chia mỗi hàng khác 5

4. và bấm OK, một hộp nhắc nhở khác được xuất hiện để cho phép bạn chọn một ô để đặt kết quả, xem ảnh chụp màn hình:

doc chia mỗi hàng khác 6

5. Sau đó nhấn vào OKvà cột đã được chia thành hai cột bởi mỗi hàng khác. Xem ảnh chụp màn hình:

doc chia mỗi hàng khác 7


mũi tên màu xanh bong bóng bên phải Tách một cột cho mỗi hàng khác bằng Kutools cho Excel

Nếu bạn muốn tìm hiểu thêm những điều mới, tôi có thể giới thiệu một công cụ mạnh mẽ -Kutools cho Excel, Với khả Phạm vi chuyển đổi tiện ích, bạn có thể nhanh chóng chuyển đổi một hàng hoặc một cột thành một phạm vi ô và ngược lại.

Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày

Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau :( Tải xuống miễn phí Kutools cho Excel ngay )

1. Chọn dữ liệu cột mà bạn muốn chia thành hai cột theo mỗi hàng khác.

2. Sau đó nhấn vào Kutools > Phạm vi > Phạm vi chuyển đổi, xem ảnh chụp màn hình:

3. Trong Phạm vi chuyển đổi hộp thoại, chọn Một cột thành dải ô theo Biến đổi kiểu, sau đó chọn Giá trị cố định và nhập 2 vào hộp trong Hàng trên mỗi bản ghi , xem ảnh chụp màn hình:

doc chia mỗi hàng khác 9

4. Sau đó nhấn vào Ok và một hộp nhắc sẽ bật ra để nhắc bạn chọn một ô mà bạn muốn xuất kết quả, xem ảnh chụp màn hình:

doc chia mỗi hàng khác 10

5. Nhấp chuột OK, dữ liệu danh sách đã được chia thành hai cột mỗi hàng khác.

Nhấp để biết thêm về tiện ích Transform Range này.

Tải xuống miễn phí Kutools cho Excel ngay

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to do the opposite of this? Get two column info in one row ?
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations