我无法复制粘贴特定数量的细胞并将它们粘贴到另一个细胞上

Question

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

我是visual basic excel中的第一个计时器，并尝试做这样的事情，但我得到一个子或函数未定义的错误，我认为我的逻辑是有缺陷的。任何帮助都会受到极大关注。

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

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