このトピックに書きこむ |
---|
Re[2]: 表の列をまとめる | |
---|---|
[196202] Re[2]: 表の列をまとめる- ■ ![]() □投稿者/ どん -(2024/05/03(17:26)) □U R L/ 解決です! ありがとうございました。 この後もう一点ご教示下さい。 |
[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 |
[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 ++++++++++++++++++++ |