" 以下是一段VBA代码，用于生成九九乘法表： ```vba Sub CreateMultiplicationTable() Dim i As Integer, j As Integer Dim ws As Worksheet ' 创建一个新的工作表 Set ws = ThisWorkbook.Worksheets.Add ' 设置工作表的名称 ws.Name = "乘法表" ' 清除工作表的内容 ws.Cells.ClearContents ' 设置乘法表的行和列 For i = 1 To 9 For j = 1 To i ' 计算乘法表的值 ws.Cells(j, i).Value = i * j Next j Next i ' 调整乘法表的列宽 For i = 1 To 9 ws.Columns(i).AutoFit Next i ' 提示用户完成操作 MsgBox "乘法表已生成在新工作表中！", vbInformation, "完成" End Sub ``` 将此代码复制到Excel VBA编辑器中的一个新模块，然后运行宏。这段代码将在当前工作簿中创建一个新的工作表，并生成九九乘法表。"