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

问题描述:

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吧,列名可以自定,
1个回答 分类:综合 2014-11-11

问题解答:

我来补答
在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
 
 
展开全文阅读
剩余:2000
下一页:绘图