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