好的...的下面线放入细胞阵列myArr,该内容A1避免从一个数组元素不符合标准
sh.Range("A1").Resize(cnt, 7).Value = myArr
下面是一些示例记录了上述行输出
18 5 1 23 15 7 6
23 5 3 10 18 20 15
19 10 25 12 21 15 23
10 14 11 9 7 25 20
24 15 23 20 11 17 2
7 15 3 16 24 22 13
14 4 15 13 6 23 2
20 11 22 24 14 3 6
17 5 13 15 19 6 22
9 13 15 7 24 3 6
在这一行之前,我需要一个条件并且不知道如何编写语法。 我想合计第一个元素的所有7个值(lbound
)并检查总和,并对所有元素执行此操作直到(ubound
)。并运行上述行仅如果一旦第一个查询解决的总数等于100
,我也有一个第二查询只列出计数为加起来一共有多少个元素100,有多少个元素总和为80,等等......通过添加另一个从第一个数组获取信息的数组。伯爵将75间125的预期输出应该
75 1
76 0
77 2
.
.
.
125 1
这是我想
Sub foo()
Dim myArr(1 To 10)
Dim cnt As Integer, i As Integer
myArr(1) = "18,5,1,23,15,7,6"
myArr(2) = "23,5,3,10,18,20,15"
myArr(3) = "19,10,25,12,21,15,23"
myArr(4) = "10,14,11,9,7,25,20"
myArr(5) = "24,15,23,20,11,17,2"
myArr(6) = "7,15,3,16,24,22,13"
myArr(7) = "14,4,15,13,6,23,2"
myArr(8) = "20,11,22,24,14,3,6"
myArr(9) = "17,5,13,15,19,6,22"
myArr(10) = "9,13,15,7,24,3,6"
For i = 1 To UBound(myArr)
With Application.WorksheetFunction.Sum = .Sum(.Index(myArr, i, 0))
'if ....
'....
'endif
End With
Range("A1").Resize(cnt, 7).Value = myArr
End Sub
向我们展示你迄今为止编写的代码和告诉我们你遇到的问题。 – QHarr
按元素你是指排?如果循环行是每行= 100或每行总数= 100?后者似乎更有意义。一些示例数据会有所帮助。 – QHarr
谢谢你的回复。该代码与我面临的问题无关。我在我的工作表中得到结果在范围A1:G250这是问题中提到的行的输出。我唯一的问题是,而不是只填写250行,只填充行数为100的行数。 – Sabha