在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 Su
在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 Su