[[20200804130328]]　『空白セルの1行上までをコピーして別シートに貼り普x（ま）　ページの最後に飛ぶ

『空白セルの1行上までをコピーして別シートに貼り付けしたい』（ま）

B9セルからB23セルまでを範囲として、
空白セルの1行上までのセルを別シートに転記するvbaを考えています。

B9からB23までは、B9.B11.B13..と、2つずつ増えていくのですが
（セルを結合しているため）この場合どのような式を作れば良いでしょうか？

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 セルを結合してない場合のコードはわかるのでしょうか？
 セルを結合していると、どのような不都合がありますか？
（´・ω・`） 2020/08/04(火) 14:30

Sub main()

    'Sheet1からSheet2のA列にコピー
    Sheets("Sheet1").Range("B9:B23").SpecialCells(2).Copy Sheets("Sheet2").Range("A1")
End Sub

（mm） 2020/08/04(火) 14:41

コメント返信：