Excel宏VBA

Question

初学者问题我有一个关于Excel的问题。

我有一些列的表，如：

A   B   C 
------------------------ 
1 test 1 
2 test 5 
3 test 5 
4 test 2 
4 test 6 
5 test 7 
6 test 8 
7 test 2 
8 test 3 
9 test 3 
9 test 1 
9 test 4 
10 test 5 

我想一个宏，执行以下步骤。它检查C.如果C的值小于3，则复制该行以及下列所有具有A中相同值的行，直到A更改为新的工作表，然后再次检查C，等等。这里

输出应该是：

与

a b c 

4 test 2 
4 test 6 
7 test 2 
9 test 1 
9 test 4 

的新表单任何人都可以请帮我吗？

Answer 1

想我已经找到它（天堂吨真的测试它尚未）

Sub CustomcCopy() 
Dim controleValue As Double 
controleValue = 3 
Dim AValue As String 
Dim lastline As Integer, tocopy As Integer 

lastline = Range("F65536").End(xlUp).Row 
j = 1 

For i = 1 To lastline 
    For Each c In Range("L" & i) 
     If (c < controleValue And c > 0) Then 
      tocopy = 1 
     End If 
    Next c 
    If tocopy = 1 Then 
    AValue = Cells(i, "A").Value 

    Do While Cells(i, "A").Value = AValue 

     Rows(i).Copy Destination:=Sheets(2).Rows(j) 
     j = j + 1 
     i = i + 1 
    Loop 

    End If 
tocopy = 0 
Next i 

End Sub