提到不及格的成绩到sheets2

yshcy

把数据源里的B列不及格的行信息，提取到sheets 2 这张工作表，但是y这行为什么会出错，请老师指教，谢谢

ooluckydog

arr1 -> arr
另外还要一个j的循环

swl4561255

1. Sub test()
   
2. Dim myr As Range
   
3. Set myr = Range("A1").Resize(1, 3)
   
4. ar = Range("A1").End(4).Row
   
5. For i = 2 To ar
   
6.     If Cells(i, 2) < 60 Then
   
7.         Set myr = Union(myr, Cells(i, 1).Resize(1, 3))
   
8.     End If
   
9. Next
   
10. myr.Copy Sheets("sheet2").[A1]
    
11. End Sub
    

复制代码

沈默00

这代码哪来的，，，错误多的很呢

沈默00

沈默00

VBA基础...

LIUZHU

JSA参与下，看下效果

LIUZHU

JSA代码，只适用于WPS2019

1. function 提取不及格记录(){
   
2.         let arr=Sheets.Item("数据源").Range("a1").CurrentRegion.Value2.filter((x,i)=>i==0 || x[1]<60);
   
3.         Sheets.Item("Sheet2").Activate();
   
4.         Cells.ClearContents();
   
5.         Range("a1").Resize(arr.length,arr[0].length).Value2=arr;
   
6. }

复制代码

LIUZHU

附件，用WPS测试效果

yshcy

swl4561255 发表于 2024-5-14 07:48

你好。end(4)是相当于end (xldown)吧