エクセルVBAについて質問です。


「1」と「2」と「3」という名前のシート以外の
全てのシート内のN列に記入されている文字列を
「0」という名前のシートのA列に記入するというマクロを作ってください。

ただし、重複する文字列はひとつを残し全て削除するようにしてください。
これに関しては下記のページで似たような質問をしているので参考にしてください。
http://q.hatena.ne.jp/1194739510

回答の条件
  • 1人2回まで
  • 登録:2007/11/13 12:45:58
  • 終了:2007/11/13 18:56:10

回答(1件)

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692007/11/13 13:28:25

ポイント60pt

変数が分かりづらいかもしれませんが。

Sub Macro()
    j = 1
    For Each ws In Worksheets
        If ws.Name <> "0" And ws.Name <> "1" And ws.Name <> "2" And ws.Name <> "3" Then
            For i = 1 To ws.Range("N65536").End(xlUp).Row
                bl = False
                If ws.Range("N" & i).Value <> "" Then
                    If j = 1 Then
                        Worksheets("0").Range("A1").Value = ws.Range("N" & i).Value
                        j = j + 1
                    Else
                        For k = 1 To j - 1
                            If Worksheets("0").Cells(k, 1).Value = ws.Range("N" & i).Value Then
                                bl = True
                            End If
                        Next k
                        If bl = False Then
                            Worksheets("0").Cells(j, 1).Value = ws.Range("N" & i).Value
                            j = j + 1
                        End If
                    End If
                End If
            Next i
        End If
    Next
End Sub

シート名の0、1、2、3は全角にしています。

id:taroemon

ご回答ありがとうございます。

ほしいマクロについて勘違いをしていました。

こちらで再質問しています。

もしお時間があるようでしたらご回答ください。

http://q.hatena.ne.jp/1194947564

2007/11/13 18:55:53

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません