|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 838833928 于 2023-2-6 12:27 编辑
已有数组公式,用vba怎么表达?
特别感谢:昵称 春风化雨
Sub 统计()
Application.ScreenUpdating = False
Dim arr(), brr(), Col&
Col = Cells(2, Columns.Count).End(xlToLeft).Column
arr = Range(Cells(2, 1), Cells(99, 5)).Value
ReDim brr(1 To 1, 1 To UBound(arr))
For j = 1 To Col
For i = 1 To UBound(arr)
If Trim(arr(i, j)) <> Trim(arr(1, j)) Then
brr(1, j) = i - 1
Exit For
End If
Next i
Next j
Cells(1, 1).Resize(1, Col).Value = brr
Application.ScreenUpdating = True
End Sub
|
|