Lọc hàng chẵn và lẻ trong Excel

[nghi_nguyen86]

Chào các bạn!
Mình có 1 cột số trong Excel (cột D) gồm khoảng 100 hàng. Bây giờ mình muốn lọc cột đó ra thành 1 cột gồm những hàng lẻ(D1,D3,D5...) và 1 cột gồm những hàng chẵn(D2,D4,D6...). Có bạn nào biết cách chỉ dùm mình.

 

Tags: nếu số cuối chẵn lẻ trong excel, cách lấy cốt chẵn trong excel, cách lọc số thứ tự chẵn lẻ trong excel, hà lọc số lẻ trong excel, cách tách bội chẵn trong excel, cách lấy dòng chẵn lẻ trong excel, công thức lọc dòng chẵn lẻ trong excel, hàm xóa dòng chẵn tron excel, cách lọc riêng hàng chẵn lẻ trong excel, cách tách bảng số thứ tự lẻ trong excel, hàm lấy hàng chẵn và hàng lẻ trong excel, cách tách thứ tự chẵn lẻ trong excel, lọc hàng chẵn và lẻ trong excel, tách dòng lẻ trong excel, cách tách số chẵn, lẻ trong exel, tách dòng chẵn lẻ trong excel

[maianhngoc1987]

- Ý mình muốn lọc ra 1 cột gồm các số (là các dữ liệu số nằm trên cột D) nằm trên những dòng lẻ và 1 cột gồm các số nằm trên những dòng chẵn.

- Mình có thử làm trên macro như hướng dẫn, nhưng nó cứ báo lỗi ở dòng: "Range("A" & (i div 2) + 1).Select"

 

[miumiususu1]

Chết chửa! Xin lỗi nha, vừa học VB vừa học Pascal nên bị tẩu hoả nhập ma.
Lộn div bên pascal với \ bên vb. Sửa lại thế này:Range("A" & (i\2+1)) là ok.

Macro chứ còn sao nữa trời ơi.
Kiếm đỏ mắt có ra chức năng nào đâu. Dùng Visual Basic for Application đó (VBA). (Mình là dân VB xoàng chứ không xài API, càng không bjk xài VBA, tự rà không hà chứ không xài thường)
Ấn chuột phải vào thanh công cụ, chọn Visual Basic. Trong thanh công cụ mới xuất hiện, bấm vào Visual Basic Editor. Trong cây project ấn chuột phải làm ra (tạo) module. Trong module mới làm ra (tạo) copy nguyên cái mã này vô: (nhớ vứt mấy dấu chấm đầu dòng nha, tại forum không cho bỏ trống đầu hàng)

Sub LocKot()
for i=1 to 100
..range("D" & i).select
..m=activecell.formular1c1
..if i mod 2=1 then
....'Tách ra cột A
....Range("A" & (i\2+1)).select
....activecell.formular1c1=m
..else
....'Tách ra cột B
....range("B" & (i/2)).select
....activecell.formular1c1=m
..end if
next i
end sub

Bấm Alt+Q, ấn nút Macro trong thanh Visual Basic, chọn LocKot, bấm Run. Xong.
Nếu có thắc mắc gì về VBA thì post email lên.
Visual Basic cực mạnh vì nó hỗ trợ Microsoft Office mà. Có ai thử vọc PowerPoint = VBA không chỉ mình cách vọc.

P/s: Mới thấy mod trả lời xong. Lọc nghĩa là tách ra đó mod ơi. VBA vô đối!!!



P/s: Nếu cần mình sẽ chỉ cho cách xài vba cho, cho mình email đi mình sẽ cho tài liệu.

 

[Filmer]

Thanks nhiều. Mà cách này có vẻ hơi khó nhỉ, phải biết thêm lập trình VB, phải chi có cách thao tác bằng hàm của Excel. Nhưng dù sao cũng vừa giải quyết được vấn đề.

 

[tamtinh20082003]

"Lọc" có thể hiểu theo nhiều nghĩa, không rõ bạn tính lọc ra sao. Nhưng có gợi ý là bạn có thể dùng hàm ROW(D1) sẽ trả về số thứ tự hàng của ô D1, rồi bạn chia số đó cho 2 để xem số dư là 0 hay 1 thì sẽ biết được hàng đó là chẵn hay lẻ.

 

[nguyenngocthanh021991]

Macro chứ còn sao nữa trời ơi. Kiếm đỏ mắt có ra chức năng nào đâu. Dùng Visual Basic for Application đó (VBA). (Mình là dân VB xoàng chứ không xài API, càng không bjk xài VBA, tự rà không hà chứ không xài thường)
Ấn chuột phải vào thanh công cụ, chọn Visual Basic. Trong thanh công cụ mới xuất hiện, bấm vào Visual Basic Editor. Trong cây project ấn chuột phải làm ra (tạo) module. Trong module mới làm ra (tạo) copy nguyên cái mã này vô: (nhớ vứt mấy dấu chấm đầu dòng nha, tại forum không cho bỏ trống đầu hàng)

Sub LocKot()
for i=1 to 100
..range("D" & i).select
..m=activecell.formular1c1
..if i mod 2=1 then
....'Tách ra cột A
....range("A" & (i div 2+1)).select
....activecell.formular1c1=m
..else
....'Tách ra cột B
....range("B" & (i/2)).select
....activecell.formular1c1=m
..end if
next i
end sub

Bấm Alt+Q, ấn nút Macro trong thanh Visual Basic, chọn LocKot, bấm Run. Xong.
Nếu có thắc mắc gì về VBA thì post email lên.
Visual Basic cực mạnh vì nó hỗ trợ Microsoft Office mà. Có ai thử vọc PowerPoint = VBA không chỉ mình cách vọc.

P/s: Mới thấy mod trả lời xong. Lọc nghĩa là tách ra đó mod ơi. VBA vô đối!!!