[已解决]234234234

蜀西

23423423

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-12-20 13:48

这样啊，intersect(sheet1.usedrange, sheet1.columns(“a:fv”))
未测试

跳转到最佳答案楼层

大灰狼1976

上班时间不能下载附件。一般来说慎用usedrange，尽量改用currentregion。但是也是需要视具体情况的，有些时候currentregion也不一定适用，这时就需要动态判断所需区域的最大行列数。

蜀西

大灰狼1976 发表于 2021-12-20 14:31
上班时间不能下载附件。一般来说慎用usedrange，尽量改用currentregion。但是也是需要视具体情况的，有些时 ...

Sub AAAAAA()
Dim arr, i&, j%, Brr, n&
arr = Sheet1.UsedRange
Sheet2.Activate
ReDim Brr(1 To UBound(arr), 1 To 10)
For i = 3 To UBound(arr)
    If arr(i, 159) > 5 Then
       For j = 1 To 10
            Brr(i - 2, j) = arr(i, j + 0)
        Next
    End If
Next
[A3].Resize(UBound(Brr), 10) = Brr
End Sub

大灰狼1976

你把数据区也截个图发上来

蜀西

大灰狼1976 发表于 2021-12-20 15:13
你把数据区也截个图发上来

大灰狼1976

这样啊，intersect(sheet1.usedrange, sheet1.columns(“a:fv”))
未测试

蜀西

大灰狼1976 发表于 2021-12-20 16:48
这样啊，intersect(sheet1.usedrange, sheet1.columns(“a:fv”))
未测试

确实解决了问题，但我不明白为什么是columns(“a:fv”)
这个A:FV看不明白

大灰狼1976

表示有效区域限定在A列到FV列内，FW列开始排除在外。
但是我不明白明明有几个数据区，为什么要并入一个数组，分开装入数组比较好我认为。

蜀西

大灰狼1976 发表于 2021-12-20 17:19
表示有效区域限定在A列到FV列内，FW列开始排除在外。
但是我不明白明明有几个数据区，为什么要并入一个数 ...

我也不想并入一个数组，我也不是很懂，以前蓝大帮写的。
又有一个新问题了。
我把数据扩展之后，又出新问题了





这代码在前面用没问题，也是新面复制过来的，就改了一点 点，，，前面这样的代码就不越界

蜀西

大灰狼1976 发表于 2021-12-20 17:19
表示有效区域限定在A列到FV列内，FW列开始排除在外。
但是我不明白明明有几个数据区，为什么要并入一个数 ...

你说的装入数据，，他就分段输出结果 ？还是加载数据？？
能分段加载数据，分段运算 再分段输出 那当然更好啊