找汉字

ddz79101

小凡、、、 发表于 2024-12-9 12:52
正则提起汉字？

老师！如附件，请看看

ddz79101

ykcbf1100 发表于 2024-12-9 13:10
附件供参考。。。

谢谢老师！入你所说，太简化了。现附件，帮忙看看

ddz79101

ykcbf1100 发表于 2024-12-9 13:10
附件供参考。。。

老师！刚发的代码，我先看看

ykcbf1100

这个都不用正则。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.9
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 4).End(3).Row
   
4.         c = .UsedRange.Columns.Count
   
5.         arr = .[a8].Resize(r - 7, 8)
   
6.         c1 = .Rows(8).Find("交易时间").Column
   
7.     End With
   
8.     ReDim brr(1 To r, 1 To c)
   
9.     For i = 2 To UBound(arr)
   
10.         m = m + 1
    
11.         For j = c1 To UBound(arr, 2)
    
12.             brr(m, j - c1 + 1) = arr(i, j)
    
13.         Next
    
14.     Next
    
15.     With Sheets("结果")
    
16.         .[a2].Resize(r, c - c1) = ""
    
17.         .[a2].Resize(m, c - c1) = brr
    
18.     End With
    
19.     MsgBox "OK！"
    
20. End Sub
    
21. 
    

复制代码

ddz79101

ykcbf1100 发表于 2024-12-9 13:39
这个都不用正则。。。

谢谢老师！运行没有反应呀？另“交易时间”所在的列不固定，行在8或9行，能否修改。谢谢

ykcbf1100

ddz79101 发表于 2024-12-9 14:37
谢谢老师！运行没有反应呀？另“交易时间”所在的列不固定，行在8或9行，能否修改。谢谢

我这里可以运行的。

ddz79101

ykcbf1100 发表于 2024-12-9 14:41
我这里可以运行的。

谢谢老师！我看错了，原是结果另存

ddz79101

无敌小猪猪 发表于 2024-12-9 12:54
Sub CleanUpWorksheet()
    Dim ws As Worksheet
    Set ws = ActiveSheet                            ...

谢谢老师！运行成功