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

    [196200] 表の列をまとめる-

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

    □投稿者/ どん -(2024/05/03(12:05))
    □U R L/

      ご教示下さい。
      次の様な表があった時、同じ項目列を最終行に移動し
      列にまとめていきたい考えております。

      −−−−−−−−−−−−−−−−−−−−−−−−−−―−−−−−
      氏名　日付 その他 氏名　日付 その他 氏名　日付　その他
      Aさん 5/1　 〇　 Aさん 5/2 〇　　 Aさん 5/3 ×
      Bさん 5/1 　 △　 Bさん 5/2 　×　　 Bさん 5/3　　△
      Cさん 5/1　 ◇　　Cさん　5/2 　△　　 Cさん 5/3　　〇
      Dさん 5/1　 □　　Dさん　5/2 □　　 Dさん 5/3　　□

      ↓↓↓


      氏名　日付 その他
      Aさん 5/1　 〇　
      Bさん 5/1 　 △　
      Cさん 5/1　 ◇　　
      Dさん 5/1　 □　
      Aさん 5/2 〇
      Bさん 5/2 　 ×
      Cさん　5/2 　 △
      Dさん　5/2 □
      Aさん 5/3 ×
      Bさん 5/3 　 △
      Cさん　5/3 　 〇
      Dさん　5/3 □

      どのようにすればできますでしょうか？
      ご教示の程宜しくお願いします。



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



    [196201] Re[1]: 表の列をまとめる-

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

    □投稿者/ 半平太 -(2024/05/03(14:52))
    □U R L/ 
      サンプル通り、3列単位のコピーでいい場合。

Sub test()
    Dim colUnit, TitleRow As Range, CL As Long
    Dim lastCell As Range
    
    colUnit = 3 '3列単位と決まっている場合
    
    Set TitleRow = Range("A1").CurrentRegion.Rows(1)
    
    For CL = 4 To TitleRow.Columns.Count Step colUnit
        Set lastCell = Cells(Rows.Count, CL).End(xlUp)
        
        If lastCell.Row > 1 Then
            Range(Cells(2, CL), lastCell).Resize(, colUnit).Copy _
                 Cells(Rows.Count, 1).End(xlUp).Offset(1)
        End If
    Next CL
    
    '不要化した元データ列をクリア
    Range("A1").CurrentRegion.Offset(, colUnit).ClearContents
End Sub


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

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



    [196202] Re[2]: 表の列をまとめる-

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

    □投稿者/ どん -(2024/05/03(17:26))
    □U R L/

      解決です！
      ありがとうございました。
      この後もう一点ご教示下さい。




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

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

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

- Child Forum -
Edit:ゆう-Ｇ