Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.WorkSheets(1).Activate
For i=1 to 9
'objExcel.ActiveSheet.Columns(i).ColumnsWidth = 10
For j=1 to i
objExcel.Cells(i, j).Value = i & "x" & j & "=" & i * j
objExcel.Cells(i, j).Font.Bold = TRUE
objExcel.Cells(i, j).Font.Size = 24
objExcel.Cells(i, j).Font.ColorIndex = i + j - 1
Next
Next
MsgBox "Mission complete!",64,"完成"
转载自 CSDN-专业IT技术社区
原文链接：https://blog.csdn.net/jiangs111/article/details/169326545
