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 ----------------------------------------
|
|