ＥＸＣＥＬで入力されているデータを表示させたい

質問

ＥＸＣＥＬ２００３でシート１のＡ列１～１０行にＡ～Ｊ、シート２のＡ列１～１０行にＣ～Ｌと入力されています。シート３のＡ列１～１２行にＡ～Ｌを表示させるのにはどのような関数を利用したら、もしくはＶＢＡを組んだらよろしいのでしょうか。
過去に同様な質問があったかと思うのですが、探し出せませんでしたのでよろしくお願いいたします。

回答No.2

at121 · ベストアンサー

コントロールをおしながら複数選択したシートについて
各シートの　A1セルに対して　ctlr＋sift＋end　で選択できる範囲を
　　※A列のデータが不足しているとずれる・・
新しいシートに結合します。　

マクロ＞ VisualBasicEditor起動
＞挿入＞標準モジュール
↓以下貼り付け　　↓

Sub 選択シートのA1を基準に使用範囲を新しいシートへ結合コピー()
Dim 置き場所 As Range
If ActiveWindow.SelectedSheets.Count = 1 Then
MsgBox "シートの複数選択は　コントロールを押しながら選択"
Exit Sub
End If

For Each 選択シート In ActiveWindow.SelectedSheets
選択シートリスト = 選択シートリスト + "/" + 選択シート.Name
Next
Sheets(1).Select
Sheets.Add before:=Sheets(1)
Set 置き場所 = Sheets(1).Range("A1")
For Each 選択シート名 In Split(Mid(選択シートリスト, 2), "/")

If 0 < Sheets(選択シート名).Range("A1").CurrentRegion.Count Then
Sheets(選択シート名).Range("A1").CurrentRegion.Copy _
Destination:=置き場所
Set 置き場所 = Sheets(1).Range("A65536").End(xlUp).Offset(1)
End If
Next
Sheets(1).Name = Mid(Replace(選択シートリスト, "/", "と"), 2)

End Sub

お礼

お礼の連絡が遅れて申し訳ありませんでした。
　いつもながら皆さんのご親切な回答には驚かされます。
動作の確認を楽しみに行なわさせていただきます。

回答No.5

imogasi

例データ
A２:B８
第1行目は行挿入して、特にC1は空白にします
A列　　B列
a d
b c
c f
d h
e k
f
g
k
とします。
（１）これをたとえばA列に１列に寄せ集めることが許されるケースなら、
=IF(COUNTA(A:A)<ROW()-1,INDIRECT("B"&ROW()-COUNTA(A:A)),A2)
をどこかの列に複写するとA列のデータの後にB列のデータが続く。
その場合は初出だけに連続番号をふるのは、簡単で
=IF(COUNTIF($A$2:$A$100,A2)=1,MAX($G1:G1)+1,"")
を複写することにより出せる。
（２）１列化をやってはいけないケースなら
初出に連番を振るのは
たとえばC2に=IF(COUNTIF($A$2:$A$8,A2)+COUNTIF($B$2:$B$5,A2)=1,MAX($C$1:C1)+1,"")と入れて複写する。
D2に=IF(COUNTIF($A$2:$A$8,B2)+COUNTIF($B$2:$B$8,B2)=1,MAX($D$1:D1)+1,"")を入れて複写する。
D1には=MAX(C:C)を入れておく（上の例の場合４）
これで初出に連番が振れた。
（２）連番に基づき、別列にA列に寄せ集まったデータから寄せ集めるのは
私の回答で何度も書いている。今回略。
（３）
２列のままの場合は、２つに分かれて処理せざるを得ず、関数式が複雑になる。
そういうことで、関数では複雑になるので、VBAなどでやったほうがよいと思う。

回答No.4

imogasi

