发布网友 发布时间:2022-02-22 10:27
共3个回答
热心网友 时间:2022-02-22 11:56
只需利用电子表格中的筛选功能就可以实现了
热心网友 时间:2022-02-22 13:14
右键SHEET1复制代码
Sub MergeSameCells()
Dim lRow As Integer
Application.DisplayAlerts = False
With ActiveSheet
lRow = .Range("A65536").End(xlUp).Row
For i = lRow To 2 Step -1
If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then
.Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge
End If
Next
End With
Application.DisplayAlerts = True
End Sub
关闭窗口,按ALT+F8,执行!
热心网友 时间:2022-02-22 14:49
数据透视表 把建表区域选中,然后插入数据透视表,在行标签放原题编号,列标签放知识点,然后随便在BE列间找一列放到数值去计数。