[已解决]如何将数组赋值给不连续的单元格?

dpdmlym

有一维数组,arr(1 to 40),怎么用简单方法将它赋值给40个不连续单元格?

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-5 18:33

如果你的不连续单元格没有规律的话，拿就只能一个一个的等于
cells(Ro,Co)=arr(n)

如果有规律就直接按照规律循环
for ro = x to y
  for co = n to m
   cells(f(ro),f(co))=arr(f(ro))
next co
next ro

注意：f(co）代表关于co的一个表达式，因为你没有附件，没有说明什么规律，我也只能这么给你写了。

跳转到最佳答案楼层

windimi007

请把问题说具体了，最好上传附件，方便测试！{:4212:}

sunjing-zxl

如果你的不连续单元格没有规律的话，拿就只能一个一个的等于
cells(Ro,Co)=arr(n)

如果有规律就直接按照规律循环
for ro = x to y
  for co = n to m
   cells(f(ro),f(co))=arr(f(ro))
next co
next ro

注意：f(co）代表关于co的一个表达式，因为你没有附件，没有说明什么规律，我也只能这么给你写了。

香川群子

把40个不连续的单元格合起来（按住ctrl后选择）后命名为一个区域。

或者VBA中用union方法合并为一个Rng区域。

然后，使用数组循环赋值如：

for i = 1 to Rng.count
    Rng.cells(i)=arr(i)
next

……

不过，需要事先确认好单元格顺序。

（按合并时先后顺序？）

Select

重复发帖版主可能会删的，对回复者也不好

ztccsj

高手间对决让低手们看不懂哈