用数组法改写代码

天地一相

感谢帮助！下面是一段汇总符号条件的数据的代码，嵌套在循环中使用的，请使用数组法改写。能把符合条件的数据先放在数组里，最后一次性写入位置。

1. str1 = ""
   
2. If Cells(1, 1).Value = 25 Then
   
3.         For Each x In Range("B1:N1")
   
4.              str1 = str1 & x
   
5.          Next x
   
6. Cells(Rows.Count, "A").End(3).Offset(1) = str1
   
7. End If
   

复制代码

全党

arr = Range("B1:N1")
If [a1].Value = 25 Then
For i = 1 To UBound(arr)
  For j = 1 To UBound(arr, 2)
  str1 = str1 & arr(i, j)
  Next
Next
Cells(Rows.Count, "A").End(3).Offset(1) = str1
End If

天地一相

全党 发表于 2023-6-29 05:48
arr = Range("B1:N1")
If [a1].Value = 25 Then
For i = 1 To UBound(arr)

谢谢，看了多遍，感觉还是需要修改下。问题1：你写的这段代码要放进大循环里去，需要累积全部符合的数据，我没看到n=n+1,之类的句子。猜想还是阶段性反复写入结果的。想法2：不要连接成字符串了，就arr的列数，最终汇总结果直接在正下方第3行开始写入，即左上顶点是B3。再说明：B1:N1的内容是不断变化的，只有当A1=25时，才能去获取这个区域的内容。不知道可否不用循环，直接把A1等于25时，这个区域（就1行）的内容装入数组去，这样符合一次装入一次（行），最后，把全部汇总得数据在B3写入。

全党

天地一相 发表于 2023-6-30 12:29
谢谢，看了多遍，感觉还是需要修改下。问题1：你写的这段代码要放进大循环里去，需要累积全部符合的数据 ...

1,这段代码是按照你提供的原代码的效果写的；
2，对数组进行了行列循环达到你代码中 each x 的效果，不用n=n+1；
3，if 【a1】=25  then  arr=range（“”b1:n1“”）
     【b3】.resize(1,ubound(arr,2))=arr

天地一相

全党 发表于 2023-6-30 14:23
1,这段代码是按照你提供的原代码的效果写的；
2，对数组进行了行列循环达到你代码中 each x 的效果，不 ...

谢谢，你的第3条，这里的arr的内容能不能累加，因为我要放进多循环里去，反复执行你写的语句，我想避免每次执行都写入表格，把每次执行时符合的内容先装进数组，等多循环结束后一次性写入表格。