[英]VBA to loop through all worksheets and clear cell contents
我有下面的代码,但我不断收到运行时错误 438,有人可以帮我调试吗? 谢谢!
Sub my sub ()
Dim wb As Workbook
Set wb = Workbooks.Open(link to file)
Dim ws As Worksheet
For Each ws In wb
ws.Cells.ClearContents
Next
End Sub
尝试:
Option Explicit
Sub Test()
Dim ws As Worksheet
'Loop all sheet in the workbook
For Each ws In ThisWorkbook.Worksheets
'Clear the used range of the sheet
ws.UsedRange.Clear 'or .ClearContents
Next ws
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.