更新多个工作表的格式

Question

我不确定我是否写了正确的代码。 我有20张工作簿，我想格式栏B：B，其中工作表名称像“数据*”。我写了下面的代码，它似乎没有做任何事情，当我尝试测试此代码它不停止。循环不停止。

有人请指教我做错了什么或请纠正我的代码。

Sub dtupdate() 

    For Each sheet In Application.ActiveWorkbook.Sheets 
     If sheet.Name Like "*Data*" Then 
      Range("B:B").Select 
      'Columns("B:B").Select 
      'st.Ranges("B2", ActiveSheet.Ranges("B2").End(xlDown)).Select 
      Selection.NumberFormat = "dd/mm/yyyy" 
     End If 
    Next 
End Sub 

Answer 1

试试这个：

Sub dtupdate() 
    Dim sh As Worksheet 

    For Each sh In ActiveWorkbook.Worksheets 
     If sh.Name Like "*Data*" Then _ 
      sh.Range("B:B").NumberFormat = "dd/mm/yyyy" 
    Next 
End Sub