Excel 小白不用死磕函数和VBA,AI 几分钟搞定

Excel难题只能死磕函数？

不懂代码的人，用AI30秒

搞定数据统计

从零散百度到AI一站式方案 · 函数公式 + VBA双方案 · 零差错交付

01

PART

数据要求

THE PROBLEM

02

PART

传统查攻略 vs AI一站式方案

OLD WAY · VS · AI WAY

Sub CountRepeatNum()

　　Dim dict As Object

　　Dim lastRow As Long, i As Long

　　'创建字典统计每个值出现次数

　　Set dict = CreateObject("Scripting.Dictionary")

　　dict.CompareMode = vbTextCompare

　　'关闭屏幕闪烁，提速

　　Application.ScreenUpdating = False

　　'获取A列最后一行数据

　　lastRow = Cells(Rows.Count, "A").End(xlUp).Row

　　'第一轮：遍历A列统计所有值的总次数

　　For i = 2 To lastRow

　　　　If Not IsEmpty(Cells(i, 1)) Then

　　　　　　dict(Cells(i, 1).Value) = dict(Cells(i, 1).Value) + 1

　　　　End If

　　Next i

　　'第二轮：把统计次数填入B列

　　For i = 2 To lastRow

　　　　If Not IsEmpty(Cells(i, 1)) Then

　　　　　　Cells(i, 2).Value = dict(Cells(i, 1).Value)

　　　　End If

　　Next i

　　Application.ScreenUpdating = True

　　MsgBox "执行完成，B列已填充各内容重复总次数！", vbInformation

End Sub

03

PART

善用工具才是高效工作方式

WORK SMARTER, NOT HARDER

///

LAST

写在最后

ONE MORE THING