对象赋值到变量

Sub test()
Dim sht As Worksheet

For i = 2 To 5
Set sht = Sheets.Add
sht.Name = Sheet1.Range("a" & i)
Next

End Sub

Dir函数

'获得所有文件名
Sub test()
Dim str As String

str = Dir("d:\data\*.*")

For i = 1 To 100
    Range("a" & i) = str
    str = Dir
    
    
    If str = "" Then
        Exit For
    End If
Next

End Sub

多文件合并

Sub wjhb()
Dim str As String
Dim wb As Workbook

str = Dir("d:\data\*.xls*")

For i = 1 To 100
    Set wb = Workbooks.Open("d:\data\" & str)
    
    wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0)
    
    wb.Close
    str = Dir
    If str = "" Then
        Exit For
    End If
Next
End Sub

Sub wjhb()
Dim str As String
Dim wb As Workbook
Dim sht As Worksheet

str = Dir("d:\data\*.xls*")

For i = 1 To 100
    Set wb = Workbooks.Open("d:\data\" & str)
    For Each sht In wb.Sheets
        sht.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
    Next
    wb.Close
    str = Dir
    If str = "" Then
        Exit For
    End If
Next
End Sub

查找功能

Sub chazhao()
Dim rng As Range

Set rng = Range("d:d").Find(Range("l3"))

If Not rng Is Nothing Then
    Range("m3") = rng.Offset(0, 3)
End If

End Sub

更新日志

2025/2/16 23:37

查看所有更新日志

• 0e103-fix:全文搜索样式于 2025/2/16
• 51ebd-docs: 初始版本于 2024/9/22

版权所有

版权归属：passwordgloo

许可证：署名-相同方式共享 4.0 国际 (CC-BY-SA-4.0)