VBA统计A列数据数量，然后删除A列统计数量大于100的行，下面...

可爱小喵喵 · 发表于 2023-5-21 02:28

VBA统计A列数据数量，公式实现就比如D列所示，然后删除A列统计数量大于100的行，下面的行自动上移

liulang0808 · 发表于 2023-5-21 07:06

楼主根据D列筛选大于等于100的行，然后定位可见单元格，整行删除是否可行？

3190496160 · 发表于 2023-5-21 09:57

Sub 删除行()
Dim ar As Variant
Dim br()
With Sheet1
r = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("d2:d" & r) = Empty
ar = .Range("a1:d" & r)
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
      If Trim(ar(i, 1)) <> "" Then
         sl = Application.CountIf(.Range("a2:a" & i), ar(i, 1))
         If sl <= 100 Then
            n = n + 1
            For j = 1 To 3
                  br(n, j) = ar(i, j)
            Next j
            br(n, 4) = sl
         End If
      End If
Next i
.Range("a2:d" & r) = Empty
If n <> "" Then .[a2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2023-5-21 09:58

3190496160 · 发表于 2023-5-21 09:59

新建 XLS 工作表.rar (80.48 KB, 下载次数: 7)

z865593849 · 发表于 2023-5-21 10:45

Sub FillData()
Dim conn As Object
Dim rs As Object
Dim sql As String
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
sql = " select a.1,a.2,a.3,b.c from [Sheet1$A:D] as a " _
& " inner join (select 1,count(1) as c from [Sheet1$A:D] group by 1 ) as b on a.1=b.1 " _
& " where b.c < 100 "
Set rs = conn.Execute(sql)
Sheets(1).Range("f2").CopyFromRecordset rs
'
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub

复制代码

可爱小喵喵 · 发表于 2023-5-21 12:36

3190496160 发表于 2023-5-21 09:57
Sub 删除行()
Dim ar As Variant
Dim br()

这个的结果话D行还有这个公式，我希望D行这个公式不在表格里显示,因为D行还有别的公式

可爱小喵喵 · 发表于 2023-5-21 12:41

z865593849 发表于 2023-5-21 10:45

这个得用到数据库吧，运行错误3706，未找到该程序，我用一般用WPS

3190496160 · 发表于 2023-5-21 21:03

可爱小喵喵发表于 2023-5-21 12:36
这个的结果话D行还有这个公式，我希望D行这个公式不在表格里显示,因为D行还有别的公式

呵呵呵，先清除d列的公式在运行代码不就行了吗

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

[求助] VBA统计A列数据数量，然后删除A列统计数量大于100的行，下面...

评分