Sub Test() Dim rowsNum, i, j, equalRowsNum As Integer rowsNum = ActiveSheet.UsedRange.Rows.Count '获得行数 For i = 3 To rowsNum '遍历全部行数 If Cells(i, 1).Value = Cells(i + 1, 1).Value Then j = j + 1 Else For equalRowsNum = 1 To j '给指定列追加数值.把相同行的同列追加到第一相同行 C…
在db2中遇到多行一列转为一行一列的需求时,用db2函数 LISTAGG可以实现该功能.语法如下: SELECT [分组的字段 ] , LISTAGG([需要聚合的字段名], ',') FROM [表名] GROUP BY [分组的字段名] ; 设计以下实验,阐述该函数实现行转列的方法.步骤1:用sql构造一张临时表数据如下: create table test(id BIGINT,name varchar(20)); insert into test values(1,'a')…