1,关于显示编排次数公式为:=COUNTIF(查询!B:E,C2) 2,关于统计各分类次数:=COUNTIF(数据!$M$2:$M$17,B3) 3,关于批量添加批注可用如下代码: Sub yueliang() Dim i, j, k As Integer With Sheets("数据") For i = 2 To Cells(2, 2).End(xlDown).Row For j = 2 To Cells(2, 2).End(xlToRight).Column If Cells(i, j).NoteText = "" And Cells(i, j) "" Then k = Application.Match(Cells(i, j), .Range("c1:c17"), 0) Cells(i, j).AddComment Cells(i, j).Comment.Visible = False Cells(i, j).Comment.Text Text:=.Cells(k, 3) & "," & .Cells(k, 4) & "," & .Cells(k, 5) & "," & .Cells(k, 6) End If Next Next End With End Sub 注:关于批注的内容,你可以自己再添加。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号