alt+F11插入--模快Sub tz()Dim z%, x%For x = 1 To 33For z = 1 To 3n = n + 1 Cells(x, z) = n Next NextEnd Sub完成之后，按F5键，数据就添好了，又是有上边大哥的问题，不知道把100放哪儿，就没放呵呵。
