redchiriさんおはようございます。merlionXXです。
まだ朦朧としております。
さて、補足を拝見しました。

> いえもうこの際筆頭者は家族の中で誰でも構いません。

それなら問題ありません。

> 何とか手作業を省きたい箇所は、同一住所であればまとめることができるか、同一住所で家族として判定してＣ・Ｄ・Ｅ列にその住所に人の名前のみを転記できるか、同一住所で筆頭者以外の行を削除できるか、です。

可能です。ただし、住所が「完全一致」していることが条件です。
つまり、東京都大田区田園調布八丁目八番八号と東京都大田区田園調布８－８－８と東京都大田区田園調布８の８の８は別住所とみなされます。
東京都大田区田園調布八丁目八番八号と大田区田園調布八丁目八番八号も別住所とみなされます。大丈夫ですか？

> =RIGHT(B2,3)でとっているので、4文字以上の名前の方は消えてしまっていますし、半角スペースや半角スペースより前の文字は不要ですし、何より、連名列を1行ずつ削除していかなければなりません。
> 自動的に半角より後の文字だけ抜粋できたり、同一住所で判別して連名列に転記してくれれば一番ベストですが、できるのでしょうか？

関数を使用する前のオリジナルのデータに対しておこなうマクロですから4文字以上の名前の考慮は不要でいんですよね？
何文字であろうがあくまで半角スペース以降が名前と見ればいいんですね？

> 最大の人数分列を用意さえすれば、転記可能なのでしょうか？
> 先ほど「筆頭者以外をC、D、E列に（最大4人までの場合ですが）転記」と書かれてましたので、連名は4列までしか不可能なのかと思いましたが、できるのであれば、方法を教えて下さい！

はい、一家族の人数ですから何百人もいるはずはないでしょう？
予想最大人数、たとえば12人とか（笑）でやるとすれば、B列～M列の12列を使えば済みます。
この場合、住所は全家族ともN列になります。

ただ、オリジナルのデータの配置が、ひとり1行を使用しているという以外はっきりしませんね。
オリジナルデータでやりたいと言っているのですから、ちゃんと書いてくれればいいのに。

わからないので以下の前提で行きます。

Sheet1のA列にカタカナ、B列に漢字で苗字と名（半角スペースで区切られている）、C列に郵便番号、D列に住所（住所は、同一家族はすべて完全一致している）
1行目がタイトル行（作業対象外）
2行目からデータ（最終行は問わない）

このデータを
・家族単位に住所でソート
・筆頭者が誰になるかは不定（オリジナルデータの名前の順による。）
・筆頭者以外をC～M列に（最大12人まで対応）転記
・筆頭者以外の行を削除というか、削除したかたちで別な追加シートに転記

というマクロを書いてみました。
酔眼にはちとキツかった～。（~▽~；）

Sub test02()
　　Dim myDic As Object
　　Dim myV, myW
　　Dim i As Long, n As Long, j As Long
　　Dim ws As Worksheet

　　With Sheets("Sheet1")
　　　　myV = .Range("A1", .Cells(Rows.Count, "D").End(xlUp)).Value
　　End With
　
　　Set myDic = CreateObject("Scripting.Dictionary")
　　Set ws = Sheets.Add
　　For i = 2 To UBound(myV)
　　　　If Not myDic.Exists(myV(i, 4)) Then
　　　　　　j = j + 1
　　　　　　myDic.Add myV(i, 4), j
　　　　　　For n = 1 To 2
　　　　　　　　ws.Cells(j, n) = Trim(myV(i, n))
　　　　　　Next n
　　　　　　For n = 3 To 4
　　　　　　　　ws.Cells(j, n + 10) = Trim(myV(i, n))
　　　　　　Next n
　　　　　　ws.Cells(j, 14) = Trim(myV(i, 4))
　　　　Else
　　　　　　ws.Cells(myDic(myV(i, 4)), 13).End(xlToLeft).Offset(, 1) = _
　　　　　　Mid(Trim(myV(i, 2)), InStr(StrConv(Trim(myV(i, 2)), vbNarrow), " ") + 1)
　　　　End If
　　Next i
End Sub

