VBA技巧

小知识

跳出for

exit for

调用函数

call func

单元格

单元格表示

range("a1:b2")

单元格属性

value 
text

单元格可读属性

row 获取行号

选择单元格的方法

offset(2,1)
 entire row选整行
 end(xlup)
 resize(2,2)

单元格操作

select
copy
clearcontent
delete

筛选

Range(“a1:f100”).AutoFilter field:=4, Criteria1:=“=苏州"
' 第四列筛选为苏州的

例子

下面的程序可以根据sheet1的第4列，将sheet1拆开成不同的sheet

Sub detach()


'先建表，然后筛选，然后吧数据移动过去
Dim sht As Worksheet
Dim i, j, allrow, k As Integer


For Each rag In Range("d2:d1000")
    k = 0
    For Each sht In Sheets
        If rag.Value = sht.Name Then
            k = 1
            Exit For
        End If
    Next
    If k = 0 Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = rag
    End If
        
Next

allrow = Sheet1.Range("a65536").End(xlUp).Row

For j = 2 To Sheets.Count
    Sheet1.Range("a1:f" & allrow).AutoFilter field:=4, Criteria1:=Sheets(j).Name
    Sheet1.Range("a1:f" & allrow).Copy Sheets(j).Range("a1")
Next
Sheet1.Range("a1:f" & allrow).AutoFilter


End Sub