如何通过VBA自动复制指定的行

upunion

近期做表，经常需要用到复制行粘贴行的操作，为便捷操作，需求如下：
1、通过VBA自动判断需要复制的行，将A列中标识为C的行，复制，然后从第6行开始粘贴，粘贴到第16行，其中，16=10+6。
2、10的位置，即，要复制的范围，在第一C出现的位置的上一行，该数值由人工输入，程序自动判断。
3、C的位置连续，也就是要复制的话，是复制连续的行。（第一次出现C的行开始，到最后一次出现C的行结束）

详细内容，参考附件：

PS：第一次发的需求不够明确，我重新梳理了一下：

1、通过VBA自动判断需要复制的行，将A列中标识为C的行区域复制，区域为第一个出现C的行开始，到最后一次出现C的位置结束。本实例中为第10行到第13行；
2、从最后一次出现C的位置的下一行开始粘贴，粘贴的行数为第一次出现C位置的行的上一行单元格中的数据，该数据已通过公式从data数据中取得，本实例中为A9，值为12
3、如果A9的值为0的话，不复制。也就是说只有一行数据的话，不执行复制的操作。

自动复制指定行需求VBA新.rar (8.03 KB, 下载次数: 257)

2014-9-17 16:55 上传

点击文件名下载附件

kakalv10

Sub aa()
    Dim i As Long, j As Long
    j = 6
    For i = 1 To 5
        If Range("a5") = 0 Then
            Exit For
        Else
            If Range("a" & i) = "C" Then
                Rows(i).Select
                Selection.Copy
                Rows(j).Select
                ActiveSheet.Paste
                j = j + 1
            End If
        End If
    Next
End Sub
看看行不行？

upunion

kakalv10 发表于 2014-9-17 15:17
Sub aa()
    Dim i As Long, j As Long
    j = 6

不行呢，执行后，没有反应。
另：
1、J的变量，是第一次出现C的上一行，是动态变化的。
2、宏没有运行，没有找到原因。

kakalv10

刚才忘加了第一个C列上一行那个
不过，第一个C肯定在第6行，不就代表A5是不是0吗？

kakalv10

还是二楼，代码加了个判断A5的值

upunion

大哥，可否给发个EXCEL附件，没有找到原因呢，我这边一直不运行

luoweixyl

我也想要此结果，求高手解答，期盼

ybhwvfxfw

kakalv10 发表于 2014-9-17 15:17
Sub aa()
    Dim i As Long, j As Long
    j = 6

ActiveSheet.Paste 这个怎么调整行高啊，复制出来的行高跟被复制的不一样高