投稿日時 - 2010-11-25 10:34:27

こんばんは！
横からお邪魔します。
かなり無理やりって感じになります。

連名列が5列までとして、郵便番号がH列・住所がI列にあるものとしています。
まず、連名列（C～G列の半角スペースより前を削除し、次に苗字と連名をつなげたものがB列にあれば
連名をClearして、最後に住所の重複があれば重複行を削除するようにしてみました。

Sub test()
Columns(1).Insert
Dim i, j As Long
Dim str As String
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
For j = 4 To 8
Cells(i, 1) = Left(Cells(i, 3), WorksheetFunction.Find(" ", Cells(i, 3)) - 1)
If Cells(i, j) Like "*" & " " & "*" Then
str = Mid(Cells(i, j), WorksheetFunction.Find(" ", Cells(i, j)) + 1, _
Len(Cells(i, j)) - WorksheetFunction.Find(" ", Cells(i, j)))
Cells(i, j) = Replace(Cells(i, j), Cells(i, j), str)
End If
Next j
Next i
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 4 To 8
If WorksheetFunction.CountIf(Range("C:C"), Cells(i, 1) & " " & Cells(i, j)) = 0 Then
Cells(i, j).Clear
End If
Next j
Next i
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("J:J"), Cells(i, 10)) > 1 Then
Rows(i).Delete (xlUp)
End If
Next i
Columns(1).Delete (xlToLeft)
End Sub

こんな感じではどうでしょうか？
外していたらごめんなさいね。m(__)m

※追伸
余計なお世話かもしれませんが・・・
当方使用の筆ぐるめVer13（←かなり古い！人間も古い！）では
住所録をCSV形式で保存した場合、連名の列（連名1～5）は
AM・AP・AR・AT・AV列になっているみたいですね。

投稿日時 - 2010-11-24 22:37:05

ANo.3です。ご希望に添うように考えてみました。
まず、C～E列のデータは不用なのでDeleteキーでクリアします。また、家族8人まで対応するようにF列の前に4列挿入します。
次に、K列の住所をキーにして全体を並べ替えます。家族別に分けられるので、L列に家族の筆頭者のみ「1」と入力します。再度、最優先キーをK列の住所、2番目の優先キーをL列に設定して、全体を並べ替えます。これで筆頭者が家族の先頭になります。
後は次のマクロを実行すればよいです。

Sub EditAddList()
Dim rNum As Long
Dim cNum As Integer
Dim FullName As String

Application.ScreenUpdating = False
rNum = 2
Do Until Cells(rNum, 1).Value = ""
If Cells(rNum, 11).Value = Cells(rNum - 1, 11).Value Then
For cNum = 3 To 9
If Cells(rNum - 1, cNum).Value = "" Then
FullName = Cells(rNum, 2).Value
Cells(rNum - 1, cNum).Value = Right(FullName, Len(FullName) - InStr(FullName, " "))
Exit For
End If
Next cNum
Rows(rNum).Delete
Else
rNum = rNum + 1
End If
Loop
Columns("L").Delete
Application.ScreenUpdating = True
End Sub

投稿日時 - 2010-11-24 20:39:44

>おっしゃっていただいてます通り、Ｇ列には全て住所が記入されており、姓と名の間には必ず半角スペースが入っております。

この条件なら、私の提示した数式ですべて実行できます。

＞教えていただいた通り実行したのですが、Ｃ列の連名が記入されている一番上のセルを選択して上記の数式をコピー＆ペーストで入力したのですが、数式がそのままセルに書き込まれてしまい、その先の作業ができませんでした。

数式が表示されるということは、セルの書式が「文字列」になっていると思われます。

C～E列を選択して、右クリックから「セルの書式設定」で「標準」にして、コピー貼り付けしてみてください。

ただし、上記の数式で表示するセルが多くなると（100行以上になるような場合は）、再計算に時間がかかるので（エクセルがハングアップすることもあります）、オートフィルする範囲を限定して、最後の行以外は数式範囲を「値」にしてオートフィル操作を何度かに分けて実行したほうが確実です。

投稿日時 - 2010-11-24 18:44:41

