找汉字

ddz79101

老师！表格有中文版和中英文两版，我想在中英版中旬找交易时间1删列名上的行，删不用列和列名中英文。请老师帮忙看看。谢谢

liulang0808

楼主这个可以根据[进行拆分，或者正则表达式提取？
关键是模拟数据太少了，不知道要怎么操作的

小凡、、、

正则提起汉字？

无敌小猪猪

Sub CleanUpWorksheet()
    Dim ws As Worksheet
    Set ws = ActiveSheet                                       ' 或者指定工作表，例如 Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 删除第1行到第7行
    ws.Rows("1:7").Delete
    ' 替换星号[*]为空白
    With ws.UsedRange
        .Replace What:="[*]", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByColumns
    End With
End Sub
仅供参考

ykcbf1100

附件内容太少，不知如何操作。
提取汉字很简单，用正则提取即可，或者用instr函数搜索[符位置再用left函数提取即可。

ddz79101

liulang0808 发表于 2024-12-9 12:40
楼主这个可以根据[进行拆分，或者正则表达式提取？
关键是模拟数据太少了，不知道要怎么操作的

谢谢老师！说道我心中想得了。我就是想要拆分和正则。能帮我操作码？模拟的数据我简化了，就这些了，无非就列名下的许多列数据。

ddz79101

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

谢谢老师！是的提汉字

ykcbf1100

附件供参考。。。

ykcbf1100

正则提取汉字

1. Sub ykcbf()   '//2024.12.9
   
2.     arr = ActiveSheet.[a8:h8].Value
   
3.     For j = 1 To UBound(arr, 2)
   
4.         Cells(9, j).Value = stoc(arr(1, j))
   
5.     Next
   
6.     MsgBox "OK！"
   
7. End Sub
   
8. 
   
9. Function stoc(str) As String
   
10.     Dim reg As Object
    
11.     Set reg = CreateObject("VBScript.RegExp")
    
12.     With reg
    
13.         .Pattern = "[^一-龢]+"
    
14.         .Global = True
    
15.         .IgnoreCase = True
    
16.     End With
    
17.     stoc = reg.Replace(str, "")
    
18.     Set reg = Nothing
    
19. End Function
    

复制代码

ddz79101

liulang0808 发表于 2024-12-9 12:40
楼主这个可以根据[进行拆分，或者正则表达式提取？
关键是模拟数据太少了，不知道要怎么操作的

老师！刚才急忙，未细说及附件，现发上