excel常用vba代码

以下是一些常用的 Excel VBA 代码示例：

1. 在指定单元格中写入数值或文本：

Range("A1").Value = "Hello, World!"

2. 获取指定单元格的数值或文本：

Dim value As Variant
value = Range("A1").Value

3. 循环遍历一个区域内的单元格：

Dim cell As Range
For Each cell In Range("A1:A10")
    ' 执行代码
Next cell

4. 获取某个单元格的行号和列号：

Dim rowNumber As Long
Dim columnNumber As Long
rowNumber = Range("A1").Row
columnNumber = Range("A1").Column

5. 创建新的工作表：

Dim newSheet As Worksheet
Set newSheet = ThisWorkbook.Sheets.Add
newSheet.Name = "New Sheet"

6. 删除工作表：

Application.DisplayAlerts = False ' 禁用删除确认提示框
ThisWorkbook.Sheets("Sheet1").Delete
Application.DisplayAlerts = True ' 启用删除确认提示框

7. 打开另一个工作簿并复制数据：

Dim sourceWorkbook As Workbook
Dim targetWorkbook As Workbook

Set sourceWorkbook = Workbooks.Open("C:\source.xlsx")
Set targetWorkbook = ThisWorkbook

sourceWorkbook.Sheets("Sheet1").Range("A1:B10").Copy targetWorkbook.Sheets("Sheet2").Range("A1")
sourceWorkbook.Close SaveChanges:=False

这些代码示例涵盖了一些常见的 Excel VBA 操作。您可以根据自己的需求进行修改和扩展。