2024-10-31 06:56:09
'自定义公式-按ALT+F11-插入-模块
Function 提取(a As Range, b As String, c As String, d As String)
Dim j As Integer
For j = 1 To a.Columns.Count
If a.Cells(1, j) = b Then
For i = 2 To a.Rows.Count
If a.Cells(i, 1) = "" Then Exit For
If a.Cells(i, j) <> "" And a.Cells(i, 1) = c Then
t = a.Cells(i, 2)
m = m + 1
If m = d Then 提取 = t
End If
Next
End If
Next
End Function
2024-10-31 07:43:16
2024-10-31 07:00:19
这个看不懂呀,没有图片