先在此感謝各位閱讀與幫忙
以下為條件：
1.C13列人名，有多筆，無固定順序
2.F1:J11尋找與C13相同人名後，複製下方兩格儲存格，並貼上
已邀請的邦友 {{ invite_list.length }}/5
供參
Sub test()
Dim k,j,i As Integer
For k = 0 To 4
For j = 0 To 2
For i = 1 To 5
If Cells(13, 3 + k) = Cells(1 + j * 4, 5 + i) Then
Cells(14, 3 + k) = Cells(2 + j * 4, 5 + i)
Cells(15, 3 + k) = Cells(3 + j * 4, 5 + i)
End If
Next i
Next j
Next k
End Sub
iThome鐵人賽
看影片追技術