型別不匹配：如何清除除指定作業表之外的所有作業表的內容？-有解無憂

在執行宏的其余部分之前，我想在同一個作業簿中清除許多作業表。

我一直在使用以下內容：

Sheets("1710").Select
Sheets("1710").Cells.Select
    Selection.ClearContents
Sheets("BPL1710").Activate
Sheets("BPL1710").Cells.Select
    Selection.ClearContents

Sheets("1711").Select
Sheets("1711").Cells.Select
    Selection.ClearContents
Sheets("BPL1711").Activate
Sheets("BPL1711").Cells.Select
    Selection.ClearContents

Sheets("1713").Select
Sheets("1713").Cells.Select
    Selection.ClearContents
Sheets("BPL1713").Activate
Sheets("BPL1713").Cells.Select
    Selection.ClearContents

Sheets("1714").Select
Sheets("1714").Cells.Select
    Selection.ClearContents
Sheets("BPL1714").Activate
Sheets("BPL1714").Cells.Select
    Selection.ClearContents

Sheets("1715").Select
Sheets("1715").Cells.Select
    Selection.ClearContents
Sheets("BPL1715").Activate
Sheets("BPL1715").Cells.Select
    Selection.ClearContents

Sheets("1716").Select
Sheets("1716").Cells.Select
    Selection.ClearContents
Sheets("BPL1716").Activate
Sheets("BPL1716").Cells.Select
    Selection.ClearContents

Sheets("1717").Select
Sheets("1717").Cells.Select
    Selection.ClearContents
Sheets("BPL1717").Activate
Sheets("BPL1717").Cells.Select
    Selection.ClearContents

如何使用 for 回圈來最小化使用的行數？

總共有 4 張我不想清除其內容的作業表。

這就是我所在的位置：

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Sheet1" Or "RawData" Or "TheButton" Then
    ws.Cells.Select
    Selection.ClearContents
    Else
    End If
Next

uj5u.com熱心網友回復：

我會用Select...Case

For Each ws In ThisWorkbook.Worksheets
    Select Case ws.Name
      Case "Sheet1", "RawData", "TheButton"
        ' skip
      Case Else
        ws.Cells.ClearContents
    End Select
Next

uj5u.com熱心網友回復：

試試下面的回圈 -

Sub ClearSheets()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If (ws.Name <> "Sheet1") Or (ws.Name <> "RawData") Or (ws.Name <> "TheButton") Then
            ws.Cells.ClearContents
        End If
    Next
End Sub

uj5u.com熱心網友回復：

你可以試試這個

Option Explicit

Sub ClearSheets()
'Clear All Except One Sheet

Dim ws As Worksheet

For Each ws In Application.ActiveWorkbook.Worksheets
    If ws.Name <> " Your Specific Sheet Name Here " Then 
        ws.Cells.Clear
    End If
Next

End Sub

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/484144.html

標籤：擅长 vba

上一篇：更正選定的范圍

下一篇：MSWordVBA無法選擇特定單詞來更改背景顏色