摘要：1 Sub y3231057()2 Set aa = CreateObject("Scripting.FileSystemObject")3 aa.MoveFolder "D:\1", "D:\2"4 End Sub 阅读全文

摘要：1 Private Sub Command()2 Dim dd As String3 dd = Dir("d:\*", vbDirectory)4 Do5 MsgBox dd6 dd = Dir7 Loop Until Len(dd) = 08 End Sub 阅读全文

摘要：'打印过的文档自动删除在Thisworkbook中写如下代码：View Code 1 Public m As Integer 2 3 Private Sub Workbook_BeforeClose(Cancel As Boolean) 4 On Error Resume Next 5 If m = 1 Then 6 Application.DisplayAlerts = False 7 ActiveWorkbook.ChangeFileAccess xlReadOnly 8 Kill ActiveWorkbook.FullName 9 ThisWorkbook.Close False 阅读全文

摘要：如果在一列中存入不规则的海量数据，数字和字符串混合，现在需要提取数字，总共总结出下面四中方法，依据运行速度快慢依次排列，推荐使用前三种方法：第一种：数组方法，速度最快 1 Sub y3231057_1() 2 t = Timer 3 Dim Arr, i&, j%, k&, S$, SS$, Str$ 4 Dim Arr1() As Single 5 Arr = Range("A1:A" & [a65536].End(xlUp).Row) 6 k = UBound(Arr) 7 ReDim Arr1(1 To k, 1 To 1) 8 For i = 阅读全文

摘要：用VBA录制的查找Cells.Find(What:="想查找的数据", After:=ActiveCell,LookIn:=xlValues, LookAt:= xlPart, SearchOrder:=xlByColumns,SearchDirection:=xlNext, MatchCase:=False).ActivateFind 方法 在区域内查找特定信息，并返回Range对象，该对象代表所找到的第一个包含所查找信息的单元格。如果未发现匹配单元格，就返回 Nothing。本方法不影响选定区域或活动单元格。 关于在Visual Basic中使用Find工作表函数的详细 阅读全文