大家帮看下统计及格人数的问题

dzzxlbj

     我想把分数大于60的记录挑选出来放到E列和F列，由于目前刚接触数组，不想用字典，大家帮忙修改下代码，更简单一些，我觉的我写的太麻烦了。

    另外then后面用冒号连接的三句必须在一行吗？我试过不在一行统计结果出错。

    第三个问题就是怎样把符合条件的二维数组的值赋给另一个二位数组？"
代码如下
Sub test()
Dim arr, i%, n%, k%arr = Sheet1.Range("a2:b8")k = UBound(arr)For i = 1 To kIf arr(i, 2) >= 60 Then n = n + 1: Sheet1.Range("f" & n + 1).Value = arr(i, 2): Sheet1.Range("e" & n + 1).Value = arr(i, 1)
Next
End Sub



1.rar (13.78 KB, 下载次数: 10)

2020-1-22 00:11 上传

点击文件名下载附件

                                       
                                       
                                       
                                       
                                       
                                       
                                       
                                       
                                       
                                       
                                       

凌空一羽

Sub test()
Dim arr, i%, n%, k%
arr = Sheet1.Range("a2:b8")
k = UBound(arr)
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To k
    If arr(i, 2) >= 60 Then
'不用：号连接为一行的，需要if有结尾。
        n = n + 1
        Sheet1.Range("f" & n + 1).Value = arr(i, 2)
        Sheet1.Range("e" & n + 1).Value = arr(i, 1)
        brr(n, 1) = arr(i, 1)  '赋值
        brr(n, 2) = arr(i, 2)  '赋值
    End If
Next
Range("h2").Resize(n, 2) = brr  '数组结果
End Sub

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a2:b" & r)
   
7.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
8.     m = 0
   
9.     For i = 1 To UBound(arr)
   
10.       If arr(i, 2) >= 60 Then
    
11.         m = m + 1
    
12.         brr(m, 1) = arr(i, 1)
    
13.         brr(m, 2) = arr(i, 2)
    
14.       End If
    
15.     Next
    
16.     .Range("e2").Resize(m, UBound(brr, 2)) = brr
    
17.   End With
    
18. End Sub
    

复制代码

chxw68

说几句：
1、字典不是万能的，不是哪里都能用到或必须用到的。
2、刚开始学习写代码要养成良好的习惯，我不知道很多人为什么要把多行语句用冒号隔开写到一行呢？是为了节约纸张？这样写就跟写文章不分段落一样，很不便于阅读。

donghui2363

Sub test()
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
Sql = "select * from[sheet1$] where 分数 >60"
Range("e2").CopyFromRecordset cnn.Execute(Sql)
cnn.Close
End Sub

donghui2363

Sub test()
arr = Sheet1.Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 2)
    For i = 2 To UBound(arr)
        If arr(i, 2) > 60 Then
            k = k + 1
            brr(k, 1) = arr(i, 1)
            brr(k, 2) = arr(i, 2)
        End If
    Next i
    Range("g2").Resize(k, 2) = brr
End Sub

grf1973

1. Sub test()
   
2.     Dim arr, i%, n%, k%
   
3.     arr = Sheet1.Range("a2:b" & [a65536].End(3).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         If arr(i, 2) >= 60 Then
   
6.             n = n + 1
   
7.             arr(n, 1) = arr(i, 1)
   
8.             arr(n, 2) = arr(i, 2)
   
9.         End If
   
10.     Next
    
11.     If n > 0 Then [e2].Resize(n, 2) = arr
    
12. End Sub

复制代码

dzzxlbj

真的很感谢大家     

dzzxlbj

凌空一羽 发表于 2020-1-22 09:32
Sub test()
Dim arr, i%, n%, k%
arr = Sheet1.Range("a2:b8")

非常详细，而且关键最后一句，启发很大

dzzxlbj

chxw68 发表于 2020-1-22 09:41
说几句：
1、字典不是万能的，不是哪里都能用到或必须用到的。
2、刚开始学习写代码要养成良好的习惯，我 ...

非常同意老师的观点，老师的代码自动性很强，以后我会多加学习。