Excel VBA 创建和关闭 Application 实例
- 创建 Excel 应用实例
VBA 删除文件
Kill filepath
删除之间，先用 Dir 判断文件是否存在。
VBA 检查表名称是否存在
Function ExistSheetName(name As String)
Dim sht As Worksheet
For Each sht In Worksheets
If sht.name = name Then
ExistSheetName = True
Exit Function
End If
Next
ExistSheetName = False
End FunctionExcel VBA 添加新工作表
- 默认工作簿中添加表
Worksheets.Add
同时设置表名称：Worksheets.Add().Name="New Sheet"
- 指定工作簿中添加表
myWorkbook.Sheets.Add
.Add() 方法参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Before | 可选 | Variant | 指定工作表的对象，新建的工作表将置于此工作表之前 |
| After | 可选 | Variant | 指定工作表的对象，新建的工作表将置于此工作表之后 |
| Count | 可选 | Variant | 要添加的工作表数。 默认值为 1 |
| Type | 可选 | Variant | 指定工作表类型 |
- 如果同时省略
Before和After，则新工作表插入到活动工作表之前。 Type可以是下列的XlSheetType常量之一:xlWorksheet、xlChart、xlExcel4MacroSheet或xlExcel4IntlMacroSheet。
返回值
表示新工作表、图表或宏工作表的 Object 值。
Excel VBA 添加新工作簿
' 创建工作簿，
Dim newWb As Workbook
'或在另一个应用实例（进程）中创建
Dim newWb as appExcel.Workbook
？
Set newWb = Workbooks.Add如果要给工作簿命名，只有在保存时，指定文件名。wb.SaveAs Filename:="NewWB"
Excel VBA 隐藏和显示工作表
隐藏/取消隐藏工作表
Excel VBA 自动计算与刷新的开关
VBA对单元格数据进行批量修改时，可以暂时关闭自动计算和屏幕刷新，加快代码运行速度。
Excel 公式 大于小于等于如何写
大于等于某个固定值
例如：大于等于3
举例：">=3"大于等于某个单元格或函数
语法：">="&A3
VBA 查找值所在的列号
Function FindColOfValue(ws As Worksheet, val As Variant, rowNum As Long, startCol As Long)
Dim i As Long
With ws
For i = startCol To .Range(.Cells(startCol, rowNum), .Cells(startCol, rowNum)).CurrentRegion.Columns.Count()
If .Cells(rowNum, i).Value = val Then
FindColOfValue = i
Exit Function
End If
Next
End With
FindColOfValue = -1
End FunctionVBA 查找值所在的行号
Function FindRowOfValue(ws As Worksheet, val As Variant, colNum As Long, startRow As Long)
Dim r As Long
With ws
For r = startRow To .Range(.Cells(startRow, colNum), .Cells(startRow, colNum)).CurrentRegion.Rows.Count()
If .Cells(r, colNum).Value = val Then
FindRowOfValue = r
Exit Function
End If
Next
End With
End Function