【マクロ】データ移動について代替案（コード）or助言を下さい

以下画像をご覧ください

【やりたい事】
A13-15のトム・ジョン・ボブのデータを
D列の前田さんの下に、コピーにて、移動したいです

※現在は３人のデータですが、人数は変動します。0～２０人位です
0人の時は下の表は何もありません


【質問事項】
１以下のコードは動きますが、複雑な気がします。代替え案ないかなぁと思い相談しています
２以下コードでご指摘あれば、お願いします

条件
・上の表と下の表の間は常に３行
・項目名は基本、固定ですが、変更もできます
・上の表と下の表の、お客様名や状態が削除の件数は、変わります

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2025/02/24 18:09

No2です。

＞⇒状態はマクロには関係ありません
＞⇒削除とは、上の表では加藤さんは削除しましたっていう意味です
ということすが、
提示されたマクロの
If Cells(i, 2) <> "削除" Then
の個所は、トム、ジョン、ボブの状態が削除でないから、転記しています。
もし、状態が関係ないのであれば、オリビアとソフィアも転記されないといけませんが、そうはなっていません。
実際に、B13を削除にして実行してみてください。
そうすると、ジョン、ボブのみが転記されます。

この回答へのお礼

色々わかりにく説明すいませんでした→参考にさせていただきます

お礼日時：2025/02/27 21:13

No.2 回答者： tatsumaru77 回答日時： 2025/02/24 17:42

トムの状態が削除の時、マクロを実行すると、

ジョンがD8へ転記
ボブがD9へ転記され、
D7が空白になります。
これは仕様でしょうか。
D7から順に詰めるので
D7へジョンを転記
D8へボブを転記するのが正しいような気がしますが、いかがでしょうか。

この回答へのお礼

すいません。説明がわかりにくくてですね
・トムの状態が削除の時、マクロを実行すると
⇒状態はマクロには関係ありません
⇒削除とは、上の表では加藤さんは削除しましたっていう意味です

その上の表の右側に、再度、削除ではないお客様名を転記し
さらに、下の表のお客様名をD7からつめて転記しています

D7から順につめます
ですので

D7⇒トム
D8⇒ジョン
D9⇒ボブ
となります

大変、わかにくく申し訳ございません
時分の考えたコードをつけた、質問投稿を再投しました

お時間ありまいたら、ご覧ください

https://oshiete.goo.ne.jp/mypage/history/question/

>D7から順に詰めるので
>D7へジョンを転記
>D8へボブを転記するのが正しいような気がしますが

お礼日時：2025/02/24 17:56

No.1 回答者： fujillin 回答日時： 2025/02/24 16:35

こんにちは

＞以下のコードは動きますが～～
なさりたいことがさっぱりわからない上に、コードも無いので勝手に解釈しました。


もしも、Ｄ列に、
　「Ａ列の名前のうち、Ｂ列が"良好"となっているもの」を抽出したい
ということなら・・・

D2セルに以下の関数式を入れておけば済みます。
　=FILTER(A:A,B:B="良好","")
※ スピル機能を使えるバージョン（=Office365等）を想定しています。

※ マクロにする必要があるのなら、「マクロの記録」を利用すればマクロ化は可能でしょう。

この回答へのお礼

fujillin　様

ご指摘ありがとうございます
コードを書くのを失念いたしました

上記内容、参考にさせて頂きます
ご指導、ありがとうございます

sub お客様名移動()

Dim clastrow As Long
Dim lastrow As Long
Dim llastrow As Long

clastrow = Cells(1, 1).End(xlDown).Row
lastrow = Cells(Rows.Count, 4).End(xlUp).Row
llastrow = Cells(Rows.Count, 2).End(xlUp).Row

For i = (clastrow + 5) To llastrow

If Cells(i, 2) <> "削除" Then

Cells(i, 1).Offset(-(clastrow - lastrow) - 4, 3) = Cells(i, 1)

End If
Next i

End Sub

お礼日時：2025/02/24 16:57