Excel VBA 尋找字串並複製

excel vba

longtimetalk 2021-04-06 01:53:10 ‧ 963 瀏覽

分享至

先在此感謝各位閱讀與幫忙

以下為條件：
1.C13列人名，有多筆，無固定順序
2.F1:J11尋找與C13相同人名後，複製下方兩格儲存格，並貼上

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

bug621

iT邦見習生 ‧ 2021-04-06 11:05:03

最佳解答

供參

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