按关键字筛选内容，添加序号，并在每行下面增加空白行

李伟杰123

按关键字筛选内容，添加序号，并在每行下面增加空白行。


处理好的结果如图：

签证单格式化.zip (14.03 KB, 下载次数: 14)

2023-12-4 23:09 上传

点击文件名下载附件

gwjkkkkk

请参考。。。

taller

cyq4896

参与一下..

沈默00

沈默00

参与一下.....

chxw68

练习正则表达式。

LIUZHU

参与下，JSA

LIUZHU

请用WPS测试

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2023.12.5
   
2.     Dim arr, brr
   
3.     arr = Sheets("签证单格式化").UsedRange
   
4.     ReDim brr(1 To UBound(arr), 1 To 2)
   
5.     m = 1
   
6.     For i = 1 To UBound(arr)
   
7.         If InStr(arr(i, 1), "**") Then
   
8.             b = Split(arr(i, 1), ".")
   
9.             brr(m, 1) = b(0)
   
10.             brr(m, 2) = b(1)
    
11.             m = m + 2
    
12.         End If
    
13.     Next
    
14.     With Sheets("Sheet2")
    
15.         .UsedRange.ClearContents
    
16.         .[a1].Resize(m, 2) = brr
    
17.     End With
    
18.     MsgBox "OK！"
    
19. End Sub
    

复制代码