戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
転記元シートを転記先シートへデータ転記したいです。

    [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]: 転記元シートを転記先シートへデータ転記したいです。-

    迷宮入りorほかあたって見ます・・ / 記事引用/メール受信=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


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [196046] Re[4]: 転記元シートを転記先シートへデータ転記したいです。-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ こんばんは -(2023/12/15(13:59))
    □U R L/

      半平太 様

      ご連絡をありがとうございます。
      確認を致します。
      誠にありがとうございました。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G