Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Building the Table

Sub MultiplicationTable()     ' Build a multiplication table using a single formula     Range("B1:M1").Value = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)     Range("B1:M1").Font.Bold = True     Range("B1:M1").Copy     Range("A2:A13").PasteSpecial Transpose:=True     Range("B2:M13").FormulaR1C1 = "=RC1*R1C"     Cells.EntireColumn.AutoFit End Sub