> ・家族単位にソート
> ・筆頭者を家族単位の一番先頭行へ
> ・同一住所で家族と判定
> ・筆頭者以外をC、D、E列に転記
> ・筆頭者以外の行を削除

> とするには、どのようにマクロを記述すればいいのでしょうか？

現在のデータがそうなっている（筆頭者が家族単位の一番先頭行にある）とおもっていましたが、そうではないようですね。
同一住所で家族と判定できる、つまり住所は完全一致しているのなら住所でソートをかければ家族単位にはできますね。
でもその中で誰が筆頭者になるのか判別できるキーがありません。
これでは誰もがお手上げです。

> また、上記のようにする場合、筆頭者以外を4人まで連名列を作って転記されたとして、そこに入らなかった人（連名が5以上の場合）の連名にも入らず、行も削除されてしまうのでしょうか？

筆頭者がクリアできた場合、これをどうしたいか決めるのはあなたです。
（最初から予想される最大の人数分、列を用意するとか、あるいは住所の次に備考欄を作って、そっちにもっていくとか）

さて、これから夜の出勤です。
では。

投稿日時 - 2010-11-24 18:41:25

> C列にある名前をD列で消して、そのあとにC列・D列にある名前をE列で消す、ということはできないでしょうか？

複雑怪奇でよくわかりません。
それをやったところで、

> このC列とかぶる名前のみを消す、ということができるなら、削除処理はC列だけで済むので、時間が3分の1以下になるのですが…

また手作業になるのですよね。
なんだか徒労のような気がしてきました。

それよりも、もともとのデータ（1名1行づつなんですよね？）を最初から
・家族単位にソート
・筆頭者を家族単位の一番先頭行へ
（多分、データはもともとそうなっているんでしょうが）

・同一住所で家族と判定
・筆頭者以外をC、D、E列に（最大4人までの場合ですが）転記
・筆頭者以外の行を削除

というマクロを書くほうが、よほど早いのではないかと思います。

ANo1さんが書かれた、「関数で処理をしたデータで例示するのではなく」も、多分そういうことを言っているのだと思います。

投稿日時 - 2010-11-24 16:35:01

現在のリストのレイアウトがいま一つわからないのですが、G列には住所がすべて（重複した住所を含めて）入力されているリストになっていて、姓と名前の間に必ず半角スペースが入っているという条件なら、以下のような操作でご希望の表を作成することができます。

G列のデータ範囲を選択し（またはリスト範囲にG列だけを指定）、データタブの並べ替えとフィルタの「詳細設定」をクリックし、「重複するレコードは無視する」にチェックを入れOKします。

上記の操作で住所に重複のないデータ（代表者）の一覧にすることができますの、このフィルタされたリストのC列のセル(項目名が1行目ならC2セル)に以下のような数式を入力し、右方向および下方向にオートフィルします。

=MID(INDEX($B:$B,SMALL(INDEX(($G$2:$G$1000<>$G$2)*1000+ROW($G$2:$G$1000),),COLUMN(B1)))&"",FIND(" ",$B2)+1,10)
このデータ範囲をコピーして新規シートに、右クリックから「形式を選択して貼り付け」で「値」貼り付けすれば基本は完成です。

最後に、家族データのない部分は#VALUE!エラーが表示されますので、検索置換、またはオートフィルタでこの値を指定して、空白セルにしてください。

投稿日時 - 2010-11-24 16:22:47

住所録があるブックに標準モジュールを挿入して、次のコードをコピーしてください。その後、住所録があるワークシートをアクティブにしてこのマクロを実行すれば、ご希望通りの結果になると思います。

Sub Edit()
Dim rNum As Long
Dim cNum As Integer
Dim FullName As String

Columns("C:E").ClearContents
rNum = 2
Do Until Cells(rNum, 1).Value = ""
If Cells(rNum, 7).Value = Cells(rNum - 1, 7).Value Then
For cNum = 3 To 5
If Cells(rNum - 1, cNum).Value = "" Then
FullName = Cells(rNum, 2).Value
Cells(rNum - 1, cNum).Value = Right(FullName, Len(FullName) - InStr(FullName, " "))
Exit For
End If
Next cNum
Rows(rNum).Delete
Else
rNum = rNum + 1
End If
Loop
End Sub

