Results of 1 - 1 of about 33516 for 関数 (0.006 sec.)
- [[20240502092554]]
- #score: 2647
- @digest: e822ed8ae8d7fbe627b27cca1e8a329b
- @id: 96686
- @mdate: 2024-05-02T10:29:52Z
- @size: 2527
- @type: text/plain
- #keywords: spillingtorange (7748), 不幸 (3868), 知見 (2730), 成依 (2676), 問" (2659), formula2 (2528), 複行 (2234), 合体 (1962), 体さ (1533), ら重 (1287), 明示 (1237), 2024 (1171), entirerow (1168), 重複 (1140), 定外 (1104), xlwhole (1070), 依頼 (1030), ピ主 (940), ト2 (935), 得た (878), とシ (793), 話な (788), う話 (753), 複が (716), hidden (715), specialcells (692), 複の (684), ト1 (682), nothing (645), r1 (638), シー (627), windows11 (544)
- 『2つのシートを比較して指定する列に重複があれば片方のシート行を削除』（ちゃぷ）
シート1のB列とシート2のB列、シート1のC列とシート2のC列から共に重複があった場合にシート3にシート2の重複行を削除して、空白行を詰めたデータを表示したいです。 宜しくお願い致します。 ＜ 使用 Excel:Microsoft365、使用 OS:Windows11 ＞ ---- して、"質問"は何なのでしょうか? たとえば、B列とC列に完全に一致するものが、もう一方のシートにあるかないかはCOUNTIFS関数で調べられます。 また、シート1とシート2を合体させてから重複のないデータを得たいという話なら、重複の削除を使えばよいでしょう。 マクロの質問かどうかもわかりませんが、仮にそうだとすれば、完成して無くてもよいので現状のコードを示したうえで、何をどう困っているのか（エラーが出るなら箇所やその内容、想定外の結果になってしまうなら「××」になるはずが「○○」になる等）具体的に質問されるとよいと思いますし、作成依頼したいだけという話なら、その旨明示されておいた方がよいと思います。 (明示しない場合、質問だと勘違いした回答者と作成依頼をしているつもりのトピ主、どちらにも不幸な結果になりがちです） （もこな2 ） 2024/05/02(木) 12:21:15 ---- 「シート1とシート2を合体させてから重複のないデータを得たい」ということなら、 UNIQUE関数とVSTACK関数を組み合わせればできます。 調べてみてください。 （hatena） 2024/05/02(木) 13:13:29 ---- Sub main() Dim c As Range, r As Range, r1 As Range, r12 As Range With Sheets("Sheet3") Sheets("Sheet2").Cells.Copy .Range("A1") For Each c In .Range("B:B").SpecialCells(2) If Not Sheets("Sheet1").Range("B:B").Find(c.Value, , , xlWhole) Is Nothing Then If Not Sheets("Sheet1").Range("C:C").Find(c.Offset(, 1).Value, , , xlWhole) Is Nothing Then If r Is Nothing Then Set r = c Else Set r = Union(c, r) End If End If End If Next c If Not r Is Nothing Then r.EntireRow.Hidden = True .Cells.SpecialCells(12).Delete .Cells.EntireRow.Hidden = False End If Set r = .UsedRange Set r1 = r.Columns(1) r1.Cells(r1.Cells.Count).Offset(1).Formula2 = "=unique(" & r.Address & ")" Set r2 = r1.Cells(r1.Cells.Count).Offset(1).SpillingToRange r2.Value = r2.Value r.EntireRow.Delete End With End Sub （mm） 2024/05/02(木) 15:44:04 ---- 皆様の知見を活用して、狙い通りにできました。 ありがとうございました。 （ちゃぷ） 2024/05/02(木) 19:29:52... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202405/20240502092554.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97013 documents and 608132 words.
訪問者：