摘要：# 打开工作簿跳转到指定的工作表 Private Sub Workbook_Open() mon = Format(Now(), "m") MsgBox monEnd Sub # 活动表的名称 ActiveSheet.Name 阅读全文

摘要：选定所有的单元格 Dim r as Range set r= ActiveSheet.UsedRange r.Row 左上角的行数 阅读全文

摘要：Sub test() Dim w As Worksheet Set w = Worksheets(3) w.Cells(5,3) = 100 End Sub 注意： worksheet 工作表对象； 当给对象赋值时，要加上关键字Set 阅读全文