excel中返回指定的数

Sub aa()x = Sheet1.Range("a565656").End(3)For i = 1 To xIf Cells(i, 1) = 1 Then Sheet2.Cells(i, 1) = Cells(i, 1)If Cells(i, 1) = 2 Then Sheet2.Cells(i, 1) = Cells(i, 1)If Cells(i, 1) = 3 Then Sheet2.Cells(i, 1) = Cells(i, 1)If Sheet2.Cells(i, 1) "" Then Sheet2.Cells(i, 2) = Sheet1.Cells(i, 1) + 2Next iEnd Sub