Hỏi/ Thắc mắc Xin được giúp đỡ về xóa ô trống trong file excel

[tvthoi1984]

Xin chào các anh chị và các bạn.

Hiện tại, em có rất nhiều file excel mà số liệu của nó nằm rải rác trong nhiều ô khác khau.

Ví dụ như file này. https://1drv.ms/x/s!AhYD98SMI02ZgcJNTmfJB9PB5WEzvw?e=XXrCmw
Hình ảnh:

Em muốn xóa bỏ những ô trống để dồn số liệu lên cho nó dễ thao tác.

Cho em hỏi là ngoài cách Cắt - Dán thủ công thì còn cách nào nhanh hơn hay không?
Vì em có rất nhiều file như vậy. Vã mồ hôi hột. hic hic

Em xin cảm ơn các Bác nhiều!

 

[NgoHungCuong]

Cái này biết lập trình mình nghĩ là OK.

 

[dinhchungcm]

Xin chào các anh chị và các bạn.

Hiện tại, em có rất nhiều file excel mà số liệu của nó nằm rải rác trong nhiều ô khác khau.

Ví dụ như file này. https://1drv.ms/x/s!AhYD98SMI02ZgcJNTmfJB9PB5WEzvw?e=XXrCmw
Hình ảnh:

Em muốn xóa bỏ những ô trống để dồn số liệu lên cho nó dễ thao tác.

Cho em hỏi là ngoài cách Cắt - Dán thủ công thì còn cách nào nhanh hơn hay không?
Vì em có rất nhiều file như vậy. Vã mồ hôi hột. hic hic

Em xin cảm ơn các Bác nhiều!

Thiết kế cái bảng thừa. Cột STT chỉ cần 1 cột cho tất cả các HÀNG.
Không hiểu ý bạn cần xóa ô trống để xử lý số liệu như nào. Vì việc xóa ô trống sẽ làm thay đổi STT của hàng đó.
Số lượng ô trống quá nhiều, sao không nhập liệu liền kề nhau, mà nhập theo STT rồi lại tìm cách xóa.

Muốn xóa thì chọn ô (hoặc khối ô) > phải chuột > Delete.... > Chọn dồn ô theo ý (lên, xuống, trái, phải)> OK.
Số lượng ô cần xóa quá nhiều >> Chắc chắn xóa hoặc dồn ô sai.

 

[tvthoi1984]

Thiết kế cái bảng thừa. Cột STT chỉ cần 1 cột cho tất cả các HÀNG.
Không hiểu ý bạn cần xóa ô trống để xử lý số liệu như nào. Vì việc xóa ô trống sẽ làm thay đổi STT của hàng đó.
Số lượng ô trống quá nhiều, sao không nhập liệu liền kề nhau, mà nhập theo STT rồi lại tìm cách xóa.

Muốn xóa thì chọn ô (hoặc khối ô) > phải chuột > Delete.... > Chọn dồn ô theo ý (lên, xuống, trái, phải)> OK.
Số lượng ô cần xóa quá nhiều >> Chắc chắn xóa hoặc dồn ô sai.

Cảm ơn bạn rất nhiều. Chúc bạn ngày đầu tuần vui vẻ.

Không phải mình nhập dữ liệu theo số thứ tự đâu.
Bản thân nó được mình lọc ra từ 1 sheet khác chứa hàng ngàn số( mình lấy những số theo điều kiện mình cần)
Mình không cần nó đúng theo số thứ tự bạn ơi. Nếu chọn ô rồi delete thì mất cả tuần quá.
Bác nào biết cách làm nhanh thì gíup iêm với.

 

[tvthoi1984]

Cái này biết lập trình mình nghĩ là OK.

Cảm ơn bạn, chúc bạn ngày mới vui vẻ. Mình mà biết lập trình thì tự tự xử rồi.

 

[NgoHungCuong]

Dùng VBA for Excel đi bạn.

 

[baoson0309]

1/ Bạn chọn vùng cần xóa ô trống
2/ Chọn Tab Home -> Find & Select -> Go To Special (phím tắt bấm lần lượt là Alt H FD S)
3/ Chọn Blanks, bấm OK
4/ Chọn Tab Home -> Delete -> Delete Cells (Alt H D D)
5/ Chọn Shift Cells Up -> OK

 

[NgoHungCuong]

Kiểu như thế này đi bạn

 

[tvthoi1984]

1/ Bạn chọn vùng cần xóa ô trống
2/ Chọn Tab Home -> Find & Select -> Go To Special (phím tắt bấm lần lượt là Alt H FD S)
3/ Chọn Blanks, bấm OK
4/ Chọn Tab Home -> Delete -> Delete Cells (Alt H D D)
5/ Chọn Shift Cells Up -> OK

Cảm ơn bạn rất nhiều,
Bạn đúng là cao thủ Excel.

