我有麻烦复制粘贴特定数量的细胞，并粘贴到另一个

正如标题所说，我想要做这样的事情。 下面我有一些数据的图像。 它总是由24行组成。 现在我想select每个不均匀的一个，并将其粘贴到第一列下面。 我也想和第二个一样做。 所以例如我想要select具有D列下的值的单元格，并将其粘贴在B从26开始，然后selectF列中的单元格，并将它们粘贴到我在上一步添加的单元格下面。 类似于我想对C列做同样的事情。 所以E会粘贴在C，G之后等等…

我是第一个计时器在视觉基础excel和尝试做这样的事情，但我得到一个子或function未定义的错误，我认为我的逻辑是有缺陷的。 任何帮助将大大appriciated。

这是我的代码到目前为止：

Private Sub CommandButton21_Click() Dim i As Integer Dim j As Integer Dim k As Integer j = 26 Dim target As Integer target = 2 For k = 2 To 10 For i = 2 To 25 Cell(i, Column(k)).Select Selection.Copy Cell(j, Column(target)).Select ActiveSheet.Paste j = j + 1 Next i k = k + 1 Next k End Sub 

Answer 1

你有写单元格而不是单元格，接下来K做相同的函数K = k + 1，正确的代码si：

 Sub CommandButton21_Click() Dim i As Integer Dim j As Integer Dim k As Integer j = 26 Dim target As Integer target = 2 For k = 2 To 3 For i = 2 To 26 Cells(i, k).Select Selection.Copy Cells(j, target).Select ActiveSheet.Paste j = j + 1 Next i Next k End Sub