戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
行挿入について

    [189578] 行挿入について-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ スイーツ好き -(2019/06/16(09:01))
    □U R L/

      C列にある項目をA列から検索して一致すればB列の数値分の行をC列の項目の下に挿入するマクロの書き方を教えてください。

      BEFORE AFTER
      A B C A B C
      りんご 3 りんご りんご 3 りんご
      ばなな 2 ばなな ばなな 2
      キウイ 1 セロリ キウイ 1
      メロン 2 みかん メロン 2
      もも 2 きゅうり もも 2 ばなな
      みかん 2 きゃべつ みかん 2
      スイカ 2 レタス スイカ 2
      ケーキ セロリ
      どーなつ みかん
      クレープ
      アイス
      きゅうり
      きゃべつ
      レタス
      ケーキ
      どーなつ
      クレープ
      アイス



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [189579] Re[1]: 行挿入について-

    記事引用/メール受信=OFF■

    □投稿者/ スイーツ好き -(2019/06/16(09:02))
    □U R L/
      BEFORE				AFTER		
      A	B	C		A	B	C
      りんご	3	りんご		りんご	3	りんご
      ばなな	2	ばなな		ばなな	2	
      キウイ	1	セロリ		キウイ	1	
      メロン	2	みかん		メロン	2	
      もも	2	きゅうり		もも	2	ばなな
      みかん	2	きゃべつ		みかん	2	
      スイカ	2	レタス		スイカ	2	
      		ケーキ				セロリ
      		どーなつ				みかん
      		クレープ				
      		アイス				
      						きゅうり
      						きゃべつ
      						レタス
      						ケーキ
      						どーなつ
      						クレープ
      						アイス
      




    [189580] Re[2]: 行挿入について-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2019/06/16(09:30))
    □U R L/

      一例です。
      こんな感じで考えてはどうですか

      1)「ばなな」をMatch関数でC列の何番目にあるか検索
      2)見つかったら以下実行
      3)C1から1)の結果−1をOffsetしたセルからResize(B列の値)
      4)3)の範囲に、セル挿入し下方向にシフト
      5)1)〜4)を、「スイカ」まで繰り返し




    [189584] Re[3]: 行挿入について-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2019/06/16(11:21))
    □U R L/

      >3)C1から1)の結果−1をOffsetしたセルからResize(B列の値)
               ↓
       3)C1から1)の結果をOffsetしたセルからResize(B列の値)


      1を引いてはいけませんでした。




    [189585] Re[4]: 行挿入について-

    迷宮入りorほかあたって見ます・・ / 記事引用/メール受信=OFF■

    □投稿者/ スイーツ好き -(2019/06/16(12:25))
    □U R L/
      マナ様
      
      ありがとうございます。
      
      A列とC列がまったく同一の場合は下記で問題ないのですが、
      ご教授いただいたMATCHを調べてはいるもののどうやって盛り込むのかが、
      分からなくAB列の設定をC列に適用することがどうしてもできません。。
      初心者ですみません。
      
      
                  For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
                  Let j = Cells(i, 2).Value
                    If 0 < j Then
                      Rows((i + 1) & ":" & (i + j)).Select
                      Selection.Insert Shift:=xlDown
                      End If
                  Next i
      
      


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

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




    [189586] Re[5]: 行挿入について-

    記事引用/メール受信=OFF■

    □投稿者/ sy -(2019/06/16(12:33))
    □U R L/

      これC列の値は同じ値が2回以上出てくる事があるんですか?

      後C列のデータ数はどれくらいの件数になるんでしょうか?




    [189587] Re[6]: 行挿入について-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2019/06/16(12:57))
    □U R L/
      Matchの使用例です。
      Offset、Resizeも使えるようになるとよいです。
      できまいた!でおしまいにしないでくださいね。
      
      Sub test()
          Dim c As Range
          Dim m
          
          For Each c In Columns("A").SpecialCells(xlCellTypeConstants)
              m = Application.Match(c, Columns("C"), 0)
              If IsNumeric(m) Then
                  Range("C1").Offset(m).Resize(c.Offset(, 1).Value).Insert xlShiftDown
              End If
          Next
          
      End Sub
      
      


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

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




    [189588] Re[6]: 行挿入について-

    記事引用/メール受信=OFF■

    □投稿者/ スイーツ好き -(2019/06/16(13:02))
    □U R L/

      sy様

      ありがとうございます。

      C列の値は同じ値が2回以上出てくることはありません。
      また、C列の長さは毎回変わり、最大でも500行程です。
      (A列B列も毎回件数が変わります、最大で100行程です、A列の横(B列)には必ず数値が入ります)
      (例のため分かりやすく食べ物名としていましたが、実際は重複のない英語表記がはいってきます)
      説明不足ですみません。
      よろしくお願いいたします。。。




    [189589] Re[7]: 行挿入について-

    記事引用/メール受信=OFF■

    □投稿者/ sy -(2019/06/16(13:45))
    □U R L/

      >C列の値は同じ値が2回以上出てくることはありません。

      >また、C列の長さは毎回変わり、最大でも500行程です。
      >(A列B列も毎回件数が変わります、最大で100行程です、
      >A列の横(B列)には必ず数値が入ります)

      ならマナさんの2019/06/16(12:57)の回答で十分なので、
      マナさんからもあるようにワークシート関数のVBAでの使い方や、
      offsetやresize、ジャンプ機能(SpecialCells)などの1つ1つを、
      調べて勉強して是非ご自身の物にして下さい。




    [189592] Re[8]: 行挿入について-

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

    □投稿者/ スイーツ好き -(2019/06/16(14:49))
    □U R L/
      マナ様Asy様
      
      ありがとうございます。
      
      マナ様のご提示いただいたコードで動作完璧でした。
      本当にありがとうございました。コードの理解はまだできておりません。。
      
      お二方の厳しいお言葉しっかりと受け止め、
      これでおしまいにならないように勉強します。
      
      いろいろとありがとうございました。


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

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



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

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

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


- Child Forum -
Edit:ゆう-G