|
こんにちは。かみちゃん です。
マクロマンさんからもコメントがついていますが、私も考えていましたので、
コメントさせていただきます。
>多数行のデータを消す場合、
> 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
|
|