Kiểu như thế này đi bạn

Cảm ơn bạn, Mình đã làm theo cách của bạn nó chỉ xóa được các ô trống của "HÀNG SỐ 1" và chỉ xóa những ô trống bên trên của dữ liệu đầu tiên, những ô trống bên dưới nó không xóa bạn ạ.
Không biết mình làm sai chỗ nào không nữa.

P/S: Mình hiểu vì sao mình không xóa được theo cách hai bạn chỉ rồi.
Khi mình lọc dữ liệu ra từ file gốc, mình dùng hàm if và các ô không phù hợp điều kiện lọc mình trả nó về "" (ví dụ: =if(A1>=10,A1,"")
Vậy, giá trị các ô trống ở đây Excel nó không chịu hiểu là empty nên mình không xóa được. hu hu hu

 

[NgoHungCuong]

Cảm ơn bạn rất nhiều,
Bạn đúng là cao thủ Excel.

Cảm ơn bạn, Mình đã làm theo cách của bạn nó chỉ xóa được các ô trống của "HÀNG SỐ 1" và chỉ xóa những ô trống bên trên của dữ liệu đầu tiên, những ô trống bên dưới nó không xóa bạn ạ.
Không biết mình làm sai chỗ nào không nữa.

P/S: Mình hiểu vì sao mình không xóa được theo cách hai bạn chỉ rồi.
Khi mình lọc dữ liệu ra từ file gốc, mình dùng hàm if và các ô không phù hợp điều kiện lọc mình trả nó về "" (ví dụ: =if(A1>=10,A1,"")
Vậy, giá trị các ô trống ở đây Excel nó không chịu hiểu là empty nên mình không xóa được. hu hu hu

Vậy bạn thay điều kiện của hàm if thôi là được mà?
Ý tưởng của mình là như vậy còn các tham số thì bạn tùy biến cho phù hợp với bạn.
Nếu khó khăn thì bạn gửi file excel qua mình làm giúp cho.

 

[tvthoi1984]

Vậy bạn thay điều kiện của hàm if thôi là được mà?
Ý tưởng của mình là như vậy còn các tham số thì bạn tùy biến cho phù hợp với bạn.
Nếu khó khăn thì bạn gửi file excel qua mình làm giúp cho.

Mình rất cảm kích tấm lòng của bạn. Mình mà gửi toàn bộ số liệu cho bạn chắc bạn xỉu luôn đó. a hi hi.


Mình và đã tìm ra cách rồi.

Mình làm theo cách của bạn @baoson0309 nhưng đến bước 3/ mình không chọn Blank mà mình chọn Constants và chọn Text.
Chúc các bạn đầu tuần vui vẻ.

 

[iuminhtriit]

Mình rất cảm kích tấm lòng của bạn. Mình mà gửi toàn bộ số liệu cho bạn chắc bạn xỉu luôn đó. a hi hi.


Mình và đã tìm ra cách rồi.

Mình làm theo cách của bạn @baoson0309 nhưng đến bước 3/ mình không chọn Blank mà mình chọn Constants và chọn Text.
Chúc các bạn đầu tuần vui vẻ.

Chọn tất cả, sort by column

 

[bd1808]

1. Mở file excel ra, bấm Alt + F11 để mở cửa sổ VBA lên.
2. Double Click vào ThisWorkbook.
3. Paste các dòng code phía dưới vào.
4. Bấm F5 để chạy code.

Sub DonDuLieu()
      Dim SourceRange As String
      Dim MaxRow, MaxCol As Integer
      
      SourceRange = "A3"
      MaxRow = Range(SourceRange).End(xlDown).Row
      MaxCol = Range(SourceRange).End(xlToRight).Column
  
      Col = 1
      Do
            If (Col - 3) Mod 3 <> 1 Then
                  For Row = 4 To MaxRow
                        If Cells(Row, Col) = "" Then
                              For i = Row + 1 To MaxRow
                                    If Cells(i, Col) <> "" Then
                                          Cells(Row, Col) = Cells(i, Col)
                                          Cells(i, Col).ClearContents
                                          Exit For
                                    End If
                              Next
                        End If
                  Next
            End If
            Col = Col + 1
      Loop While Col <= MaxCol
      
      MsgBox "Finished!"
End Sub

 

[chuixoixa]

1/ Bạn chọn vùng cần xóa ô trống
2/ Chọn Tab Home -> Find & Select -> Go To Special (phím tắt bấm lần lượt là Alt H FD S)
3/ Chọn Blanks, bấm OK
4/ Chọn Tab Home -> Delete -> Delete Cells (Alt H D D)
5/ Chọn Shift Cells Up -> OK

Đây là cách hiệu quả nhất, khai thác tính năng mà anh em ít ai biết. Bọn họ đã tính hết rồi.

Kinh nghiệm quý.