删除B列为0的所在行

mohao · 发表于 2023-1-11 16:30

删除B列为0的所在行

sxbjzjf110 · 发表于 2023-1-11 16:40

参与一下

liulang0808 · 发表于 2023-1-11 16:50

筛选，定位可见单元格，然后删除

ykcbf1100 · 发表于 2023-1-11 16:51

本帖最后由 ykcbf1100 于 2023-1-11 16:53 编辑

删除B列为0的行。

zlzz1971 · 发表于 2023-1-11 17:01

请用WPS测试。

sxbjzjf110 · 发表于 2023-1-11 21:03

数组练习
Sub 删除()
Dim Arr, Brr(), i, r
Arr = Range("a1").CurrentRegion
i = 1
For r = 1 To UBound(Arr)
      ReDim Preserve Brr(1 To UBound(Arr), 1 To 2)
      If Arr(r, 2) <> 0 Then
         Brr(i, 1) = Arr(r, 1)
         Brr(i, 2) = Arr(r, 2)
         i = i + 1
      End If
Next
Range("a1").CurrentRegion = Brr
End Sub

lizhipei78 · 发表于 2023-1-12 10:26

数据量大的话，可能用数组更快，不需要使用删除

tanglf188 · 发表于 2023-1-12 13:28

利用筛选功能删除所需数据

		自动登录	找回密码
密码			免费注册

[求助] 删除B列为0的所在行

评分

评分