求高手帮个忙

syt2008

我需要把B列的实际开工日期为空的整行删掉，用VBA代码，怎么做，每天行数都是变化的，本人刚学习VBA，上班需要，希望大家帮帮我，谢谢了。

创建日期	实际开工日期
2018/10/1	2018/10/1
2018/10/2	2018/10/2
2018/10/3	2018/10/3
2018/10/4	2018/10/4
2018/10/5	2018/10/5
2018/10/6	2018/10/6
2018/10/7	2018/10/7
2018/10/8	2018/10/8
2018/10/9	2018/10/9
2018/10/10	2018/10/10
2018/10/11	2018/10/11
2018/10/12
2018/10/13
2018/10/14
2018/10/15
2018/10/16
2018/10/17
2018/10/18
2018/10/19	2018/10/18
2018/10/20	2018/10/19
2018/10/21	2018/10/20
2018/10/22	2018/10/21
2018/10/23	2018/10/22
2018/10/24	2018/10/23
2018/10/25	2018/10/24
2018/10/26	2018/10/25
2018/10/27	2018/10/26
2018/10/28	2018/10/27
2018/10/29	2018/10/28
2018/10/30	2018/10/29
2018/10/31	2018/10/30
2018/11/1	2018/10/31
2018/11/2	2018/11/1
2018/11/3	2018/11/2
2018/11/4
2018/11/5
2018/11/6
2018/11/7
2018/11/8
2018/11/9	2018/10/18
2018/11/10	2018/10/19
2018/11/11	2018/10/20
2018/11/12	2018/10/21
2018/11/13	2018/10/22
2018/11/14	2018/10/23
2018/11/15	2018/10/24
2018/11/16	2018/10/25
2018/11/17	2018/10/26
2018/11/18	2018/10/27
2018/11/19	2018/10/28
2018/11/20	2018/10/29
2018/11/21	2018/10/30
2018/11/22	2018/10/31
2018/11/23	2018/11/1
2018/11/24	2018/11/2
2018/11/25
2018/11/26
2018/11/27
2018/11/28
2018/11/29
2018/11/30
2018/12/1
2018/12/2
2018/12/3
2018/12/4
2018/12/5
2018/12/6
2018/12/7
2018/12/8

清风竹-

1. Sub 删除B列空白行()
   
2. Dim x, rng As Range
   
3. For x = 2 To [a65536].End(3).Row
   
4.     If Cells(x, 2) = "" Then
   
5.         If rng Is Nothing Then Set rng = Cells(x, 2) Else Set rng = Union(rng, Cells(x, 2))
   
6.     End If
   
7. Next
   
8. If Not rng Is Nothing Then rng.EntireRow.Delete
   
9. 
   
10. End Sub
    

复制代码

changhong8

Sub 删除空行()
Dim rng As Range
Set rng = Cells.Find("实际开工日期", [a1], lookat:=xlPart)
rng.EntireColumn.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

蓝桥玄霜

请见代码。

1. Sub lqxs()
   
2. Dim Arr, i&, Rng As Range
   
3. Sheet1.Activate
   
4. Arr = [a1].CurrentRegion
   
5. For i = 2 To UBound(Arr)
   
6.     If Arr(i, 2) = "" Then
   
7.         If Rng Is Nothing Then Set Rng = Rows(i) Else Set Rng = Union(Rng, Rows(i))
   
8.     End If
   
9. Next
   
10. If Not Rng Is Nothing Then Rng.Delete Shift:=xlUp
    
11. End Sub
    

复制代码

syt2008

changhong8 发表于 2018-10-1 11:49
Sub 删除空行()
Dim rng As Range
Set rng = Cells.Find("实际开工日期", [a1], lookat:=xlPart)

已解决，非常感谢

syt2008

蓝桥玄霜 发表于 2018-10-1 11:49
请见代码。

也谢谢你的帮助

gelisiman

Sub Shanchu()
      Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub