带,行转列

带,行转列

 select substr(x.col_1, x.pos1, x.pos2 - x.pos1 - 1) 

          from (select t.col_1, 

                        level as lv, 

                        instr(',' || t.col_1 || ',', ',', 1, level) as pos1, 

                        instr(',' || t.col_1 || ',', ',', 1, level + 1) as pos2 

                   from ( 

                         /**将某字段,由逗行分隔的列值转成行**/ 

                         select wm_concat(WENTLC) col_1  from v_it_guzfl                        

                         ) t 

                 connect by level <= (length(t.col_1) - 

                            length(replace(t.col_1, ',', ''))) + 1) x

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
要实现第三行 C 列至有今日日期的区域内的单元格合并居中,可以按照以下步骤进行操作: 1. 找到今日日期所在的单元格,可以使用函数TODAY()获取当前日期,再使用函数MATCH()和INDEX()找到该日期所在的行和列号。 2. 使用函数OFFSET()和COUNTA()计算出需要合并的单元格范围,OFFSET()函数用于计算起始单元格的位置,COUNTA()函数用于计算需要合并的单元格数量。 3. 使用函数CELL()和ADDRESS()将起始单元格和结束单元格的位置转换为单元格地址,并将它们组合成一个字符串,作为合并单元格的参数。 4. 使用函数MERGE()将指定区域内的单元格进行合并。 5. 使用函数ALIGN()将合并后的单元格设置为居中对齐。 以下是示例代码,可以按照自己的需求进行修改: ```vba Sub MergeCells() Dim Today As Date Dim RowNum As Integer Dim ColNum As Integer Dim StartCell As Range Dim EndCell As Range Dim MergeRange As Range '获取今日日期所在的单元格位置 Today = Date RowNum = Application.Match(Today, Range("1:1"), 0) ColNum = Application.Match("C", Range("A:C"), 0) '计算需要合并的单元格范围 Set StartCell = Range("C3") Set EndCell = Range(Cells(StartCell.Row, ColNum), Cells(StartCell.Row + 100, ColNum)) Set EndCell = EndCell.Resize(Cells(Rows.Count, ColNum).End(xlUp).Row - StartCell.Row + 1) Set MergeRange = Range(StartCell, EndCell) '合并单元格并设置为居中对齐 MergeRange.Merge MergeRange.HorizontalAlignment = xlCenter End Sub ```
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值