Làm thế nào loại bỏ những dòng trắng (1 người xem)

[donhungtin2013]

Chào các anh chị diễn đàn
Em có 1 khó khăn như sau:
Trong file đính kèm em muốn copy số liệu từ cột A sang sheet mới, nhưng do thứ tự ở cột A không liên tục nên khi paste qua sheet mới sẽ xuất hiện những dòng trắng. Em muốn làm thế nào khi mình paste qua sheet mới các số thứ tự này nằm liền kề nhau. Vì dữ liệu em rất lớn khoảng hơn 2000 dòng nếu dùng thủ công xóa đi thì lâu quá. Nhờ anh em diễn đàn giúp đỡ, em cảm ơn.

 

[hungpecc1]

Chào các anh chị diễn đàn
Em có 1 khó khăn như sau:
Trong file đính kèm em muốn copy số liệu từ cột A sang sheet mới, nhưng do thứ tự ở cột A không liên tục nên khi paste qua sheet mới sẽ xuất hiện những dòng trắng. Em muốn làm thế nào khi mình paste qua sheet mới các số thứ tự này nằm liền kề nhau. Vì dữ liệu em rất lớn khoảng hơn 2000 dòng nếu dùng thủ công xóa đi thì lâu quá. Nhờ anh em diễn đàn giúp đỡ, em cảm ơn.

thử làm theo các bước sau :
1- bôi đen toàn bộ cột A
2- ấn ctrl +G --> chọn special (ra 1 hộp thoại ) --> tích vào ô Constant
3- Ấn ctrl +C --> chọn ô cần patse ấn Ctrl +V

 

[Cá ngừ F1]

Chào các anh chị diễn đàn
Em có 1 khó khăn như sau:
Trong file đính kèm em muốn copy số liệu từ cột A sang sheet mới, nhưng do thứ tự ở cột A không liên tục nên khi paste qua sheet mới sẽ xuất hiện những dòng trắng. Em muốn làm thế nào khi mình paste qua sheet mới các số thứ tự này nằm liền kề nhau. Vì dữ liệu em rất lớn khoảng hơn 2000 dòng nếu dùng thủ công xóa đi thì lâu quá. Nhờ anh em diễn đàn giúp đỡ, em cảm ơn.

Tôi thấy bạn đang để mật khẩu cho VBA
Nên tôi tạo 1 file khác

Sub BoDongTrang()
    Dim DuLieu(), KetQua(), i As Long, k As Long
    DuLieu = Sheet1.Range([A2], [A65000].End(3))
    ReDim KetQua(1 To UBound(DuLieu), 1 To 1)
    For i = 1 To UBound(DuLieu)
        If DuLieu(i, 1) <> "" Then
            k = k + 1
            KetQua(k, 1) = DuLieu(i, 1)
        End If
    Next
    Sheet1.[F2].Resize(i - 1, 1) = KetQua
End Sub

Bạn xem tham khảo nhé!

P/S: Quên, bạn up bài vào mục Hàm và công thức, bạn tham khảo cách làm của a Hùng nhé.

 

[donhungtin2013]

Quá hay cảm ơn anh rất nhiều, giúp em tiết kiệm bao nhiêu là thời gian

 

[hungpecc1]

Quá hay cảm ơn anh rất nhiều, giúp em tiết kiệm bao nhiêu là thời gian

nếu bạn thích dùng VBA ngoài cách của anh Cá Ngừ F1 thì có thể tham khảo thêm cách này :

Sub GPE()       
    Range("A:A").SpecialCells(2, 23).Copy Range("M1")        
    Application.CutCopyMode = False
End Sub

 

[SA_DQ]

)(ét thấy cần lưu í chủ topic 1 vấn đề, đó là:

để "Làm thế nào loại bỏ những dòng trắng" thì không nên cho bài vô BOX "Hàm & công thức" được!

Vì hiễn nhiên hàm hay công thức khó mà làm được chuyện này, nếu không muốn nói là không khả thi!

 

[Cá ngừ F1]

Bạn có thể tham khảo thêm ở Topic này, sẽ có nhiều hữu ích.
http://www.giaiphapexcel.com/forum/...óa-dòng-trống-trong-Lập-trình-VBA-trong-Excel

 

[THANHTRUNGT]

Chào các anh chị diễn đàn
Em có 1 khó khăn như sau:
Trong file đính kèm em muốn copy số liệu từ cột A sang sheet mới, nhưng do thứ tự ở cột A không liên tục nên khi paste qua sheet mới sẽ xuất hiện những dòng trắng. Em muốn làm thế nào khi mình paste qua sheet mới các số thứ tự này nằm liền kề nhau. Vì dữ liệu em rất lớn khoảng hơn 2000 dòng nếu dùng thủ công xóa đi thì lâu quá. Nhờ anh em diễn đàn giúp đỡ, em cảm ơn.

Xóa dòng trắng đơn giản bạn làm theo cách sau:
B1: Ctrl+ Space
B2: F5
B3: Special...
B4: Alt+ K
B5: Ctrl+"-"
B6: R
B7: ok
Thân!

 

[TrungChinhs]

Với bài của bạn thì cách đơn giản nhất là chọn cột A rồi nhấn vào nút AZ (Sort Ascending) trên thanh công cụ.