転記元シートを転記先シートへデータ転記したいです。 | |
---|---|
[196042] 転記元シートを転記先シートへデータ転記したいです。- ■親トピック/記事引用/メール受信=ON■ □投稿者/ こんばんは -(2023/12/15(00:00)) □U R L/ Excel VBAの初心者です。 掲題の件につきまして、 恐れ入りますが、ご教授頂けますでしょうか? 転記元シート A|B|C|D|E|F|G|H|I|J|K|L|・・・ コード|得意先名|単位|重量|数量|コード|取引先名|締日|売上|残高|・・・ 空白|A掛ケース|100|10|1001|A店|31日|100,000|1,000|・・・ 空白|B掛ケース|110|15|1002|B店|20日|200,000|2,000|・・・ 空白|C掛ケース|200|20|2001|C店|31日|300,000|1,000|・・・ ・ ・ ・ ↓ 転記先シート A|B|C|D|E|F|G|H|I|J|K|L| コード|取引先名|締日|売上|残高| 1001|A店|31日|100,000|1,000| 1002|B店|20日|200,000|2,000| 2001|C店|31日|300,000|1,000| 転記元は、F列からデータのみを転記先のA列から転記して行きたいです。 (配列を使用したいです。) インターネットで検索してソースをコピーして 使用しましたが、 全然上手く行きません。 解決が出来なく応募させて頂きました。 お手数ですが、よろしくお願いいたします。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[196043] Re[1]: 転記元シートを転記先シートへデータ転記したいです。- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/12/15(09:49)) □U R L/ >(配列を使用したいです。) その条件が引っ掛かるのですが、 一括転記なら配列を経由する意味がないと思うのですが、どんな意図なのですか? あと、単純に全部コピーしてから、A:E列を削除しても同じようなものだと思うのですが、 それだとマズいことになりますか?(転記先は既に意味のあるデータが入っていたりするんですか?) |
[196044] Re[2]: 転記元シートを転記先シートへデータ転記したいです。- ■ / 記事引用/メール受信=OFF■ □投稿者/ こんばんは -(2023/12/15(10:03)) □U R L/ 半平太 様 早々のご連絡ありがとうございます。 初心者で勉強の為、配列の組み方を見て勉強したかっただけです。 深い意味はありません。 おっしゃる通りです。 転記先にデータが入っているです。 転記元のデータのみを範囲指定して、転記先に転記したいと考えております。 お手数ですが、 よろしくお願いいたします。 |
[196045] Re[3]: 転記元シートを転記先シートへデータ転記したいです。- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/12/15(11:37)) □U R L/ >初心者で勉強の為、配列の組み方を見て勉強したかっただけです。 でも、この問題に「組み方」も何もないんですけどねぇ・・ Sub test() With Worksheets("転記元") .Range("F1", .Cells(.Rows.Count, "F").End(xlUp)).Resize(, .UsedRange.Columns.Count - 5).Copy Worksheets("転記先").Range("A1") End With End Sub Sub test配列() Dim 配列 With Worksheets("転記元") 配列 = .Range("F1", .Cells(.Rows.Count, "F").End(xlUp)).Resize(, .UsedRange.Columns.Count - 5).Value Worksheets("転記先").Range("A1").Resize(UBound(配列), UBound(配列, 2)) = 配列 End With End Sub |
[196046] Re[4]: 転記元シートを転記先シートへデータ転記したいです。- ■ / 記事引用/メール受信=OFF■ □投稿者/ こんばんは -(2023/12/15(13:59)) □U R L/ 半平太 様 ご連絡をありがとうございます。 確認を致します。 誠にありがとうございました。 |
このトピックに書きこむ |
---|