VBA常用语句

单元格值 Cells(1, 1). Offset(0, 7)

偏离量 Offset(行, 列)

Cells(1, 1). Offset(3, 1)

hangs = Workbooks(\"工作簿名\").Sheets(\"表名\").Cells.SpecialCells(xlCellTypeLastCell).Row

lies = Workbooks(\"工作簿名\").Sheets(\"表名\").Cells.SpecialCells(xlCellTypeLastCell).Column

上级路径

Set FSO = CreateObject(\"Scripting.FileSystemObject\") tp = FSO.GetParentFolderName(ThisWorkbook.Path)

保存文件 ActiveWorkbook.Save

选择表 Workbooks(\"9、教师任课情况及工作量排序.xls\").Sheets(\"教师理论教学任课情况及工作量汇总\").Activate

循环 For h = 初值 To 终止 Step 步长 语句 Next 分支语句

If 条件 Then 语句 End If

统计工作表个数 Worksheets.Count

工作表名 Sheets(i).Name

1) ActiveWorkbook.name '返回活动工作薄的名称

2) ThisWorkbook.Name '返回当前工作簿名称

3) ThisWorkbook.FullName '返回当前工作簿路径和名称

当前文件路径：ThisWorkbook.Path

从别表拷贝粘贴 m = \"A\" & 1

n = \"B\" & 10

k = \":\"

mm = m & k & n

lj = ThisWorkbook.Path

Workbooks.Open lj + \"/Book2.xls\"

Windows(\"Book2.xls\").Activate

For i = 1 To 2

Workbooks(\"Book2.xls\").Worksheets(\"sheet\" & i).Range(mm).Copy

Windows(\"Book1.xls\").Activate

hang = Cells.SpecialCells(xlCellTypeLastCell).Row

Worksheets(\"sheet1\").Activate

Worksheets(\"sheet1\").Range(\"a\" & hang).Select

ActiveSheet.Paste Next i

Windows(\"Book2.xls\").Close