[[20230128102440]]　『データのコピーのマクロを教えてください。』（りりあん）　ページの最後に飛ぶ

『データのコピーのマクロを教えてください。』（りりあん）

下記のデータのようにA列に日付(基準となるデータ)がある場合
C2・D2セルのデータをコピーしてC3・D3セル以降に貼り付ける
マクロを教えていたただけないでしょうか?

※既存のフォーマットにデータを入力しているため基準となる
A列のデータの行は下記のように間が空いてしまいます。
IF関数などを使用してA列にデータが入っていればC3・D3セルを表示
させるなど考えてみましたがフォーマットの枚数が多かったため
質問させて頂きました。

よろしくお願いします。<(_ _)>

【マクロ実行前】
　　A　　　　　B　　　　　　C　　　　　　D
　　注文日　　　商品　　入荷　　　　　検品
1　1月7日　　リンゴ　　済・未入荷　　可・否
2　1月7日　　みかん
3　1月10日　　いちご
4　1月11日　　ばなな
5　1月13日　　みかん

　　注文日　　　商品　　入荷　　　　　検品
15　1月15日　　いちご
16　1月20日　　ばなな
17　1月20日　　リンゴ
18　1月21日　　みかん
19
20

【マクロ実行後】
　　A　　　　　B　　　　　　C　　　　　　D
　　注文日　　　商品　　入荷　　　　　検品
1　1月7日　　リンゴ　　済・未入荷　　可・否
2　1月7日　　みかん　　済・未入荷　　可・否
3　1月10日　　いちご　　済・未入荷　　可・否
4　1月11日　　ばなな　　済・未入荷　　可・否
5　1月13日　　みかん　　済・未入荷　　可・否

　　注文日　　　商品　　入荷　　　　　検品
15　1月15日　　いちご　　済・未入荷　　可・否
16　1月20日　　ばなな　　済・未入荷　　可・否
17　1月20日　　リンゴ　　済・未入荷　　可・否
18　1月21日　　みかん　　済・未入荷　　可・否
19
20

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

おはようございます。＾＾
一案ですが
１．C2、D2の値を変数に格納
２．A、の項目名を探しあればそこから空白になる手前までをループして
　　3，4右のセルに当該の値を書き込む
３．２．A列の項目名が無くなるまで繰り返す
とかでも
外しておりましたら、お許しを。
m(__)m
（隠居Z） 2023/01/28(土) 11:57:06

簡単ながらこんな感じでどうでしょう？

Sub cdcopy()

    Const Arrival As String = "C"
    Const ArrivalStr As String = Arrival & "2"
    Const Inspection As String = "D"
    Const InspectionStr As String = Inspection & "2"
    Dim order As Range
    For Each order In Range("A3:A" & ActiveCell.SpecialCells(xlLastCell).Row)
        If IsDate(order) Then
            Range(Arrival & order.Row) = Range(ArrivalStr)
            Range(Inspection & order.Row) = Range(InspectionStr)
        End If
    Next
End Sub

（初心者） 2023/01/28(土) 12:01:07

そうですよね。日付だけ拾えば良かったですね
いや～複雑に考えすぎていました。＾＾；
りりあん　さん　済みません
良かった良かった。
初心者さん、ありがとうございます。
m(__)m
（隠居Z） 2023/01/28(土) 12:24:28

隠居Zさま、初心者さまコメントありがとうございました。

初心者様のマクロ希望する作業が出来ました。
ありがとうございました。

(^^)/

（りりあん） 2023/01/28(土) 13:50:12

コメント返信：

[ 一覧(最新更新順) ]

[[20230128102440]] 『データのコピーのマクロを教えてください。』（りりあん） ページの最後に飛ぶ

[[20230128102440]]　『データのコピーのマクロを教えてください。』（りりあん）　ページの最後に飛ぶ