小川慶一さん:
動画を２つとも見ました。特に上のリンクの動画の内容でうまくいきそうな気がします。明日トライします。
詳しくは言えませんが、一回のデータ出力時に処理済みと未処理のデータが混在してしまうので、わざと前回処理済みのデータとダブらせて削除し、未処理のデータだけにしたいみたいです。
> さざなみさん:
>
> > 担当者によくよく話を聞いたら、重複した行はすべて削除したいそうです。＿|￣|○ 一件は残すかと思ってました。並べ替えたところでどうするか？もう少し考えてみます。
>
> だとしても、やることはたいして変わりませんね。
> にしても、不思議な業務ですね。

小川慶一さん:
担当者によくよく話を聞いたら、重複した行はすべて削除したいそうです。＿|￣|○ 一件は残すかと思ってました。並べ替えたところでどうするか？もう少し考えてみます。
> 受講生 さん:
>
> トライしてみてどうだったか教えてください。
>
> > 小川慶一さん:
> > ありがとうございます。動画を見てみます。
> > > さざなみさん:
> > >
> > > こんにちは。
> > >
> > > 重複しないリストを作りたいということですね。
> > > 調査対象の列の値で並べ替えられた表を取り扱うとすれば、以下の動画前半で示した流れです。
> > > https://online.pc5bai.com/movie/index/27/158/
> > >
> > > 調査対象の列の値で並べ替えられていない表を取り扱う場合のいちばん簡単なやり方は、並べ替えをして、前述の方法でリストを作り、再び並べ替えて表を元の状態にすることです。
> > > 以下の動画前半で示した流れです。
> > > https://online.pc5bai.com/movie/index/10/24/
> > >
> > >
> > >

小川慶一さん:
ありがとうございます。動画を見てみます。
> さざなみさん:
>
> こんにちは。
>
> 重複しないリストを作りたいということですね。
> 調査対象の列の値で並べ替えられた表を取り扱うとすれば、以下の動画前半で示した流れです。
> https://online.pc5bai.com/movie/index/27/158/
>
> 調査対象の列の値で並べ替えられていない表を取り扱う場合のいちばん簡単なやり方は、並べ替えをして、前述の方法でリストを作り、再び並べ替えて表を元の状態にすることです。
> 以下の動画前半で示した流れです。
> https://online.pc5bai.com/movie/index/10/24/
>
>
>

ここでたずねるべきかもわかりませんが。重複しているデータの削除をしたいです。キーとなる列でダブりを探して記号に変換し、それ以外を別シートに移そうと思います。列には10 桁以上の英数があります。一番上のセルと同じ値が次のセルから最後まで検索していくのを考えていますがうまくいきません。Countifも考えましたが。どうしたらいいでしょうか？

こんにちわ。

行の項目（費用）と列の項目（拠点）がクロスするセルを累計シートに転記し12か月分集計したいのですが、複数シートをfor each 〜nextで作ろうとすると、うまくできません。1か月分の転記は下記でできましたので、それを12か月分集計したいです。for each 構文はいわゆる複数シートの串刺しには向いていないのでしょうか。またfor each だと各セルごとに12回繰り返し、また次のセルを12回というようにスピードが遅い気がしますので、1カ月分を集計して、次の1カ月の項目を順に集計するというような法方はありますか。

Sub rui()
　　Dim retu
　　Dim gyo
　　　For retu = 6 To 100
　　　　　 For gyo = 7 To 25
　　　　　 If Worksheets("rui").Cells(1, retu).Value = Worksheets("PL1月").Cells(1, retu).Value Then

　　　　　　If Worksheets("rui").Cells(gyo, 1).Value = Worksheets("PL1月").Cells(gyo, 1).Value Then
　　　　　　 Worksheets("rui").Cells(gyo, retu).Value = Worksheets("PL1月").Cells(gyo, retu).Value
　　　　　　 End If
　　　　　 End If
　　　　Next
　　Next


End Sub

For Each構文　セルのコレクション。
指定する範囲での処理ができ画期的ですね。

こんなことがしたかったです。

変数の宣言や、セルをRangeで表すなど
今更ですが、復習にもなりました。

小川慶一さん:
柴田です。
どう思われますか？との問いに対して回答いたします。
Set rg = Range("C2:H29")の一行を入れても入れなくてもマクロにエラーは出ません。
ただ、発展１講座第１章 - 総称オブジェクト型で習った内容を律儀に実行するのであれば、As Rangeでオブジェクト型の変数宣言をしていますので、変数reにオブジェクトを格納するためには、Setで割り当てる必要があると考えます


> 柴田　邦彦さん:
>
> こんにちは。
>
> > のようにオブジェクト型の変数を宣言する場合は、
> > [[snip]]
> > For Each rg In Range("C2:H29")
> > のようにSetで変数を割り当てなくても良いのでしょうか？
>
> 柴田さんご自身は、どう思われますか？
> そう思われる理由も添えて投稿ください。よろしくお願いいたします。
>

【動画45】 発展１講座第４章 - For Each構文 セルのコレクション での質問です。
Sub ForEach_Range()
Dim rg As Range
For Each rg In Range("C2:H29")
If rg.Value >= 40 Then
rg.Interior.ColorIndex = 46
rg.Font.ColorIndex = 2
rg.Font.Bold = True
End If
Next
End Sub
のようにオブジェクト型の変数を宣言する場合は、
Sub ForEach_Range()
Dim rg As Range
　Set rg = Range("C2:H29")
For Each rg In Range("C2:H29")
のようにSetで変数を割り当てなくても良いのでしょうか？

小川先生

For Each構文 の動画を拝見し、以下に記載するテストデータで
「F列に合計と記入されている行を削除する」
マクロが作れるか試してみました。
結果は、合計と記入されている行が複数残りました。

以下のようなテストデータの場合、For Each構文を使わずに
For Next構文等でマクロを組んだ方がよいのでしょうか？

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

【書いたコード】

　　
Sub GoukeiSakujyo()
    Dim rng As Range
    Dim rngs As Range
    Set rngs = Range("F1:F20")
    
    For Each rng In rngs
        
    Debug.Print rng.Address
        
        If rng.Value = "合計" Then
            Range(rng.Address).EntireRow.Delete
        End If
    Next
    MsgBox "処理が完了しました"
End Sub　

【テストデータ】
|B列 |C列 |D列 |E列 |F列 |G列 |H列 |
---------------------------------------------------
1 行目 |○ |○ |○ |○ |○ |○ |○ |
---------------------------------------------------
2 行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
3 行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
4 行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
5 行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
6 行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
7 行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
8 行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
9 行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
10 行目|○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
11行目 |○ |○ |○ |○ |○ |○ |○ |
---------------------------------------------------
12行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
13行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
14行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
15行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
16行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
17行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
18行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
19行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------
20行目 |○ |○ |○ |○ |合計 |○ |○ |
---------------------------------------------------

by domino

目的とするマクロ作成に必要な構文が徐々にわかってきました。今後も楽しみです。

こういうことを組み合わせることで、マクロがダイナミックに動くのですね。
だんだんとそのからくりがわかってきています。