１行置きに処理する場合

https://excel-ubara.com/excelvba1/EXCELVBA316.html