Vba excel-复制循环中的单元格范围

我试图找到一个单元格，并选择它和它下面的13行，这样我就可以复制选择转到下一列，并粘贴它转置

我的问题是：

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

---

我在复制和粘贴方面没有问题，但我想要的是选择，首先，下面的13行是

单元格偏移量（13,0）

，而不是

单元格偏移量（0,13）

（右侧第13列）

其次，您不需要选择

范围来复制它，只需使用下面的代码即可：

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

非常感谢你。这在我第一次遇到同样的问题时起了作用。