[已解决]如何删除只有第一列有数据，其他列没数据的行？

1737947665

如图，最左边是人名，只要产量这些项目，随便一个有数据，就不能删除，除人名外，产量项都为空白的，就整行删除，
当然也把下一行往上移动，最后结果是图二的效果，请问如何编写代码呢？

Sub 删空行()
Dim x
Dim y
Dim i
Dim j

x = Cells(Rows.Count, 1).End(xlUp).Row   '第一列，由A1到最后一个非空单元格的行号，其实也就是行数
y = Range("iv1").End(xlToLeft).Column   '总列数

For i = 2 To x
For j = 2 To y

If Cells(i, j) = "" And Cells(i, 1) <> "" Then
Rows(i).EntireRow.Delete
End If

Next
Next

End Sub

最佳答案

月排行榜 / 总排行榜

327718098

2017-6-12 07:17

sub text()
for h = 2 to Cells(Rows.Count, 1).End(xlUp).Row
if application.counta(range(cells(h,2),cells(h,6))) = 0 then
cells(m,1).EntireRow.delete
end if
next
end sub
手机写的，试试对不

跳转到最佳答案楼层

327718098

sub text()
for h = 2 to Cells(Rows.Count, 1).End(xlUp).Row
if application.counta(range(cells(h,2),cells(h,6))) = 0 then
cells(m,1).EntireRow.delete
end if
next
end sub
手机写的，试试对不

liuyedao1

G2单元格输入=if(count(b2:f2)>=1,"",1)，确定。然后点编辑，定位，公式，数字，删除整行即可。

1737947665

谢谢两位，晚点试试再回复

周义坤

1. Sub ek_sky()
   
2. Dim i As Integer, j As Integer
   
3.   i = Cells(Rows.Count, 1).End(xlUp).Row
   
4.      If i < 2 Then Exit Sub
   
5.      Application.ScreenUpdating = False
   
6.         For j = i To 2 Step -1
   
7.            If Cells(j, 2) = "" Then
   
8.            Rows(j).EntireRow.Delete
   
9.            End If
   
10.         Next j
    
11.     Application.ScreenUpdating = True
    
12. End Sub
    

复制代码

idnoidno

1. Option Explicit
   
2. Sub ty()
   
3. Dim i As Integer, j As Integer, k As Integer, n As Integer
   
4. Dim arr
   
5. 
   
6. arr = Range("a1:f" & Cells(Rows.Count, 1).End(xlUp).Row)
   
7. k = 0
   
8. For i = 2 To UBound(arr)
   
9.   For j = 2 To UBound(arr, 2) - 1
   
10.   If arr(i, j) <> "" Then
    
11.   k = k + 1
    
12.   Range(Cells(i, 1), Cells(i, UBound(arr, 2))).Copy Worksheets("工作表2").Range("a" & k)
    
13.   Exit For
    
14.   End If
    
15.   Next j
    
16. Next i
    
17. 
    
18. End Sub

复制代码

pengyx

把第一列，第二列都有内容的留下就行

1737947665

327718098 发表于 2017-6-12 07:17
sub text()
for h = 2 to Cells(Rows.Count, 1).End(xlUp).Row
if application.counta(range(cells(h,2 ...

亲，谢谢你!试过你的代码，除了调整一下循环由最大行数到2：
For h = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
这里调整一下就，其他就OK了，非常感谢！

1737947665

周义坤 发表于 2017-6-12 10:17

亲，谢谢你的帮忙，不过可能有点误解我，我是要：只要该行的第一格还有内容，其他都没数字就删掉（因为第一列是人名，判断到这个人没产量，就删除该记录的意思），只要该行第一格有内容和其他任何一格有内容，该行都不删掉的。
不是整行空白才删掉的。

1737947665

idnoidno 发表于 2017-6-12 11:12

谢谢亲的回复，因为我是菜鸟，对于引用到其他表格，有点搞不懂，这次暂时不采纳了，谢谢啦~~