投稿日時 - 2010-11-24 16:03:01

> ≪１≫連名にした家族の行は不要なので行自体を削除したい。

すでに家族単位でデータがソートされており、筆頭者はその一番上の行である。
家族かどうかの判定は、G列の住所が同一という条件で判断する。
これで良いのであれば可能です。

> ≪２≫氏名の後ろから3文字をコピーしているので「 良子」のように半角スペースが入っているものや、「本 竹」のように1文字の名前のため苗字の一部まで入っているものは、その部分を削除して氏名のみにしたい。

C、D、E列のみ、スペースや、それより前の文字を取り除くということなら面倒だけど出来るでしょう。

> ≪３≫1行目E列のように、別の家族の名前まで入ってしまっていたり、連名のいらない人の名前を削除したい。
>（家族によって、連名が3ついるところもあれば、2つでよかったり、全く連名不要の人もいるので…）

どれが別の家族なのか、どれが不要なのか、これはあなた以外には判別が出来ませんね。

よって、１と２の条件でよければ、マクロで出来ますが、3の条件はどうしようもないので手作業でやってくださいね。

まあ、１と２だけでもマクロでやって残りを手作業で、というところでしょうか。

とりあえず、上記、１と２に対応したコードを書いてみました。
データはSheet1にあるものとして書いていますが、シート名が違っていれば直してください。
いきなり書き換えたりはせず、新しいワークシートを追加して、そこに転記するようにしました。
マクロは自分で書けなくとも使い方はわかるんですよね？
以下は、標準モジュールにコピペしてください。

念のため書いておきますと、

1.新しいBOOKを開き、AltキーとF11キー同時に押し（以下Alt+F11キーと記述）て Visual Basic Editor を呼び出します。
2.Visual Basic Editor のメニューから「挿入」、「標準モジュール」で出てきたコードウィンド（右側の白い広い部分）に以下のコード（Sub～End Sub）をコピペします。

'********これより下**********

Sub test01()
　　Dim myDic As Object
　　Dim myV, myW
　　Dim i As Long, n As Long, j As Long
　　Dim ws As Worksheet

　　With Sheets("Sheet1")
　　　　myV = .Range("A1", .Cells(Rows.Count, "G").End(xlUp)).Value
　　End With
　　
　　ReDim myW(1 To UBound(myV), 1 To 7)
　　Set myDic = CreateObject("Scripting.Dictionary")

　　For i = 1 To UBound(myV)
　　　　If Not myDic.Exists(myV(i, 7)) Then
　　　　　　myDic.Add myV(i, 7), ""
　　　　　　j = j + 1
　　　　　　For n = 1 To 7
　　　　　　　　If n > 2 And n < 6 Then
　　　　　　　　　　myW(j, n) = Mid(Trim(myV(i, n)), InStr(StrConv(Trim(myV(i, n)), vbNarrow), " ") + 1)
　　　　　　　　Else
　　　　　　　　　　myW(j, n) = Trim(myV(i, n))
　　　　　　　　End If
　　　　　　Next n
　　　　End If
　　Next i
　　
　　Set ws = Sheets.Add
　　ws.Range("A1").Resize(UBound(myW), 7).Value = myW
　　
End Sub

'********これより上**********

3.Alt+F11キーでワークシートへもどります。
4.Alt+F8キーで出てきたマクロ名（test01）を選択して実行します。

投稿日時 - 2010-11-24 13:53:26

＞Excelのデータは一人一人1行ずつで作られている為、このまま筆ぐるめで住所録をつくると同じ住所の家族の年賀状が複数枚できてしまう（父に1枚・娘に１枚・母に１枚、という風に）ので、同じ住所の宛先には連名にして1枚で出したいので、連名列を作り代表者の行に一家族分の連名をまとめる作業で手こずっています。

関数で処理をしたデータで例示するのではなく、上記の元のエクセルファイルのデータの内容とレイアウトを提示されて、それをどのようなレイアウトにしたいのかを説明されたほうが、皆さんから的確な回答が寄せられると思います。

投稿日時 - 2010-11-24 12:52:27