excel vba 学习

Excel vba

• 录制宏、绝对引用、相对引用

For循环

Dim i as interager

For i=1 to 100 step 7

Next

step 7 代表每7步执行一个动作

 

Range:定位单元格

Range(“a1”)

 

For函数

写代码跟删除有关的，要记得删除一行下一行会往上跑一行，循环可以从下往上走，

Step=-1

 

Sub pd()

Dim i As Integer

For i = 26 To 2 Step -1

    '处理性别的代码

    If Range("e" & i) = "男" Then

        Range("f" & i) = "先生"

    Else

        Range("f" & i) = "女士"

    End If

   

    '处理专业代号

    If Range("b" & i) = "理工" Then

        Range("c" & i) = "LG"

    ElseIf Range("b" & i) = "文科" Then

        Range("c" & i) = "WK"

    Else

        Range("c" & i) = "CJ"

    End If

       

       

       

    If Range("d" & i) = "" Then

        Range("D" & i).Select

        Selection.EntireRow.Delete

    End If

Next

End Sub

 

 

 

 

 

Sub gzt()

Dim i As Integer

For i = 3 To 2000 Step 2

    If Range("A" & i) = "" Then

        Exit For

    End If  

    Rows("1:1").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("A" & i).Select

    Selection.Insert Shift:=xlDown   

Next

End Sub

 

第三节：

方法:select、add、delete、copy

属性：count、name

Select：   

选中表的三种方式

Sheet1.select

Sheets(“1月”).select

Sheet(1).select

 

在最后一个表的后面添加一张表

count、name 为属性，方法带点、属