結合セル内の値を、結合解除後に結合されていた全てのセルへコピーする方法
結合セル内の値を、結合解除後に結合されていた全てのセルへコピーする方法
例えば、A1～A5、A6～A10がそれぞれ結合されており、【あ】【い】という文字が
それぞれ入力されているとします。
各結合セルを解除後、各結合セルを構成していたセルにそれぞれの文字をコピーして、
A1～A5には【あ】
A6～A10には【い】という文字が入るようにしたいと思っているのですが、
実践している下記の方法だと、セル数が多いせいか時間がかかってしまいます。
(1)結合セルを全て解除
(2)For Next if文で1行目から順にセルを見て、何も入力されていなければ、
直上のセルに入っている文字をコピーする。
そこで、下記のような方法で高速化できないか考えたのですが、記述がわかりません。
ご教授頂けますでしょうか。
または、他に高速化できる方法がありましたらお教え頂けますと幸いです。
(1)上から順に結合セルを探す。
(2)結合セルに当たったら、結合セルを構成する先頭セルと末尾セルのアドレスを変数に記憶
(3)該当の結合セルを解除
(4)記憶したら先頭セルの内容を、先頭セル直下～末尾セルまでにコピー
(5)末尾セルの直下から、(1)～(4)を繰り返す。
どうぞ、よろしくお願いいたします。
