NHỜ XEM GIÚP VBA XÓA DÒNG (1 người xem)

[zvannamz]

mình tìm kiếm được 1 code VBA xóa dòng trống. nhưng trong bảng của mình có những dòng có công thức nên mình muốn sửa lại thành xóa dòng khi kết quả là 0 hoặc là dấu "-". mình sửa mãi không được, các bạn giúp mình sửa với.
Sub XoaDongTrong()
Dim i As Long
Dim j As Long
Dim d As Long
Dim dongdau As Long
Dim socot As Long
Dim dem As Long
d = ActiveSheet.Range("D" & ActiveSheet.Rows.Count).End(xlUp).Row
socot = 10
dem = 0
If socot > 0 Then
dongdau = InputBox("Nhap so dong dau tien bang du lieu: ")
If dongdau > 0 Then
For i = dongdau To d
For j = 1 To socot
If ActiveSheet.Cells(i, j) = "" Then
dem = dem + 1
If dem = socot Then
Rows(i).Delete
End If
End If
Next j
dem = 0
Next i
End If
End If
End Sub

 

[giaiphap]

mình tìm kiếm được 1 code VBA xóa dòng trống. nhưng trong bảng của mình có những dòng có công thức nên mình muốn sửa lại thành xóa dòng khi kết quả là 0 hoặc là dấu "-". mình sửa mãi không được, các bạn giúp mình sửa với.
Sub XoaDongTrong()
Dim i As Long
Dim j As Long
Dim d As Long
Dim dongdau As Long
Dim socot As Long
Dim dem As Long
d = ActiveSheet.Range("D" & ActiveSheet.Rows.Count).End(xlUp).Row
socot = 10
dem = 0
If socot > 0 Then
dongdau = InputBox("Nhap so dong dau tien bang du lieu: ")
If dongdau > 0 Then
For i = dongdau To d
For j = 1 To socot
If ActiveSheet.Cells(i, j) = "" Then
dem = dem + 1
If dem = socot Then
Rows(i).Delete
End If
End If
Next j
dem = 0
Next i
End If
End If
End Sub

Bạn đưa cái file trống trơn rồi sao test đây, ít nhất cũng phải có vài số liệu mẫu để còn biết cách mà lần chứ còn cái file không có gì cả làm sao biết bạn muốn gì.

 

[VetMini]

Thay:
If ActiveSheet.Cells(i, j) = "" Then

Bằng:
hienThi = ActiveSheet.Cells(i, j).Text
If hienThi = "" Or hienThi = "0" Or hienThi = "-" Then

 

[befaint]

If ActiveSheet.Cells(i, j) = "" Or ActiveSheet.Cells(i, j).Text = "0" Or ActiveSheet.Cells(i, j).Text = "-" Then

Trong trường hợp này mình dùng hàm Val(Cells(i, j)) = 0 được chứ anh?

 

[VetMini]

Trong trường hợp này mình dùng hàm Val(Cells(i, j)) = 0 được chứ anh?

Theo yêu cầu chủa chủ thớt là "0" hoặc "-". Mình đâu có biết định dạng ô là cái gì?

 

[zvannamz]

Bạn đưa cái file trống trơn rồi sao test đây, ít nhất cũng phải có vài số liệu mẫu để còn biết cách mà lần chứ còn cái file không có gì cả làm sao biết bạn muốn gì.

dạ có mà a

 

[zvannamz]

Thay:
If ActiveSheet.Cells(i, j) = "" Then

Bằng:
hienThi = ActiveSheet.Cells(i, j).Text
If hienThi = "" Or hienThi = "0" Or hienThi = "-" Then

mình vẫn thấy nó báo lỗi ở sub xoadongtrong()
trong file của mình có rất nhiều dòng trống, nhưng những dòng đó vẫn có công thức. và với VBA trên thì nó chỉ xóa dòng trống không có dữ liệu.

 

[zvannamz]

đây là cái file ban đầu là xóa dòng trống, mình muốn chỉnh sửa đôi chút và copy sang file của mình là xóa các dòng khi kết quả là 0 hoặc "-"

 

[Horse]

đây là cái file ban đầu là xóa dòng trống, mình muốn chỉnh sửa đôi chút và copy sang file của mình là xóa các dòng khi kết quả là 0 hoặc "-"

Úi. Đối tác của bạn toàn là cây đại thụ về lập trình

 

[zvannamz]

Úi. Đối tác của bạn toàn là cây đại thụ về lập trình

ui, thế à, mình mới vào nên không biết cao nhân

 

[Nguyễn Hồng Quang]

Em Góp vui 1 code xóa dòng trống dựa vào điều kiện của cột C. Tức là ô nào ở cột C bị trống thì sẽ xóa cả dòng
Public Sub Xoadongtrong()
For Rw = Cells(65536, 3).End(xlUp).Row To 19 Step -1
If Cells(Rw, 3).Value = blank Then Cells(Rw, 3).EntireRow.Delete
Next Rw
End Sub