数组任意项求和

yjliurong131

yiyiyicz 发表于 2012-10-23 07:40
在VBA中，没有现成的数组排序方法。在论坛中可以搜索各种开发出来的程序
你这种情况，可以这样做
在数组b ...

谢谢师傅，已经改了，哈哈！能不能把brr(pp,3)放五个数值的地址为字符串显示一下？就是既显示偏差、组合，又显示地址的，我不会加

yiyiyicz

yjliurong131 发表于 2012-10-23 12:32
谢谢师傅，已经改了，哈哈！能不能把brr(pp,3)放五个数值的地址为字符串显示一下？就是既显示偏差、组合， ...

在数组赋值时，单元格区域的数值、字符等可以一次性写进数组中
如 arr=range("a1:e10")  或者  arr=range("a1:e10").value
但是，这样的写法不能将整个区域的单元格地址写进去。也就是说 arr=range("a1:e10").address 是不行的
我则是用原始方法，逐个赋值
for i=
for j=
arr(i,j)=cells(i,j).address
next
next
这样就将单元格地址写进数组里了

地址在数组里，可以当做字符串处理。

yiyiyicz

yjliurong131 发表于 2012-10-23 21:47
师傅，思想理解，单个元素的地址也可以显示。但是我想的是地址和值，偏差放一起，这个功能我写不出来，比 ...

如果数据很少
直接用
for i=1 to ubound(arr)
temp=arr(i,1) & "," & arr(i,2) & "," & arr(i,3)

next
如果要合并的项目很多
用 join
具体用法，看VBA帮助
或者搜索join
可以参考
http://club.excelhome.net/forum.php?mod=viewthread&tid=375960

yjliurong131

yiyiyicz 发表于 2012-10-23 16:13
在数组赋值时，单元格区域的数值、字符等可以一次性写进数组中
如 arr=range("a1:e10")  或者  arr=rang ...

师傅，思想理解，单个元素的地址也可以显示。但是我想的是地址和值，偏差放一起，这个功能我写不出来，比如：   0        545.93,48.96,57.07,27.01,47.03    $A$1,$B$1,$C$, $D$1,$E$3    生成的数组里第一列为偏差，第二列为5个元素字符串，第三列是5个元素的地址字符串
           这个怎么实现呢？

yjliurong131

yiyiyicz 发表于 2012-10-24 08:53
如果数据很少
直接用
for i=1 to ubound(arr)

谢谢师傅，还没写出完整的，仍然在学习中，呵呵