この質問で意味がわかるのでしょうか。
＞シート１のＡ列１～１０行にＡ～Ｊ、
1から１０行までの各セルにAからｊまでのどれか１文字が入っているのでしょうか。
複数の文字の連なりが１セルに入っているのですか。
＞シート２のＡ列１～１０行にＣ～Ｌと入力されています。
これも1から１０行までの各セルに、Cからｊまでのどれか１文字が入っているのでしょうか。Cからとなぜ前者と違うのでしょうか。
＞シート３のＡ列１～１２行にＡ～Ｌを表示させるのにはどのような
Sheet１のA-Jを元にSheet２のC-Jと対応をとって、第3のデータ（質問になし）を引っ張ってくるのでしょうか。
本当に統合で解決する問題ですか。
答えておられる方がいらっしゃるので、私の頭が悪いのかな。

補足

説明不足ですみません　m(_ _)m。
シート１のＡ１にＡ、Ａ２にＢ・・Ａ１０にＪ。
シート２のＡ１にＣ、Ａ２にＤ・・Ａ１０にＬ。
というように入力されています。
シート１とシート２を比較するとＣ～Ｊはダブって入力されています。
このダブリを解消してシート３のＡ１にＡ、Ａ２にＢ、Ａ３にＣ、Ａ４にＤ・・Ａ１０にＪ、Ａ１１にＫ、Ａ１２にＬと表示させたいと言うことです。
これで見てくれた方に理解していただけるとイイのですが・・・。
これでもイマイチでしたらまたご連絡をお願いいたします。
ちなみに（imogasi)さんの回答はいつも、それこそ参考にさせていただいています。「頭が悪い」と思っている人はなかなかいらっしゃらないと思いますヨ。

回答No.3

Wendy02

#1 のWendy02 です。

＞参考とさせていただきます。
うーむ。「参考」とするということは、つまり期待していたものと違うということですか？どういうものをお望みなのかは分かりませんし、また、私は、関数でも分かりませんが、もしも、マクロでしたら、#1 を記録マクロにしてもマニュアルでも変わりようがないのです。それ以外のマクロでしたら、こんなふうなものもできます。

Sub myConsolidation()
Dim i As Long, c As Range
Dim myData As String, myArray As Variant
For i = 1 To 2
　With Worksheets("Sheet" & i)
　　'最初のセルをA1とする。
　　For Each c In .Range("A1", .Range("A65536").End(xlUp))
　　　If InStr(myData, "," & c.Value) = 0 Then
　　　　myData = myData & "," & c.Value
　　　End If
　　Next c
　End With
Next i
　myArray = Split(Mid$(myData, 2), ",")
　Worksheets("Sheet3").Range("A1").Resize(UBound(myArray) + 1) = _
　　Application.Transpose(myArray)

お礼

度々のご回答ありがとうございます。
「参考とさせていただきます」はまだ回答が一つしかなかったので、まだ色々なやり方を回答してくれる方がいらっしゃるだろうと思って書きました。
　私の知識不足で回答は、関数やＶＢＡでの回答が来るだろうと思っていましたが、ＥＸＣＥＬの機能で処理を行うと言う回答は想像していなかったのも事実ですネ。
　こんなやり方もあるのかと感心しています。

回答No.1

Wendy02

こんにちは。

シート１か、シート２のどちらかのB列をひとつ使えませんでしょうか？
どれかひとつのデータのあるA列の隣のB列のセルに、[0] とでも入れておきます。数字なら何でもよいです。

シート３をオープンして、A1にカーソルを合わせたら、
[データ]－[統合]で、[統合の設定]
で
[統合元範囲]を、Sheet1!$A$1:$B$10 →追加
Sheet2!$A$1:$B$10 →追加
で、

統合の基準を
[左端列]にチェックを入れます。

そして、OKを押せば統合されます。

シート３のＡ列１～１２行にＡ～Ｌと表示されます。
不必要な０は削除してかまいません。

お礼

早速のご回答ありがとうございます　m(_ _)m。
「統合」の機能は使ったことがありませんでした。参考とさせていただきます。