vba宏代碼大全（vba宏語言）

大家好，我是小夏，我來為大家解答以上問題。vba宏代碼大全，vba宏語言很多人還不知道，現在讓我們一起來看看吧！

1、問題1

2、Private Sub CommandButton1_Click()

3、Dim i, j As Long

4、 Sheets("sheet2").Cells.ClearContents

5、 Sheets("sheet1").Cells.Copy

6、 Sheets("sheet2").Select

7、 Sheets("sheet2").Range("A1").Select

8、 ActiveSheet.Paste

9、i = 3

10、Do While Sheets("sheet2").Range("A" & i).Value <> ""

11、 For j = 2 To i - 1

12、 If Sheets("sheet2").Range("A" & i).Value > Sheets("sheet2").Range("A" & j).Value Then

13、 Else

14、 Sheets("sheet2").Rows(i & ":" & i).Cut

15、 Sheets("sheet2").Rows(j & ":" & j).Insert Shift:=xlDown

16、 Exit For

17、 End If

18、 Next j

19、 i = i + 1

20、Loop

21、End Sub

22、問題2

23、Private Sub CommandButton1_Click()

24、Dim i, j As Long

25、 Sheets("sheet2").Cells.ClearContents

26、 Sheets("sheet1").Cells.Copy

27、 Sheets("sheet2").Select

28、 Sheets("sheet2").Range("A1").Select

29、 ActiveSheet.Paste

30、i = 3

31、Do While Sheets("sheet2").Range("A" & i).Value <> ""

32、 For j = 2 To i - 1

33、 If Sheets("sheet2").Range("C" & i).Value & Sheets("sheet2").Range("D" & i).Value > Sheets("sheet2").Range("C" & j).Value & Sheets("sheet2").Range("D" & j).Value Then

34、 Else

35、 Sheets("sheet2").Rows(i & ":" & i).Cut

36、 Sheets("sheet2").Rows(j & ":" & j).Insert Shift:=xlDown

37、 Exit For

38、 End If

39、 Next j

40、 i = i + 1

41、Loop

42、End Sub

本文到此講解完畢了，希望對大家有幫助。