[[20180609113635]]　『VBAでの非連続のセルの選択について』（chamofu）　ページの最後に飛ぶ

『VBAでの非連続のセルの選択について』（chamofu）

マクロ素人です。
お力をお借りしたいです。

セルの選択がうまくできず困っております。

5行目まではタイトルなどでデータは6行目からです。Ａ～GとAB列をH列の最終行のところまでセルを選択したいです。
下記で組んでみたのですが、Ａ～AB列まですべて選択されてしまいます。
また、セル選択後に空白セルは上のセルと同じにするコードと組み合わせたいです。
行数が6万行を超えることも多いため、少しでも処理の軽いのにできたら幸いです。

Sum LastRow as LongSub テスト()

Dim blanks As Range
Dim LastRow As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

LastRow = Cells(Rows.Count, 8).End(xlUp).Row

Range(“A6:G” & LastRow, “AB6:AB” & LastRow).Select

    If Selection.Cells.Count ＞1 Then
        On Error Resume Next
        For Each blanks In Selection.SpecialCells(xlCellTypeBlanks).Areas
            If blanks.Row >1 Then
                blanks.Rows(1).Offset(-1, 0).Copy blanks
            End If
        Next
        On Error GoTo 0
    End If

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

どうぞよろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

例えば。
Set r = Union(Range("A6:G" & lastRow), Range("AB6:AB" & lastRow))

（γ） 2018/06/09(土) 11:46

例えば・・・・
個人的にあまり行番号だけを変数に入れるのが好みじゃないので＾＾；；

Sub test()

    Dim Rng As Range
    Dim a As Range

    On Error Resume Next
    Set Rng = Intersect(Range("A:G,AB:AB"), _
                        Range("H6", Cells(Rows.Count, "H").End(xlUp).EntireRow)) _
                        .SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    If Rng Is Nothing Then Exit Sub

    For Each a In Rng.Areas
        a.Rows(0).Copy a
    Next
End Sub
（まっつわん） 2018/06/09(土) 12:04

γさん
SETとUNION、調べて試してみたのですが上手くいかず困ってました！
大変勉強になりました。ありがとうございました。
（chamofu） 2018/06/09(土) 12:27

コメント返信：

[ 一覧(最新更新順) ]

[[20180609113635]] 『VBAでの非連続のセルの選択について』（chamofu） ページの最後に飛ぶ

[[20180609113635]]　『VBAでの非連続のセルの選択について』（chamofu）　ページの最後に飛ぶ