清除数组中指定内容

nbchn

arr =Array(1, 2, 3, 4, 5, 6, 7)

arr = Filter(arr, 1, False)

用以上的方法，可以去除arr 中的1.




   arr = Range("B1:H1") 'Array(1, 2, 3, 4, 5, 6, 7)
    Brr = Application.Transpose(arr)
    For k = 4 To 5
        Brr = Filter(Brr, Cells(k, 1), False)        '//这句代码无法实现删除数组中的a4和a5!
   Nextb

[c4].Resize(UBound(brr), 1) = Brr


请各位大神帮忙修改一下，如何实现brr中删除A4 和 A5




求助.zip (15.14 KB, 下载次数: 4)

2024-1-31 15:52 上传

点击文件名下载附件

大灰狼1976

   arr = [B1:H1&""] '这句修改
    brr = Application.Transpose(arr) '这句不要

nbchn

大灰狼1976 发表于 2024-1-31 16:12

ok了，谢谢

大灰狼1976

顺便原因我也说明一下吧，arr=range("b1:h1")时，arr是一个二维数组（1行6列），外面套一个application.transpose()时，brr仍然是一个二维数组（6行1列），二维数组是不能使用filter()的，所以除非外面再套一层application.transpose()会变成一维数组，或者简单的方法就是[b1:h1&""]后面加引号直接获取一维数组，我采用了简单的方法。

nbchn

谢谢你的解答！在日常使用中我更喜欢使用Range方式，因为   Range("A1:C"& Range("C65536").End(xlUp).Row) 或者Range (cells(1,1),cells(Range("A65536").End(xlUp).Row，1) 这样更容易操作。

大灰狼1976

nbchn 发表于 2024-2-1 09:43
谢谢你的解答！在日常使用中我更喜欢使用Range方式，因为   Range("A1:C"& Range("C65536").End(xlUp).Row) ...

那你就套两层application.transpose()，可以把单行数据转置为一维数组，超过一行无效。