求修改代码，仅删除bc列空行

lagos

详情请见附件： 求修改代码.rar (12.51 KB, 下载次数: 14)

2024-6-27 15:16 上传

点击文件名下载附件

peteryhr

其实录一下宏就可以改

边缘码农

1. Sub DeleteEmptyRows()
   
2.      Dim ws As Worksheet
   
3.     Dim LastRow As Long
   
4.     Dim i As Long
   
5.    
   
6.     ' 设置工作表
   
7.     Set ws = ThisWorkbook.Sheets("Sheet1") ' 假设您的数据在Sheet1上
   
8.    
   
9.     ' 找到B列最后一行
   
10.     LastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
11.    
    
12.     ' 从第二行开始（因为第一行不能删除）向上遍历
    
13.     For i = LastRow To 2 Step -1
    
14.         ' 检查B列和C列单元格是否都为空（不包含数字0或任何文本）
    
15.         If Len(Trim(ws.Cells(i, "B").Value2)) = 0 And Len(Trim(ws.Cells(i, "C").Value2)) = 0 Then
    
16.             ' 如果都为空，则删除B-C行
    
17.             
    
18.              ws.Range("B" & i & ":C" & i).Delete Shift:=xlUp
    
19.             
    
20.         End If
    
21.     Next i
    
22. End Sub
    
23. 
    

复制代码

边缘码农

小凡、、、

仅删除BC列然后下方单元格上移即可

quqiyuan

参与一下，供参考。。。

ykcbf1100

参与一下，删除空行

ykcbf1100

删除B和C列同时为空的行

1. Sub ykcbf()  '//2024.6.27
   
2.     Application.DisplayAlerts = False
   
3.     r = Me.UsedRange.Find("*", , -4163, , 1, 2).Row
   
4.     arr = Me.[a1].Resize(r, 3)
   
5.     For i = UBound(arr) To 1 Step -1
   
6.         If Len(arr(i, 2) & arr(i, 3)) = 0 Then
   
7.             Rows(i).Delete
   
8.         End If
   
9.     Next
   
10.     Application.DisplayAlerts = True
    
11.     MsgBox "OK！"
    
12. End Sub
    
13. 
    

复制代码

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&, j&, r&
   
    Application.ScreenUpdating = False
   
    With Intersect(ActiveSheet.UsedRange, Columns("B:C"))
        ar = .Value
        .Clear
        For i = 1 To UBound(ar)
            If Join(Application.Index(ar, i), "") <> "" Then
                r = r + 1
                For j = 1 To UBound(ar, 2)
                    ar(r, j) = ar(i, j)
                Next j
            End If
        Next i
        .Item(1).Resize(r, UBound(ar, 2)) = ar
    End With
    Application.ScreenUpdating = True
    Beep
End Sub

yes_cn

运行后的结果。