zoukankan      html  css  js  c++  java
  • 合并表格内容

    4E6B 36A0 7DC2 E5F5 7B0E 724A AB

    学到一招:Excel

    http://jingyan.baidu.com/article/5d368d1e3ce69d3f60c057cf.html

    /*

    需要实现的目标如下:

     要实现结果:在某个单元格中显示A列为张三的B列的合并,即为【30 43 42】

    */

    参数a是要查找的区域,表示作为判断条件的区域,即判断资源区,如张三、李四、王五.....

    参数b是提取数据的区域,表示需要汇总内容的区域,即显示资源区,如30 43 42

    参数c是要查找的值,即查找信息区,表示“张三”

    ====================================

    Sub loveyou(a As Range, b As Range, c As String)

    Dim t As String
    If a.Rows.Count <> b.Rows.Count Then abc = "错误": Exit Sub
    For i = 1 To a.Rows.Count
    If a.Cells(i, 1) = c Then t = t & " " & b.Cells(i, 1)
    Next
    abc = t

    End Sub

    ====================================

    Function abc(a As Range, b As Range, c As String)
    Dim t As String
    '如果a与b的区域大小不同,就显示“错误”
    If a.Rows.Count <> b.Rows.Count Then abc = "错误": Exit Function
    '在区域a是循环
    For i = 1 To a.Rows.Count
    '如果在a中找到与c相同的值,就把同一行中的b的内容提取出来,存入变量t中。
    If a.Cells(i, 1) = c Then t = t & " " & b.Cells(i, 1)
    Next
    '将变量的值赋给自定义函数
    abc = t
    End Function

    ===================================

  • 相关阅读:
    Docker安装
    MVC-HtmlHelper简单总结
    D3.js
    分布式事务seata
    彻底搞懂JAVA路径问题
    idea 代码生成
    自动生成 serialVersionUID 的设置
    狂神说SSM框架系列连载
    缓存穿透、缓存击穿、缓存雪崩区别和解决方案
    多线程
  • 原文地址:https://www.cnblogs.com/winnxm/p/3917496.html
Copyright © 2011-2022 走看看