人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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


●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:VBA ひとつ エクセル マクロ 名前
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント

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

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は全角にしています。

◎質問者からの返答

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

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

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

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