|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 一把小刀闯天下 于 2019-6-10 18:49 编辑
Option Explicit
Sub test()
Dim arr, mark, sum As Long, i As Long, j As Long, k As Long
mark = [c1:d1].Value
arr = Range("a2:d2" & Cells(Rows.Count, "b").End(xlUp).Row)
For i = 1 To UBound(arr, 1)
For j = 2 To UBound(arr, 2)
For k = 1 To UBound(mark, 2)
If arr(i, j) = mark(1, k) Then sum = sum + 1: Exit For
Next k, j
arr(i, 1) = sum: sum = 0
Next
[a2].Resize(UBound(arr, 1)) = arr
End Sub
|
评分
-
3
查看全部评分
-
|