Note: The other languages of the website are Google-translated. Back to English

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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (3)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Để giải quyết vấn đề, bạn có thể thực hiện như sau: Sử dụng ví dụ trên, 1. Nhập "= a2" vào c2 và "= a3" vào d3. 2. Bây giờ chọn c2 đến d3. 3. Kéo chốt điền song song với tất cả dữ liệu. 4. Bây giờ xóa ô a2 và chuyển các ô lên trên. 5. Bây giờ chúng ta cần chuyển đổi kết quả công thức thành các giá trị được tính toán. Điều đó dễ dàng được thực hiện bằng cách sao chép tất cả dữ liệu bao gồm các hàng trống và dán các giá trị ngay trên chính nó. 6. Bây giờ bạn có thể đơn giản sắp xếp bất kỳ cột nào theo thứ tự bảng chữ cái để hiển thị tất cả dữ liệu.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào để làm ngược lại với điều này? Nhận thông tin hai cột trong một hàng?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Jas,
Để làm ngược lại điều này, để chuyển đổi dữ liệu hai cột thành một cột duy nhất, bạn nên áp dụng mã VBA dưới đây:

Sub ConvertRangeToColumn ()
Dải mờ 1 Theo Dải, Dải2 Theo Dải, Rng Theo Dải
Dim rowIndex dưới dạng số nguyên
xTitleId = "KutoolsforExcel"
Đặt Range1 = Application.Selection
Đặt Range1 = Application.InputBox ("Phạm vi nguồn:", xTitleId, Range1.Address, Type: = 8)
Đặt Range2 = Application.InputBox ("Chuyển đổi thành (ô đơn):", xTitleId, Loại: = 8)
hàng Index = 0
Application.ScreenUpdating = Sai
Đối với mỗi Rng trong phạm vi1. Hàng
Rng.Copy
Range2.Offset (rowIndex, 0) .PasteSpecial Paste: = xlPasteAll, Transpose: = True
rowIndex = rowIndex + Rng.Columns.Count
Sau
Application.CutCopyMode = Sai
Application.ScreenUpdating = True
End Sub

Hãy cố gắng, hy vọng nó có thể giúp bạn!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL