岩

‘打开某个路径下的工作薄（文档）Sub dakaibiao()excel.application.dispayalters=false ‘关闭屏幕更新excel.application.ScreenUpdating=false‘打开mac下面的某个工作薄（文档）Workbooks.Open FileName:="/Users/lixiangyang/Downloads/地图.xlsx"‘当前工作薄表集合的第一个表的单元格赋值Activeworkbook.sheets(1).range(“C3.

Sub biao01()‘结合sheets属性在特定表插入表并且命名Sheet1.Name = "01biao" ‘重新给表定义属性Range("A1") = Sheet1.Name Sheets(1).Range("B1") = 1Sheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "02biao"Dim i As IntegerFor i = 3 To 6Sheets.Add after:=Sheets(.

if 循环 Sub gzt01() Dim e As Integer For e = 3 To 50 Step 2 If Range("A" & e) = "" Then Exit For End If Range("A1:L1").Select Application.Cut...

for循环Sub gzd() Range("A1:L1").Select Dim i As Integer For i = 1 To 10 ActiveCell.Range("A1:L1").Select Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown NextEnd SubSub gzt...