求大神帮助实现用VBA实现计算A列、B列计算，并显示数值（不显示公式）

chinasun0 · 发表于 2024-4-26 10:59

saghj · 发表于 2024-4-26 11:16

请测试。。

longwin · 发表于 2024-4-26 11:33

Sub test()
n = ActiveSheet.[C1].End(xlDown).Row
With ActiveSheet
      For i = 2 To n
         .Cells(i, 1) = Application.WorksheetFunction.CountIfs(Range("C:C"), Range("C" & i), Range("D:D"), Range("D" & i))
         .Cells(i, 2) = Application.WorksheetFunction.CountIfs(Range("$C$1:C" & i), Range("C" & i), Range("$D$1:D" & i), Range("D" & i))
      Next
End With
End Sub

longwin · 发表于 2024-4-26 11:34

swl4561255 · 发表于 2024-4-26 11:45

Sub test()
arr = Range("A1").CurrentRegion
Set d = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(arr)
d(arr(i, 3) & arr(i, 4)) = d(arr(i, 3) & arr(i, 4)) + 1
arr(i, 2) = d(arr(i, 3) & arr(i, 4))
Next
For i = 2 To UBound(arr)
arr(i, 1) = d(arr(i, 3) & arr(i, 4))
Next
[A12].Resize(UBound(arr), 5) = arr
Set d = Nothing
End Sub

复制代码

chinasun0 · 发表于 2024-4-26 14:06

saghj 发表于 2024-4-26 11:16
请测试。。

非常感谢您！！！

chinasun0 · 发表于 2024-4-26 14:07

swl4561255 发表于 2024-4-26 11:45

非常感谢您！！！

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