Question

excel根据sheet1的A1,A2，A3的数值，比如是3,4,5，在sheet2的A1，A2，A3往右填充相应的内容

excel根据sheet1的A1,A2，A3的数值，比如是3,4,5，在sheet2的A1，A2，A3往右相应的3,4,5个单元格中填充3,4,5，即在sheet2的A1，B1，C1中填入3，3,3，在A2，B2，C2，D2填入4,4,4,4，在A3，B3，C3，D3，E3填入5,5,5,5,5，求大侠，怎么实现
还有点补充，之前的问题我已经明白了，现在还有个问题，就是根据下图中的左边的那个班数，在右边的对应的机台后面的空格内填入相应的空格数，内容是单号，比如AD-1只有一个班数，即在右边AD-1后面填入一个5102-140312025，如果是XH-1，则在右边的XH-1后面填入三个单元格的5102-140312025，还有一个注意，就是单号的那组数据和后面的机台排班是在不同的表格，暂定为sheet1和sheet2吧，列名可以自定，求救啊各位大侠

Answer 1

在Sheet2输入并执行如下VBA程序：

Sub try()
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 1 To Sheet1.Range("A" & i).Value
Cells(i, j) = Sheet1.Range("A" & i).Value
Next j
Next i
End Sub

追问

能说的详细点吗 ，我是菜鸟，怎么添加VBA呢，有没有步骤，还有，如果我在sheet1中继续添加东西，在sheet2中还能不能自动更新呢？求教，谢谢了

追答

在sheet2，按ALT+F11，把程序copy进去。
程序改成：
Sub try()
Dim i As Integer, j As Integer
For i = 1 To Sheet1.Range("A65536").end(xlup).row
For j = 1 To Sheet1.Range("A" & i).Value
Cells(i, j) = Sheet1.Range("A" & i).Value
Next j
Next i
End Sub

Answer 2

追问

如果我要是继续在sheet1中添加内容，怎么能在sheet2中自动生成呢？？？

追答

把sheet2中的公式往右拉或往下拉，你试试不就知道了，sheet2中的空白单元格里面是有公式的，就是考虑到你要增加数据，往右拉或往下拉你要是不会的话那我也没办法了