有50个sheet页，如何将这50个sheet页除第一行之外其他行的内容都清除，excel vba代码如何写？谢谢！！！

举报该文章

相关建议推荐于2016-05-28

不管你工作簿有多少个工作表，所有工作表只保留第一行是吧！

Sub test()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        Sheets(i).Rows("2:" & Rows.Count).Clear
    Next i
    Application.ScreenUpdating = True
End Sub

hx95华夏联盟

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/cf0t2022sfsttch6itt.html

其他看法

第1个回答 2015-01-26

如果您指的[第一行]是[A1:A...]，那您需要的代码可以是：
Sub yyTEST()
Dim yiSID As Integer
For yiSID = 1 To Sheets.Count
Sheets(yiSID).Activate
Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).ClearContents
Next yiSID
End Sub

第2个回答 2015-01-26

简单 clearcontent

相似回答

大家正在搜