我查了很多的資料，真的是無語了。可能我學識太淺，麻煩高手教教我我的資料如下：A列 B列357346070138280 354602079794207 354602079794207 357346070133570354602072651271 354602073019288 354602072651354 357346070146952354602073019189 354602073019205 354602073019213 3 54602073019270 354602073019288 麻煩大家指教一下，很急。
回覆列表
-
1 # Excel和VBA
可以用VBA來實現
Sub tesr()
Dim arr, arr1, arr3()
arr = Range(Cells(1, 1), Cells(7, 1))
arr = WorksheetFunction.Transpose(arr)
arr1 = Range(Cells(1, 2), Cells(6, 2))
arr1 = WorksheetFunction.Transpose(arr1)
k = 0
For i = 1 To UBound(arr)
Debug.Print arr(i)
s = Filter(arr1, arr(i), True)
If UBound(s) >= 0 Then
k = k + 1
ReDim Preserve arr3(1 To 1, 1 To k)
arr3(1, k) = s(0)
End If
Next i
Cells(2, 4).Resize(1, k) = WorksheetFunction.Transpose(arr3)
End Sub