下面用AI写一段代码,因为问题比较简单,我是完全让AI写的,自己都不需要改。 这就是AI的力量 我的语句是 你是VBA专家,帮我写一段代码。需求是A列是成绩,B列是评级。当成绩 大于等于60为及格,大于等于75为良好,大于等于85为优秀,否则为不及格。 你是VBA专家,是给 角色 写一段代码是任务 需求是具体任务的详细描述。这样AI就很好理解我们的需求了。 AI马上写了代码 Sub AddRating() Dim lastRow As Long lastRow = Range('A' & Rows.Count).End(xlUp).Row '获取最后一行的行号 Dim i As Long For i = 2 To lastRow '从第2行开始遍历 Select Case Range('A' & i).Value '根据成绩值进行评级 Case Is >= 85 Range('B' & i).Value = '优秀' Case Is >= 75 Range('B' & i).Value = '良好' Case Is >= 60 Range('B' & i).Value = '及格' Case Else Range('B' & i).Value = '不及格' End Select Next i End Sub AI快速写了select 语句的逻辑代码,非常快。本来自己起码10分钟 ,AI 1分钟就搞定了。 如果代码复杂些,可能自己要3小时,用AI沟通几个回合 15分钟就搞定了。 在该示例中,我们首先获取最后一行的行号,然后使用 for 循环从第 2 行开始遍历 A 列中的每一个成绩值,并根据其大小填充对应的评级到 B 列中。其中,使用了 Select Case 结构来进行成绩值和评级的匹配。 请注意,此代码示例假定 A 列和 B 列中已经存在数据。如果您需要在代码中添加数据,可以在 for 循环中使用 Range('A' & i).Value = x 语句向 A 列中添加成绩值。 另外他是可以追问的,如果你对代码不满意,或者要换种写法,也可以继续提问 AI用重新写了一段代码 Sub AddRating() Dim lastRow As Long lastRow = Range('A' & Rows.Count).End(xlUp).Row '获取最后一行的行号 Dim i As Long For i = 2 To lastRow '从第2行开始遍历 If Range('A' & i).Value >= 85 Then Range('B' & i).Value = '优秀' ElseIf Range('A' & i).Value >= 75 Then Range('B' & i).Value = '良好' ElseIf Range('A' & i).Value >= 60 Then Range('B' & i).Value = '及格' Else Range('B' & i).Value = '不及格' End If Next i End Sub AI还会解释代码的逻辑,甚至逐语句解释给你。 效率的提升那就是效益的提升 |
|