求助批量处理多个单元格合并

xinhua16

求助批量处理多个单元格合并。

导出了之前记录的生活日常，是TXT文本的。和现在用的app导入格式不一样，所以想用excel调整一下格式。
望各位吴彦祖不吝赐教

xiangbaoan

适合vba处理。

代码审核，补个附件。
求助批量处理多个单元格合并.zip (16.8 KB, 下载次数: 5)

2022-6-23 15:11 上传

点击文件名下载附件

xinhua16

xiangbaoan 发表于 2022-6-23 14:21
适合vba处理。

谢谢，
就是不知道怎么设定条件

zpy2

create temp table aa as  select regexp2('\d{4}年\d+月\d日',字符串) 日期,* from 正则表达式拆分之多行单元格合并 where 字符串!=''; create temp table bb as  select fillna(日期) 日期,字符串 from aa; select 日期,group_concat(字符串,'<br>') 字符串 from bb  where not regexp('\d{4}年\d+月\d日',字符串) group by 日期;

hcm19522

C3{=IFERROR(TEXT(INDEX(A:A,SMALL(IF(A$3:A$21<>"",ROW($3:$21)),ROW(A1))),"YYY年M月D日;;;"),"")

D3{=IF(C3="",INDEX(A:A,SMALL(IF((A$4:A$21<>"")*ISERR(-A$4:A$21),ROW($4:$21),99),COUNTIF(C3:C$4,"")))&"","")

xiangbaoan

xinhua16 发表于 2022-6-23 14:49
谢谢，
就是不知道怎么设定条件

1. Sub test()
   
2.   Dim ar, i As Long, y As Long
   
3.   ar = Range("A1", Cells(Rows.Count, 1).End(xlUp))
   
4.   ReDim Preserve ar(1 To UBound(ar), 1 To 2)
   
5.   For i = 1 To UBound(ar)
   
6.     If Len(ar(i, 1)) Then
   
7.       If IsDate(ar(i, 1)) Then
   
8.         y = y + 1
   
9.         ar(y, 1) = ar(i, 1)
   
10.       Else
    
11.         If Len(ar(y, 2)) Then ar(y, 2) = ar(y, 2) & vbCr & ar(i, 1) Else ar(y, 2) = ar(i, 1)
    
12.       End If
    
13.     End If
    
14.   Next
    
15.   With Range("D1")
    
16.     .CurrentRegion.ClearContents
    
17.     .Resize(y, 2) = ar
    
18.   End With
    
19. End Sub

复制代码

xinhua16

忽然觉得打开了一扇大门，需要先消化一下。
谢谢各位大神

624134745

=LET(a,SCAN("",A3:A21,LAMBDA(x,y,IF(ISNUMBER(y),y,x))),DROP(REDUCE("",UNIQUE(a),LAMBDA(x,y,VSTACK(x,HSTACK(y,TEXTJOIN(CHAR(10),1,DROP(FILTER(A3:A21,a=y),1)))))),1))