Làm cách nào để tách một cột cho mỗi hàng khác trong Excel?
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 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 :
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:
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:
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:
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:
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:
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:
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:
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
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...
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!