Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29385 / 76732

←次へ　｜　前へ→


	【52629】Re:多数Rowを削除する方法

かみちゃん - 07/11/21(水) 21:15 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

マクロマンさんからもコメントがついていますが、私も考えていましたので、
コメントさせていただきます。

>多数行のデータを消す場合、
>　　Rows(11).ClearContents
>　　Rows(18).ClearContents
>　　Rows(22).ClearContents
>　　Rows(26).ClearContents
>現在このようなコードを使っています。
>行の間隔が規則性が無いのですが、もっとシンプルなコードを
>作成できないかと…思案中です。

以下のような感じではいかがでしょうか？
　Union(Rows(11), Rows(18), Rows(22), Rows(26)).ClearContents

また、配列を使うなら、以下のような感じでもできると思います。
Sub Sample2()
　Dim i As Integer
　Dim MySum
　Dim rngClear As Range
　MySum = Array("11", "18", "22", "26")

　For i = 0 To UBound(MySum)
　　If rngClear Is Nothing Then
　　　Set rngClear = Rows(MySum(i))
　　Else
　　　Set rngClear = Union(rngClear, Rows(MySum(i)))
　　End If
　Next
　If Not rngClear Is Nothing Then
　　rngClear.ClearContents
　End If
End Sub

0 hits

▼

【52626】多数Rowを削除する方法 Yumi 07/11/21(水) 20:50