admin 管理员组文章数量: 1184232
2024年4月30日发(作者：eclipse不支持jdk8)
vba经典代码
以下是一些经典的VBA代码示例：
1. 在单元格中显示当前日期：
```vba
Range("A1"Value = Date
```
2. 在单元格中显示当前时间：
```vba
Range("A1"Value = Time
```
3. 在单元格中显示当前日期和时间：
```vba
Range("A1"Value = Now
```
4. 循环遍历并处理所有工作表：
```vba
Dim ws As Worksheet
For Each ws In Worksheets
"在此处添加处理代码
Next ws
```
5. 将工作表中的数据复制到另一个工作表：
```vba
Worksheets("Sheet1"
Destination:=Worksheets("Sheet2"Range("A1"```
6. 打开文件对话框并选择文件路径：
```vba
Dim filePath As Variant
filePath = nFilename("Excel 文件
(*.xlsx),*.xlsx"If filePath <> False Then
"在此处添加处理已选择文件的代码
End If
```
7. 创建新工作簿并保存：
```vba
Dim newWorkbook As Workbook
Set newWorkbook =
"C:""路径""文件名.xlsx"```
8. 删除所有空行：
```vba
Dim lastRow As Long
lastRow = Cells(, 1).End(xlUp).Row
On Error Resume Next
("A1:A" &
lastRow).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
On Error GoTo 0
```
9. 过滤数据并复制到另一个工作表：
```vba
("A1:D10"AutoFilter Field:=1,
Criteria1:="条件
"("A2:D10"SpecialCells(xlCellTypeVisible).
Copy
Destination:=Worksheets("Sheet2"Range("A1"
ilterMode = False
```
10. 遍历并选择某一列中的所有唯一值：
```vba
Dim uniqueValues As Collection
Set uniqueValues = New Collection
Dim cellValue As Variant
On Error Resume Next
For Each cellValue In Range("A1:A10"
cellValue, CStr(cellValue)
Next cellValue
On Error GoTo 0
```。
版权声明：本文标题：vba经典代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1714443017a680347.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论