1、Application.CommandBars("WorksheetMenu Bar").Enabled = false 2、cells(activecell.row,"b").value'活动单元格所在行B列单元格中的值 3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置 DimshtSheet As Worksheet For Each shtSheet In Sheets If shtSheet.Name ="KK" Then Exit Sub Next shtSheet Set shtSheet = Sheets.Add(Before:=Sheets(1))shtSheet.Name = "KK" End Sub 4、Sheet1.ListBox1.List= Array("一月", "二月", "三月", "四月")'一次性增加项目 5、Sheet2.Rows(1).Value= Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中
