作业帮 > 综合 > 作业

EXCEL数值在80-100为一组A 101-120为一组B 121-140为一组C 数值 91 80 110 130

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 05:48:50
EXCEL数值在80-100为一组A 101-120为一组B 121-140为一组C 数值 91 80 110 130 自动分类在A B C各组中
我用vba代码的方法帮你解决此问题,A1、B1、C1中分别将写入你想要的数据:
A1为80-100的数据、B1为101-120的数据、A1为121-140的数据
1)首先在D列中从D1开始输入你的一系列数值,如:D1=91,D2=80,D3=110,D4=130,D5=115等
2)在工作表界面作如下操作:
按Alt+F11->打开vixual basic编辑器
在打开的vixual basic编辑器窗口作如下操作:
标题栏->视图->工程资源管理器(单击打开)
双击sheet1(注意你的工作表如果是sheet2,就双击sheet2)
右边出现一大片空白区域
将下述代码复制->粘贴进去:
Sub QQ()
Dim i As Integer
Dim a As String, b As String, c As String
a = "": b = "": c = ""
For i = 1 To 100 Step 1
If Cells(i, 4) = "" And Cells(i + 1, 4) = "" Then Exit For
If Cells(i, 4) >= 80 And Cells(i, 4) < 100 Then
a = a & Cells(i, 4) & ","
End If
If Cells(i, 4) >= 100 And Cells(i, 4) < 120 Then
b = c & Cells(i, 4) & ","
End If
If Cells(i, 4) >= 120 And Cells(i, 4) < 140 Then
c = c & Cells(i, 4) & ","
End If
Next i
Cells(1, 1) = Left(a, Len(a) - 1)
Cells(1, 2) = Left(b, Len(b) - 1)
Cells(1, 3) = Left(c, Len(c) - 1)
End Sub
'运行即可,满意采纳加分哦!