Copy Dữ liệu, bỏ qua khoảng trống của dòng (3 người xem)

[pepperoni2611]

Em chào các anh chị

Nhờ các anh chị giúp em trong bài toán này

Em có 1 cột dữ liệu không liên tục (có các dòng trắng), em muốn lọc dữ liệu có trong cột và copy sang 1 cột của sheet khác, bỏ qua các dòng trắng

kết quả là thu đc một cột có các dữ liệu liên tục

điều này có khả thi ko ạ. Mong các bác giúp đỡ (dưới là hình minh hoạ)

 

[chucuoi92]

Em chào các anh chị

Nhờ các anh chị giúp em trong bài toán này

Em có 1 cột dữ liệu không liên tục (có các dòng trắng), em muốn lọc dữ liệu có trong cột và copy sang 1 cột của sheet khác, bỏ qua các dòng trắng

kết quả là thu đc một cột có các dữ liệu liên tục

điều này có khả thi ko ạ. Mong các bác giúp đỡ (dưới là hình minh hoạ)

Rất đơn giản.Bạn giữ phim ctrl đồng thời dùng chuột chọn các vùng cần copy sau khi đã chon xong thì bỏ phím ctrl ra nháy chuột phải chon copy rồi dán vào vùng cần thiết.

 

[DOSNET]

- Cách của Chu.cuoi92 chỉ OK khi dữ liệu có ít, nếu nhiều thì hơi mỏi...
- Cách này nhanh hơn, bạn chọn cột cần copy, ấn Ctrl+G\Special\Costants, OK như vậy dữ liệu trên cột đã được chọn (bôi đen), chọn copy và paste vào nơi bạn muốn. Thân!

 

[chucuoi92]

- Cách của Chu.cuoi92 chỉ OK khi dữ liệu có ít, nếu nhiều thì hơi mỏi...
- Cách này nhanh hơn, bạn chọn cột cần copy, ấn Ctrl+G\Special\Costants, OK như vậy dữ liệu trên cột đã được chọn (bôi đen), chọn copy và paste vào nơi bạn muốn. Thân!

Khà khà .. học thêm được cách mới.
Đi theo bác DOSNET thật sảng khoái

 

[le.minhSEV]

Cái này có lẽ dùng theo kiểu lọc từ A đến Z (hoặc ngược lại) là nhanh nhất.

 

[ndu96081631]

Cái này có lẽ dùng theo kiểu lọc từ A đến Z (hoặc ngược lại) là nhanh nhất.

Giả sử người ta muốn giữ nguyên vị trí dử liệu (cái nào nằm trên thì lọc ra nó cũng nằm trên) ---> Vậy làm theo kiểu của bạn có được không?

 

[tuan.vms2002]

Nói như bạn thì dwux liệu khoảng 1500 dòng thì làm biết chừng nào mới xong.Xin chỉ em công thức để lọc .Cám ơn nhiều.

 

[khoavu87]

Nói như bạn thì dwux liệu khoảng 1500 dòng thì làm biết chừng nào mới xong.Xin chỉ em công thức để lọc .Cám ơn nhiều.

bạn thử dòng code này xem thế nào:

Sub Macro1()
Columns("A:A").SpecialCells(xlCellTypeConstants, 23).Select
Selection.Copy Range("B1")
End Sub

Bật alt+ F11 để xem code và nhấn F5 để chạy nhé.Chi tiết xem file đính kèm.

 

[TrungChinhs]

Code của KhoaVu87 có thể viết như thế này (gọn hơn tý tẹo)

Sub Macro1()
    [a:a].SpecialCells(2).Copy [B1]
End Sub

 

[Hoàng Trọng Nghĩa]

Code của KhoaVu87 có thể viết như thế này (gọn hơn tý tẹo)

Sub Macro1()
    [a:a].SpecialCells(2).Copy [B1]
End Sub

Nếu vậy em xin mạn phép được rút gọn thêm tí nữa nhé:

1) Với copy giữ luôn giá trị và format:

[a:a].copy [b1]

2) Với copy chỉ lấy giá trị (như past special > value):

[b:b]=[a:a].value

Kính mong được học hỏi thêm.

 

[TrungChinhs]

Nếu vậy em xin mạn phép được rút gọn thêm tí nữa nhé:

