【V入2期】数组入门练习五

fzzjw

看高手的答案。

hero6810001

<p>

游客，如果您要查看本帖隐藏内容请回复

</p>

fzylx

学习。

simengzhi

<p>学习 ，谢谢</p>

ccsc006

<p>Sub 作业5()<br/>Dim arr1()<br/>Dim i As Integer, j As Integer, x As Integer, y As Integer<br/>Sheet3.Select<br/>x = Range("a65536").End(xlUp).Row<br/>y = Range("iv1").End(xlToLeft).Column<br/>ReDim arr1(1 To x, 1 To y)</p><p>For i = 1 To x<br/>&nbsp;&nbsp;&nbsp; For j = 1 To y<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr1(i, j) = Cells(i, j).Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheet4.Cells(i, j).Value = arr1(i, j)<br/>&nbsp;&nbsp;&nbsp; Next<br/>Next<br/>Sheet4.Select<br/>End Sub</p>

hkahai

穷人路过

LY728002

<p>学习来了!!!</p>

龙猫

[em01]

ppplop

作业

lpsh1985

<p>[em06][em06]</p><p>不会，来看看</p>