修改程序，根据部分字段，来隐藏固定列，可能含有特殊字符

macro_23

对固定含有某字符的列，进行隐藏，谢了一个简单的程序，但是运用到工作中生成的文件无效，模拟的文件，可以用，请教下，如何修改，程序，谢谢。

macro_23

含有字段的 rev_raised,进行隐藏

1. Sub hide()
   
2. Dim rows, cols As Integer
   
3. 'batch all sheets in this workbook
   
4. For Each sh In ThisWorkbook.Sheets
   
5. 
   
6.     If sh.Name <> "content" And sh.Name <> "summary" Then   'read all sheets except the two sheets
   
7.     With sh
   
8.         .Unprotect
   
9.         rows = .[A65536].End(xlUp).Row 'get row number
   
10. 
    
11.         cols = .[IV1].End(xlToLeft).Column 'get column number
    
12. 
    
13.         'hide
    
14. 
    
15.          Key = Array("rev_raisedDate_", "rev_raisedDay_")
    
16. 
    
17.          For j = 1 To cols
    
18. 
    
19. 
    
20.              Set rngexp = CreateObject("VBScript.RegExp")
    
21. 
    
22.              With rngexp
    
23.                .Global = True
    
24.                .Pattern = "^[\w\d_-\+\.]+$"
    
25.              End With
    
26. 
    
27.             '.Cells(4, j) = rngexp.Replace(.Cells(4, j).Value, "")
    
28. 
    
29. 
    
30. 
    
31.             '.Cells(4, j).Value = Application.Clean(.Cells(4, j).Value)
    
32. 
    
33.              For k = 0 To 1
    
34.                Set Rng = .Cells(4, j).Find(what:=Key(k), lookat:=xlWhole)
    
35.                If Not Rng Is Nothing Then .Columns(j).Hidden = True
    
36.              Next k
    
37. 
    
38.            'If Trim(.Cells(1, j).Value) = "a1" Then .Columns(j).Hidden = True
    
39. 
    
40.            'If InStr(Trim(.Cells(1, j)), "_date") > 0 Then .Columns(j).Hidden = True
    
41. 
    
42.            'If Right(Trim(.Cells(1, j)), 4) = "date3" Then .Columns(j).Hidden = True
    
43. 
    
44.            'If Find("_vsdate_dddd", .Cells(1, j), 1) > 0 Then .Columns(j).Hidden = True
    
45. 
    
46. 
    
47.          Next j
    
48. 
    
49.          'show all columns
    
50.          'For j = 1 To cols
    
51. 
    
52.          '  .Columns(j).Hidden = False
    
53. 
    
54.         ' Next j
    
55. 
    
56.     End With
    
57.     End If
    
58. Next sh
    
59. 
    
60. End Sub

复制代码

"Date"&  vbcrlf &"[rev_raisedDate_]"

"Days" &  vbcrlf & "[rev_raisedDay_]"