EXCEL如何返回某列中等于某个数值的数所对应的信息
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 04:24:16
EXCEL如何返回某列中等于某个数值的数所对应的信息
问题提得不准确,请看以下描述:
表格中有A列,B列;B列有很多的数值(有很多值相等);如果B列中等于某个数值(X),则返回对应的A列中的值,B列中有多少个X就返回多少个对应的A列的数据,中间用“,”隔开.
如果能够帮助到我,还会继续给分,
一般情况,我所做的表格B列都只有3个不同的值,我就需要统计出B列的不通值对应的A列中的数据,中间需要用“,”隔开.
问题提得不准确,请看以下描述:
表格中有A列,B列;B列有很多的数值(有很多值相等);如果B列中等于某个数值(X),则返回对应的A列中的值,B列中有多少个X就返回多少个对应的A列的数据,中间用“,”隔开.
如果能够帮助到我,还会继续给分,
一般情况,我所做的表格B列都只有3个不同的值,我就需要统计出B列的不通值对应的A列中的数据,中间需要用“,”隔开.
我也来一段通用的,数据可以增减,代码不影响,楼上代码受限哦
Sub 统计()
Dim arr, arr1()
Dim R&, x&, y&,i&
Set d = CreateObject("scripting.dictionary")
R = Range("A65536").End(xlUp).Row
ReDim arr(1 To R, 1 To 2)
arr = Range("A1:B" & R).Value
For x = 1 To UBound(arr)
If Not d.exists(arr(x, 2)) Then
y = y + 1
d.Add arr(x, 2), ""
ReDim Preserve arr1(1 To y)
For i = 1 To UBound(arr)
If arr(i, 2) = arr(x, 2) Then
arr1(y) = arr1(y) & arr(i, 1) & ","
End If
Next i
arr1(y) = "第" & Left(arr1(y), Len(arr1(y)) - 1) & "的值为" & arr(x, 2)
End If
Next x
Range("C1").Resize(UBound(arr1), 1) = Application.Transpose(arr1)
End Sub
不明白,直接HI我,给你讲解清楚
根据您的文件需求修改代码如下
Sub 统计()
Dim arr, arr1()
Dim R&, x&, y&, i&
Set d = CreateObject("scripting.dictionary")
R = Range("A65536").End(xlUp).Row
ReDim arr(1 To R, 1 To 8)
arr = Range("A2:H" & R).Value
For x = 1 To UBound(arr)
If Not d.exists(arr(x, 8)) Then
d.Add arr(x, 8), ""
For i = 1 To UBound(arr)
If arr(i, 8) = arr(x, 8) Then
t = t & arr(i, 1) & ","
End If
Next i
t1 = t1 & "第" & Left(t, Len(t) - 1) & "的值为" & arr(x, 8) & ";"
t = ""
End If
Next x
Range("L2") = t1
End Su
Sub 统计()
Dim arr, arr1()
Dim R&, x&, y&,i&
Set d = CreateObject("scripting.dictionary")
R = Range("A65536").End(xlUp).Row
ReDim arr(1 To R, 1 To 2)
arr = Range("A1:B" & R).Value
For x = 1 To UBound(arr)
If Not d.exists(arr(x, 2)) Then
y = y + 1
d.Add arr(x, 2), ""
ReDim Preserve arr1(1 To y)
For i = 1 To UBound(arr)
If arr(i, 2) = arr(x, 2) Then
arr1(y) = arr1(y) & arr(i, 1) & ","
End If
Next i
arr1(y) = "第" & Left(arr1(y), Len(arr1(y)) - 1) & "的值为" & arr(x, 2)
End If
Next x
Range("C1").Resize(UBound(arr1), 1) = Application.Transpose(arr1)
End Sub
不明白,直接HI我,给你讲解清楚
根据您的文件需求修改代码如下
Sub 统计()
Dim arr, arr1()
Dim R&, x&, y&, i&
Set d = CreateObject("scripting.dictionary")
R = Range("A65536").End(xlUp).Row
ReDim arr(1 To R, 1 To 8)
arr = Range("A2:H" & R).Value
For x = 1 To UBound(arr)
If Not d.exists(arr(x, 8)) Then
d.Add arr(x, 8), ""
For i = 1 To UBound(arr)
If arr(i, 8) = arr(x, 8) Then
t = t & arr(i, 1) & ","
End If
Next i
t1 = t1 & "第" & Left(t, Len(t) - 1) & "的值为" & arr(x, 8) & ";"
t = ""
End If
Next x
Range("L2") = t1
End Su
EXCEL如何返回某列中等于某个数值的数所对应的信息
excel表格中,如果C列数值等于A列中某个数值,则在C列对应的D列中返回A列对应的B列数值,D列怎么设公式呢
如果电子表格某行首等于某个数值,要返回对应列的某一个数值,该怎样写表达式?
excel 统计同一列中相同数值对应的数
excel中,A列为日期,有重复,B列对应数值,请问如何使重复的合并为一个日期,显示于D列,并将重复数
excel中怎么用公式返回B列中与D1大小最相近的数的位置.即返回B列中那个数所对应于A列中的序号
excel,若两个工作表中的某列数值相等,则对应的另一列数值相等,函数如何编辑?
EXCEL中如何让第一列中相同东西所对应的第二列的数值相加,而且第一列只显示一个!
EXCEL中,如何统计某列区域内单元格数值大于另一列对应单元格数据的单元格数量?
EXCEL公式,sheet2 B列的值等于sheet1某区域的值,则返回对应数值
excel,查找满足条件的行,并返回该行所对应的其它列的值
如何在EXCEL表中查询某列中数值大于某个数的数有多少个