[已解决][求助]根据个数显示全部名称

紫映竹

A 列                        B列

张一	500
张二	600
张三	700
张四	500
张五	300
张六	700
我要达到以下效果
>500	3个 分别是：张二、张三、张六

最佳答案

月排行榜 / 总排行榜

戏子

2008-1-19 23:03

QUOTE:

以下是引用紫映竹在2008-1-19 22:18:00的发言：

先谢谢大家，最后一个是用自定义做的？我今天晚上才看了一点？

那如果说还要对应后面的金额，如张二600、张三700、张六700（这是在一个单元格中），再如果是分别放在三列中，又要如何操作？

在一列中加上金额

Sub 计数()
    Dim intI As Integer, intJ As Integer, rowI As Integer
    Dim dobI As Double
    Dim strI As String
    dobI = 500
    intJ = 1
    rowI = Range("A65536").End(xlUp).Row
    For intI = 1 To rowI
        If Cells(intI, 2) > dobI Then
            If strI = "" Then
                strI = Cells(intI, 1) & Cells(intI, 2)
            Else
                strI = strI & "、" & Cells(intI, 1) & Cells(intI, 2)
            End If
            intJ = intJ + 1
        End If
    Next
    Cells(1, 4) = intJ - 1 & "个 分别是：" & strI
End Sub

放在三列中

Sub 计数()
    Dim intI As Integer, intJ As Integer, rowI As Integer
    Dim dobI As Double
    Dim strI As String
    dobI = 500
    intJ = 1
    rowI = Range("A65536").End(xlUp).Row
    For intI = 1 To rowI
        If Cells(intI, 2) > dobI Then
            Cells(1, intJ+3) = Cells(intI, 1) & Cells(intI, 2)
            intJ = intJ + 1
        End If
    Next
End Sub

出给题给你,你自己试着改一下代码

把结果放在最后一行,并且每个名字存放一列

[此贴子已经被作者于2008-1-19 23:06:12编辑过]

跳转到最佳答案楼层

戏子

Sub 计数()
    Dim intI As Integer, intJ As Integer, rowI As Integer
    Dim dobI As Double
    Dim strI As String
    dobI = 500
    intJ = 1
    rowI = Range("A65536").End(xlUp).Row
    For intI = 1 To Range("A65536").End(xlUp).Row
        If Cells(intI, 2) > dobI Then
            If strI = "" Then
                strI = Cells(intI, 1)
            Else
                strI = strI & "、" & Cells(intI, 1)
            End If
            intJ = intJ + 1
        End If
    Next
    Cells(1, 4) = intJ - 1 & "个 分别是：" & strI
End Sub

CuZh0YRa.rar (6.73 KB, 下载次数: 3)

2008-1-19 18:25 上传

点击文件名下载附件
[求助]根据个数显示全部名称

wayy

学习了，入门班的应该能做到了，

不过没有戏兄的规范。

zjxia889

如果要设自定义函数">500"怎么应用?,如果"<500"呢?

 If Cells(intI, 2) > dobI Then这句有没有办法作成通用的,类似countif

戏子

QUOTE:

以下是引用zjxia889在2008-1-19 18:29:00的发言：

如果要设自定义函数">500"怎么应用?,如果"<500"呢?

 If Cells(intI, 2) > dobI Then这句有没有办法作成通用的,类似countif

已经解决了你的问题了[em04]

zjxia889

QUOTE:

以下是引用戏子在2008-1-19 19:21:00的发言：

QUOTE:

以下是引用zjxia889在2008-1-19 18:29:00的发言：

如果要设自定义函数">500"怎么应用?,如果"<500"呢?

 If Cells(intI, 2) > dobI Then这句有没有办法作成通用的,类似countif

已经解决了你的问题了[em04]

Function tjtj(rng As Range, tj As String) As String
Dim arr, k As Long, c As Integer, rrr As String
arr = rng.Value
For k = 1 To UBound(arr)
 If Evaluate(arr(k, 2) & tj) Then
   c = c + 1
   rrr = rrr & arr(k, 1) & "、"
 End If
Next k
rrr = Left(rrr, Len(rrr) - 1)
tjtj = c & "个 分别是:" & rrr
End Function

紫映竹

先谢谢大家，最后一个是用自定义做的？我今天晚上才看了一点？

那如果说还要对应后面的金额，如张二600、张三700、张六700（这是在一个单元格中），再如果是分别放在三列中，又要如何操作？

紫映竹

这个自[定义函数看得我好眼花

戏子

QUOTE:

以下是引用紫映竹在2008-1-19 22:18:00的发言：

先谢谢大家，最后一个是用自定义做的？我今天晚上才看了一点？

那如果说还要对应后面的金额，如张二600、张三700、张六700（这是在一个单元格中），再如果是分别放在三列中，又要如何操作？

在一列中加上金额

Sub 计数()
    Dim intI As Integer, intJ As Integer, rowI As Integer
    Dim dobI As Double
    Dim strI As String
    dobI = 500
    intJ = 1
    rowI = Range("A65536").End(xlUp).Row
    For intI = 1 To rowI
        If Cells(intI, 2) > dobI Then
            If strI = "" Then
                strI = Cells(intI, 1) & Cells(intI, 2)
            Else
                strI = strI & "、" & Cells(intI, 1) & Cells(intI, 2)
            End If
            intJ = intJ + 1
        End If
    Next
    Cells(1, 4) = intJ - 1 & "个 分别是：" & strI
End Sub

放在三列中

Sub 计数()
    Dim intI As Integer, intJ As Integer, rowI As Integer
    Dim dobI As Double
    Dim strI As String
    dobI = 500
    intJ = 1
    rowI = Range("A65536").End(xlUp).Row
    For intI = 1 To rowI
        If Cells(intI, 2) > dobI Then
            Cells(1, intJ+3) = Cells(intI, 1) & Cells(intI, 2)
            intJ = intJ + 1
        End If
    Next
End Sub

出给题给你,你自己试着改一下代码

把结果放在最后一行,并且每个名字存放一列

[此贴子已经被作者于2008-1-19 23:06:12编辑过]

紫映竹

回戏子的话，我这不是VBA没有学好嘛。。。。我连三脚猫的功夫都没有。。。