yjyblog

摘要： 1 Sub count_date() 2 '计算所有天数，并对日期去重 3 Dim dic As Object 4 Dim arr() As Variant 5 Dim d As Date 6 Dim cols As Integer 7 8 '选5列：1条件列，2开始日期，3结束日期，4,第一列出现 阅读全文

摘要： 原始表格 row_split1()的结果 row_split3()的结果 一列里的每个单元格，数据都是有同一分隔符的，以此列为基础，将数据分为多行。 1 Sub row_split1() 2 '要用数组：数据几百行，直接用单元格算可能要十几分钟，数组十几秒。 3 '一个区域中的一列的每个单元格：字符 阅读全文

摘要： excel不是最新版的，没有textjoin函数，写两个用。函数一： pastestr()：优点：简单，第二个参数可以省略；缺点：只能是一个连续区域，或小括号内的(多个不连续单一元格)。 1 Function pastestr(rng, Optional sep As String = "") 2 阅读全文