マクロで空白セルを詰めて別シートに転記

全くのマクロ初心者です。

下記のようにシート①のV列21行目以降のデータを、シート②のL列4行目以降に空欄を詰めて転記したいのですが、どうしたら良いでしょうか？

関数ではできるのですが、マクロではうまくできません。

よろしくお願いいたします。


シート①

　　　U　　　V　　　W　　　X　
2１　 リンゴ　
2２　　　
2３　 ミカン
2４
2５
2６　 バナナ
2７


シート②

　　　K　　　L　　　M　　　N
4　　　　 リンゴ　　
5　　　　 ミカン　　
6　　　　 バナナ　
7
8
9

No.3 ベストアンサー 回答者： housyasei-usagi 回答日時： 2021/05/13 13:34

おっと

別シートなら

Sheets("シート名").cells(　　以下省略

に置き換えてください

この回答へのお礼

housyasei-usagi様

早速ご回答、しかも２回もありがとうございます。
バッチリできました。

本当にありがとうございました。

お礼日時：2021/05/13 14:01

No.2 回答者： housyasei-usagi 回答日時： 2021/05/13 13:26

例えば

k=4

For n=22 To 26

If Cells(n,22)<>"" Then Cells(k,12)=Cells(n,22):k=k+1

Next

lfはNextの前まで改行せずに

マクロやるならR1C1形式のほうがセル指定楽です。
マクロ走らせるだけなら関係ないけど

No.1 回答者： fujillin 回答日時： 2021/05/13 13:11

こんにちは

＞関数ではできるのですが、マクロではうまくできません。
では、以下のようなマクロにすればよいのではないでしょうか。

1）対象セル範囲に関数を設定する
2）対象セル範囲の値（＝計算結果）を
　　.Value = .Value
　 形式で確定させる

この回答へのお礼

fujillin様

早速のご返答ありがとうございます。

素人すぎて.Value = .Valueが理解できませんでしたが、他の方のアドバイスで解決できました。

ありがとうございました。

お礼日時：2021/05/13 14:06