1) Với copy giữ luôn giá trị và format:

[a:a].copy [b1]

2) Với copy chỉ lấy giá trị (như past special > value):

[b:b]=[a:a].value

Kính mong được học hỏi thêm.

@ minhthien321 ! Nếu [a:a].copy [b1] ta được kết quả Y chang kể cả dòng trống, vì vậy không đồng ý cho bạn "rút gọn thêm tí nữa" đâu nha.

 

[Hoàng Trọng Nghĩa]

@ minhthien321 ! Nếu [a:a].copy [b1] ta được kết quả Y chang kể cả dòng trống, vì vậy không đồng ý cho bạn "rút gọn thêm tí nữa" đâu nha.

Có phải code của Thầy là "thấy text là copy, bỏ qua dòng trống, bỏ qua công thức"?

Với code của Thầy nếu cột A mà chứa toàn công thức hoặc cột không có giá trị gì thì sẽ báo lỗi "No cell were found".

 

[ndu96081631]

Có phải code của Thầy là "thấy text là copy, bỏ qua dòng trống, bỏ qua công thức"?

Với code của Thầy nếu cột A mà chứa toàn công thức hoặc cột không có giá trị gì thì sẽ báo lỗi "No cell were found".

Tùy chuyện mà xài
Đối với trường hợp này, nếu không SpecialCell được thì ta dùng AutoFilter ---> Đa phần là giải quyết được ráo trọi

 

[Hoàng Trọng Nghĩa]

Tùy chuyện mà xài
Đối với trường hợp này, nếu không SpecialCell được thì ta dùng AutoFilter ---> Đa phần là giải quyết được ráo trọi

Thưa Thầy, có thể làm như vầy được không ạ?

Sub Macro2()
  [a:a].Copy [b1]: [b:b].Sort [b1], 1, , , 1
End Sub

 

[ndu96081631]

Thưa Thầy, có thể làm như vầy được không ạ?

Sub Macro2()
  [a:a].Copy [b1]: [b:b].Sort [b1], 1, , , 1
End Sub

Đương nhiên là được... nhưng như tôi đã nói từ đầu, nếu người ta muốn cái nào ở trên thì sau khi copy xong phải nằm trên... Tức giữ nguyên thứ tự như dữ liệu gốc thì bạn không thể sort được!
Nói chung là có rất nhiều cách để làm bài này, tùy theo yêu cầu cụ thể của người dùng thôi (mà bài này cũng chẳng phải thuộc dạng "hóc" gì)

 

[concogia]

Cái này có lẽ dùng theo kiểu lọc từ A đến Z (hoặc ngược lại) là nhanh nhất.

Muốn công thức thì tặng bạn công thức, muốn nằm trên như Thầy Ndu thì .... nằm trên ( nằm dưới cũng được vậy Thầy)
Bài chỉ làm 200 dòng thôi nhé bạn, muốn thêm thì fill xuống
Thân

 

[Hoàng Trọng Nghĩa]

Muốn công thức thì tặng bạn công thức, muốn nằm trên như Thầy Ndu thì .... nằm trên ( nằm dưới cũng được vậy Thầy)
Bài chỉ làm 200 dòng thôi nhé bạn, muốn thêm thì fill xuống
Thân

Chà chà, "độc cô cầu bại" nha! Chơi luôn công thức ta ơi! Hay lắm Bác Concogia, em lại học thêm chiêu mới nữa đây!
Cám ơn Bác nhiều!

P/S: Hay, nhưng em sẽ áp dụng nếu dưới 50 dòng, chứ nhiều quá viết code là chắc cú và nhẹ máy, chạy nhanh nữa!

 

[beray3088]

Muốn công thức thì tặng bạn công thức, muốn nằm trên như Thầy Ndu thì .... nằm trên ( nằm dưới cũng được vậy Thầy)
Bài chỉ làm 200 dòng thôi nhé bạn, muốn thêm thì fill xuống
Thân

Em mới đọc lại bài của brồ concogia và lại có một thắc mắc:
Chả là dữ liệu của em ở cột A có một số dòng có chuỗi text cộng thêm khoảng trắng ở cuối ký tự đó.
Bây giờ mình chỉ lấy những dòng bị như thế thì liệu có được không ạ.
Mong bác concogia chỉ giáo ạ.

trân trọng/beray