常见的对象 | |
Workbook | 工作簿 |
Worksheet | 工作表 |
Range | 单元格区域 |
cell | 单元格 |
Sub ob()
'工作簿对象操作
'1--打开当前工作簿路径下,一个名为“要打开的工作簿”
Workbooks.Open ThisWorkbook.Path & '\' & '要打开的工作簿.xlsx'
'2--关闭工作簿,并保存修改,如果不保存修改,savechanges改为false
Workbooks('要打开的工作簿.xlsx').Close SaveChanges:=True
'工作表对象的操作
'1--定义工作表对象
Dim mysht As Worksheet '定义工作表对象
Set mysht = ThisWorkbook.Sheets('Sheet1') '将工作表对象赋值给变量
'2--工作表的循环
'1)把当前工作簿的每个工作表的A1单元格填上“VBA代码集锦”
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = 'VBA代码集锦'
Next
'2)把当前工作簿的每个工作表的A1单元格填上“VBA代码集锦”
For Each sh In ThisWorkbook.Worksheets
sh.Cells(1, 1).Value = 'VBA代码集锦'
Next
'3--激活、选中、删除工作表
ThisWorkbook.Sheets('Sheet2').Activate
ThisWorkbook.Sheets('Sheet2').Select
ThisWorkbook.Sheets('Sheet2').Delete
'Range对象操作
ThisWorkbook.Sheets('Sheet1').Select
'1--单个单元格选中
Range('A2').Select
Cells(2, 1).Select '第二行第一列
'2--连续单元格区域选中
Range('A2:A5').Select
Range(Cells(2, 1), Cells(5, 1)).Select
'3--不连续单元格区域选中
Application.Union(Range('A1:A5'), Range('C1:C5')).Select '选中这两个区域
Range('A1:A5,A2:A7,B2:B10').Select '选中这三个区域合并后的区域
Range('A1:A5 A3:A8').Select '选中这两个区域相交叉的区域
Range('A4:A10', 'D2:D8').Select '选中这两个区域所围成的最小的矩形区域
'4--引用行列
Rows(3).Select '选中第3行
Rows('3:8').Select '选中第3-8行
Columns(3).Select '选中第3列
Columns('D').Select '选中第D列
Columns('A:D').Select '选中第A-D列
'5--复制
' 1)把sheet1中A1:A5的值复制到Sheet3的A1:A5
ThisWorkbook.Sheets('Sheet3').Range('A1:A5').Value = ThisWorkbook.Sheets('Sheet1').Range('A1:A5').Value
' 2)将工作表 Sheet1单元格A1:A5中的公式复制到工作表 Sheet3的单元格B1:B5中,包含格式与公式
ThisWorkbook.Sheets('Sheet1').Range('A1:A5').Copy ThisWorkbook.Sheets('Sheet3').Range('B1')
' 3)将工作表 Sheet1单元格A1:A5中的公式复制到工作表 Sheet3的单元格C1:C5中,只复制值
ThisWorkbook.Sheets('Sheet1').Range('A1:A5').Copy
ThisWorkbook.Sheets('Sheet3').Range('C1').PasteSpecial xlPasteValues
End Sub
----------------------------------------
联系客服