更新多个工作表的格式
问题描述:
我不确定我是否写了正确的代码。 我有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
答
试试这个:
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
+1
感谢Simoco,它工作正常。真的很有帮助。 SYAM – icurious
的称号不需要帽... – 2014-03-06 16:14:48