|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 wxxydl 于 2020-12-4 21:48 编辑
Public k, brr(1 To 100, 1 To 3)
Sub main()
Dim arr1, arr2
arr1 = Worksheets("sheet1").Range("a1").CurrentRegion
取第一名 (arr1)
arr2 = Worksheets("sheet1").Range("g1").CurrentRegion
取第一名 (arr2)
Worksheets("sheet2").Range("a1").Resize(k, UBound(arr2, 2)) = brr
End Sub
Function 取第一名(arr)
Dim i, j
For i = 2 To UBound(arr)
If arr(i, 3) = 1 Then
k = k + 1
For j = 1 To UBound(arr, 2)
brr(k, j) = arr(i, j)
Next
End If
Next
取第一名 = brr
End Function
|
评分
-
1
查看全部评分
-
|