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
本文到此讲解完毕了,希望对大家有帮助。