如何将多个等宽的单元格区域合成一个数组处理(又有新的问题出现)

praijna

各位老师：
请问如何将 A1:G12, D1:D12, I1:I12, .......这些等宽的区域合并到一个数组中来处理？数组的宽度仍然是12.





BR

[ 本帖最后由 praijna 于 2010-8-27 22:20 编辑 ]

Zamyi

dim r()
n=range("A1:G12, D1:D12, I1:I12").areas.count
redim r(1 to n)
for i=1 to n
r(i)=range("A1:G12, D1:D12, I1:I12").areas(i)
next

praijna

感谢Zamyi老师，学习中！

[ 本帖最后由 praijna 于 2010-8-27 17:52 编辑 ]

praijna

各位老师：                                                       
        能否将如附件 Range("A15:I15"),Range("A18:I18"),Range("A20:I20")合并到一个数组后，                这个数组的内容与格式与直接将 Range("A1:I3")做为一个数组时一样？

Book1.rar (6.86 KB, 下载次数: 6)

2010-8-27 17:22 上传

点击文件名下载附件

感谢！

Zamyi

逐个赋值，或者把各区域（该转置的转置）放到一起，再赋值。

praijna

Zamyi老师：
能否麻烦您代劳做个样板？我对数组操作尚知之甚少！



BR

[ 本帖最后由 praijna 于 2010-8-27 17:52 编辑 ]

Zamyi

Dim sh As Worksheet
Application.DisplayAlerts = False
Set sh = Sheets.Add
Sheet1.Range("A15:I15,A18:I18,A20:I20").Copy sh.[a1]
r = sh.Range("A1").CurrentRegion'r为取得的数组
sh.Delete
Application.DisplayAlerts = True

praijna

Zamyi老师：
有没有可能直接在数组里操作也可以达到相同的结果呢？麻烦您！



BR

praijna

Zamyi老师走了!
顶起来,哪位老师能够帮助解决一下?试了遍历,达到预期的目的,感谢Zamyi老师指点!
代码如下:
Bay = ADList.Count
For y = 0 To Bay - 1
WKAD = Split(ADList.Keys(y), "--")(1)
WK = Split(ADList.Keys(y), "--")(0)
Temp = Range(Replace(WKAD, 5, 9))
zzz = UBound(WorksheetFunction.Transpose(Temp))
ReDim TempOEE(1 To ItemsNu.Count, 1 To zzz)
For z = 0 To ItemsNu.Count - 1
jjj = Replace(WKAD, "5", ItemsNu.Keys(z))
Tempo = Range(jjj)
zzz = UBound(WorksheetFunction.Transpose(Tempo))
For zz = 1 To zzz
TempOEE(z + 1, zz) = Tempo(1, zz)
Next
Next

[ 本帖最后由 praijna 于 2010-8-27 22:19 编辑 ]