Private Sub Test()Dim i As IntegerDim j As Integer
For i = 12 To 26 '分子的起始值到终止值
j = 1 '如果单元格从A1开始,j就等于1,从A2开始,j就等于2
With ThisWorkbook.Sheets("Sheet1") 'Sheet1是Sheet名
.Range("A" & j).Value =i & "/333"'A是要写值的单元格名
End With
j = j + 1
NextEnd Sub把以上代码复制到宏里,按照自己的要求改完相应的值后,按F5运行。