求助：如何在每一列显示选中单元格值的数量

alai1222 · 发表于 2017-7-17 07:26

早上好各位老师，请教下如何实现下列效果图，谢谢
QQ截图20170717072354.png

alai1222 · 发表于 2017-7-17 08:25

先谢过各位老师了~

bbm000000 · 发表于 2017-7-17 08:46

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x, y, i, arr
y = Cells(2, Columns.Count).End(xlToLeft).Column
x = Cells(Rows.Count, 1).End(3).Row
ReDim arr(1 To y - 4)
If Target.Column > 4 And Target.Column <= y Then
If Target.Row > 2 And Target.Row <= x Then
For i = 5 To y
arr(i - 4) = Application.WorksheetFunction.CountIf(Range(Cells(3, i), Cells(x, i)), Target.Value)
Next
End If
End If
[e1].Resize(1, y - 4) = arr
End Sub

08yj2001 · 发表于 2017-7-17 08:51

试试看效果

凌空一羽 · 发表于 2017-7-17 09:07

Private Sub Worksheet_SelectionChange(ByVal T As Range)
Dim n%, m%, i%, j As Byte
With T
If (.Count = 1) * (.Column > 4) * (.Row > 2) Then
n = 0
m = Range("d1000").End(3).Row
ar = Range("a3:o" & m)
For j = 5 To UBound(ar, 2)
For i = 1 To UBound(ar)
If .Value = ar(i, j) Then n = n + 1
Next
Cells(1, j) = n: n = 0
Next
End If
End With
End Sub

复制代码

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

求助：如何在每一列显示 选中单元格值 的数量

最新热点 /1

求助：如何在每一列显示选中单元格值的数量