VBA-Excel-循環復制一系列單元格

Question

我試圖找到一個單元格並將其選中，然后選擇它下面的13行，因此我可以將所選內容復制到下一列並將其粘貼並轉置。

我的查詢是：

If cell.Value Like "*OR-*" Then
    Cells(ActiveCell, cell.Offset(0, 13)).Select
    cell.Copy 
    cell.Offset(0, 1)
    cell.Clear

我的復制和粘貼沒有問題，但是選擇我想要的東西讓我失望了

Answer 1

首先，復制下面的13行是Cell.Offset(13,0)而不是Cell.Offset(0, 13) （在右邊的13列）。

其次，您無需Select Range即可復制它，只需使用以下代碼即可：

If Cell.Value Like "*OR-*" Then
    Range(Cell, Cell.Offset(13)).Copy
    Cell.Offset(, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Cell.Clear
End If