質問です
c:\test\のホルダーの中に複数のＣＳＶファイルがあります
データはＡ列に1行目から文字列であります
そのファイルのデータをエクセルの重複削除のボタンを使って
連続してできるマクロをお願いします
ボタンがだめなら関数=COUNTIF($A$1:A1,A1)
を使って連続でやれるマクロ
この場合はｂ列に数値だけがのこるようにする
よろしくお願いします
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
きゃづみぃ
満足100pt
Sub main() Dim p As String '対象フォルダを指定してください。 'このフォルダに この実行用のブックは 入れないでください。 p = "C:\test\" '処理対象となる拡張子を指定して 呼び出します。 Call jikkou(p, "csv") End Sub Sub jikkou(p As String, s As String) Dim bk() As String Application.DisplayAlerts = False f = Dir(p & "*." & s, vbNormal) Do While f <> "" k = 0 ReDim bk(k) ch1 = FreeFile Open p & f For Input As #ch1 Do While Not EOF(ch1) 'ファイルの終端かどうかを確認します Line Input #ch1, textline 'データ行を読み込みます ReDim Preserve bk(k) bk(k) = textline k = k + 1 Loop Close #ch1 ch2 = FreeFile Open p & f For Output As #ch2 For i = 0 To k - 1 If bk(i) <> "" Then For b = i + 1 To k - 1 If bk(i) = bk(b) Then bk(b) = "" End If Next b Print #ch2, bk(i) 'データの書き込みをします End If Next i Close #ch2 f = Dir Loop Application.DisplayAlerts = True End Sub
ボタンとかは使わず重複行をすべて削除して重複しないようにしました。
行全体で 重複のチェックをしています。 -
きゃづみぃその他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2013-01-23 14:54:37
- 終了日時
- 2013-01-23 16:37:05
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者