[解決済み] ワークシートを1枚飛ばし、残りのワークシートを処理する
2022-02-15 13:10:36
質問
私は、利用可能なすべてのワークシートから、単語 "ステートメント No" を含まないすべての行を削除するvbaコードで作業していました。しかし、とにかく私はそれが最初のワークシートをスキップして、他のすべてのワークシートから行を削除し続けたい。
以下のコードで、最初のワークシートをスキップするように私を助けることができれば。
Sub doit()
Application.DisplayAlerts = False
Dim r As Long, lr As Long
Dim sh As Worksheet
For Each sh In Sheets
lr = sh.Cells(sh.Rows.Count, 1).End(xlUp).row
For r = lr To 1 Step -1
If InStr(sh.Cells(r, 1), "Statement No") = 0 Then sh.Rows(r).Delete
Next r
Next
Application.DisplayAlerts = True
End Sub
ありがとうございました。
解決方法は?
各シート名をチェックして無視するように指示すればよい。
Sub doit()
Application.DisplayAlerts = False
Dim r As Long, lr As Long
Dim sh As Worksheet
For Each sh In Sheets
If sh.Name <> "IgnoreThisSheet" Then
lr = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
For r = lr To 1 Step -1
If InStr(sh.Cells(r, 1), "Statement No") = 0 Then sh.Rows(r).Delete
Next r
End If
Next
Application.DisplayAlerts = True
End Sub
Edit: For EachループでSheetsをWorkSheetsに変更することもできます。 ワークシートは行や列などを含みます。 シートには、チャートシート、マクロシート、ダイアログシートがあります。 http://blogs.msdn.com/b/frice/archive/2007/12/05/excel-s-worksheets-and-sheets-collection-what-s-the-difference.aspx
関連
-
[解決済み] プロパティの無効な使用 vba クラス
-
[解決済み] VBA RangeクラスのSortメソッドに失敗しました。
-
[解決済み] オートメーションエラー - 大惨事 EXCEL VBA
-
[解決済み] VBAのコードに「Label Not define」がありますが、これは何ですか?
-
[解決済み] Access VBAで "Duplicate declaration in current scope "というエラーが発生する。
-
[解決済み] VBAを使用してExcelシートの空白でない列の数を求めることができます。
-
[解決済み] どのようにvbaコードCells.FindによってExcelの列で値を見つけるために
-
[解決済み] VBAで関数から配列を返す
-
[解決済み] あるディレクトリから別のディレクトリにファイルをコピーするVBA
-
[解決済み】VBAのDebug.Printのログはどこに記録されるのですか?
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み】VBA。ランタイム1004を取得する。オブジェクト'_Worksheet'のメソッド'Range'は、セルを使用するときに失敗しました。
-
[解決済み] プロパティの無効な使用 vba クラス
-
[解決済み] エクセルVBAです。エラー1004 WorkSheetFunction 'Unable to get Vlookup property'
-
[解決済み] VBA RangeクラスのSortメソッドに失敗しました。
-
[解決済み] ワークシートを1枚飛ばし、残りのワークシートを処理する
-
[解決済み] オートメーションエラー - 大惨事 EXCEL VBA
-
[解決済み] VBA チャートのタイトルを追加する
-
[解決済み] エクセルVBAの検索文字列 : エラー2015
-
[解決済み] VBAでファイルを削除する
-
[解決済み】VBAのDebug.Printのログはどこに記録されるのですか?