Excelで下記の基本データから、下記の抽出表を 作成する事は可能でしょうか？

Question

Excelで下記の基本データから、下記の抽出表を

作成する事は可能でしょうか？

基本データ

A列 B列 C列 D列

あああ いいい ううう えええ

おおお かかか ききき くくく

けけけ こここ さささ ししし

すすす せせせ そそそ たたた

ちちち つつつ ててて ととと

抽出表

A列 B列 C列 D列

あああ ううう いいい えええ

いいい ううう いいい えええ

おおお ききき かかか くくく

かかか ききき かかか くくく

けけけ さささ こここ ししし

こここ さささ こここ ししし

すすす そそそ せせせ たたた

せせせ そそそ せせせ たたた

ちちち ててて つつつ ととと

つつつ ててて つつつ ととと

Answer 1

元データがA1セル以下にあるなら、横方向に4つのセルに以下の式をそれぞれ入力して下方向にオートフィルコピーしてください。

=OFFSET($A$1,(ROW(A1)-1)/2,MOD(ROW(A1)-1,2))

=OFFSET($C$1,(ROW($A1)-1)/2,0)

=OFFSET($B$1,(ROW($A1)-1)/2,0)

=OFFSET($D$1,(ROW($A1)-1)/2,0)

Answer 2

bolbox さん、マックちゃん さん、いつもアドバイスありがとうございます。

hogehogeXX さん、こんにちは。

紹介されている方法は参考としていただけたでしょうか。

よろしければ確認してみた後の動作についても投稿してみてくださいね。

同様の質問でこちらのスレッドを見られた方に参考となるよう [ 回答としてマーク ] をさせていただきました。

また何かありましたらマイクロソフト コミュニティのご利用をお待ちしています。

Answer 3

Private Sub CommandButton1_Click()

'基本データはテキストファイルとして保存しておき、[データ][外部データの取り込み]により

'A1:D5 の範囲にインポートします。

'ワークシート上に[開発][挿入][ActiveXコントロール]のコマンドボタンを配置し、

'クリック時イベントプロシジャに以下のように実行して何とか目的を達成しました。

Dim A As Range, B As Range, C As Range, D As Range, i As Integer

Dim E As Range, F As Range, G As Range, H As Range

Dim R1 As Range, R2 As Range, R3 As Range, R4 As Range, R5 As Range

Dim T1 As Range, T2 As Range, T3 As Range, T4 As Range, T5 As Range

Dim S As Worksheet

Set S = Worksheets("Sheet1")

Set A = S.Range("A1:A5")

Set B = S.Range("B1:B5")

Set C = S.Range("C1:C5")

Set D = S.Range("D1:D5")

Set E = S.Range("A11:A15")

Set F = S.Range("B11:B15")

Set G = S.Range("C11:C15")

Set H = S.Range("D11:D15")

'(1)、B列 C列をコピーして別の場所貼り付ける

B.Copy E

C.Copy F

'(2)、B列 をコピーして(1)の次の列に貼り付ける

B.Copy G

'(3)、D列 をコピーして(2)の次の列に貼り付ける

D.Copy H

'(4)、B列 C列を入れ替える

E.Copy C

F.Copy B

'(5)、空白の行を(1)の１行目のあと、２行目のあと、３行目のあと、４行目のあとに挿入

S.Rows(2).Insert Shift:=xlShiftDown

S.Rows(4).Insert Shift:=xlShiftDown

S.Rows(6).Insert Shift:=xlShiftDown

S.Rows(8).Insert Shift:=xlShiftDown

Set T1 = S.Range("A2:D2")

Set T2 = S.Range("A4:D4")

Set T3 = S.Range("A6:D6")

Set T4 = S.Range("A8:D8")

Set T5 = S.Range("A10:D10")

Set R1 = S.Range("A15:D15")

Set R2 = S.Range("A16:D16")

Set R3 = S.Range("A17:D17")

Set R4 = S.Range("A18:D18")

Set R5 = S.Range("A19:D19")

'(6)、(1)(2)(3)を１行ずつ(5)の空白行に貼り付ける

R1.Copy T1

R2.Copy T2

R3.Copy T3

R4.Copy T4

R5.Copy T5

End Sub

Answer 4

hogehogeXX さん、こんにちは。

マイクロソフト コミュニティをご利用いただきありがとうございます。

書かれている基本データから抽出表の例のように作成することはできるかという質問ですね。

確認なのですが、例えばたくさんのデータがあって、その中から一部抜粋したデータなどをそれぞれ組み合わせて抽出表のような例で結果を出されたいということなのでしょうか 、それとも基本データの内容から抽出表のようにそのまま結果を出されたいということでよいのでしょうか ?

サンプルとして書かれている基本データから抽出表のような結果を出せるか確認をしてみたのですが、よい方法を見つけることができませんでした。。。

まず、規則性が見つけることができなかったので、書かれている例からでは抽出表のように結果を出すことは難しいのかなと思います。。

データの抽出を行われるのであれば、ピボットテーブルを作成することでデータ抽出が可能となりますが、こちらの方法でも対象のデータの中から抽出したいデータだけを取り出すので、元になるデータよりも抽出結果が多くなるよう作成することは難しいかなと思います。

もしさしつかえが無ければどのような用途で作成されている表であるのか、表から抽出表のように結果を出されたい理由などを具体的に書いてみることでアドバイスも集まりやすくなるかもしれません。

もし、こちらの書いていることが大きく違っている場合は指摘をしてくださいね。

追加で質問がある場合は遠慮なく投稿してみてください。