□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[3]: 『.Resize(, 変数)が理解できない』 | |
|---|---|
[195172] Re[3]: 『.Resize(, 変数)が理解できない』- ■記事引用/メール受信=OFF■ □投稿者/ マルチポスト -(2022/08/31(09:05)) □U R L/ そもそもこの掲示板は >マルチポストはご遠慮ください。 になっている。 | |
[195171] Re[2]: 『.Resize(, 変数)が理解できない』- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/08/30(19:56)) □U R L/ マクロは、マルチ先におまかせ ht tps://www.moug.net/faq/viewtopic.php?t=81708 ht tps://www.excel.studio-kazu.jp/kw/20220830140418.html Powwer Queryだと、こんな手順 慣れると、数分で操作完了 １）クエリのマージ：内部（一致する行のみ） ２）不要列削除 ３）展開：全ての列 ４）カスタム列の追加：={1..10} ５）展開：新しい行に展開する ６）不要な列削除：４）で追加した列 | |
[195170] Re[1]: 『.Resize(, 変数)が理解できない』- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/08/30(15:45)) □U R L/ シートの１行目は見出しである必要がありますが、 マクロでなくて、Power Queryがおすすめです。 | |
[195168] 『.Resize(, 変数)が理解できない』- ■親トピック/記事引用/メール受信=ON■ □投稿者/ １年生 -(2022/08/30(14:29)) □U R L/ まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。このマクロで条件が一致したら10行コピーするへ変更するにはどのような修正を加えればよいでしょう？教えていただける方がいらっしゃいましたら宜しくお願い致します。
Sub Sample()
Dim x As Variant
Dim c As Range
Dim cols As Long
With Sheets("まとめ")
'シート１の列数取得
cols = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
With Sheets("集計")
'最初に転記領域のクリア
.Columns("B").Resize(, cols).ClearContents
'シート２のA1からA列のデータ最終行までのセルを１つずつ取り出す
For Each c In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
'その値でシート１のD列をMach検索
x = Application.Match(c.Value, Sheets("まとめ").Columns("B"), 0)
If IsNumeric(x) Then 'もしあれば
'１行分を転記
c.Offset(, 2).Resize(, cols).Value = Sheets("まとめ").Cells(x, "A").Resize(, cols).Value
End If
Next
End With
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |