inosisi回答ポイント 80ptウォッチ

質問です。

エクセルでＡ列またはＢ列のどちらかに下記のエラー文字が表示されています。
ファイルを検索してこの文字のある行毎削除したいのですが
マクロまたは関数で削除する方法を教えて下さい。
ほかにまだ別な種類のエラーがあった場合追加できると助かります。
拡張子はＣＳＶです。
よろしくお願いします。


#NAME?

#REF!

• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• SALINGER2011/05/11 21:04:29

  満足40pt

  たぶん複数のファイルだと思うので前回同様にフォルダを選択する形にしました。

  他のエラーの場合も作ってコメントアウトしてありますので、追加する場合はコメントを外してください。

  
  

  Sub Macro()
      '開始行を設定
      Const stRow As Integer = 1
      
      Dim FSO As Object
      Dim fldPath As String
      Dim fil As Object
      Dim wb As Workbook
      Dim lastRow As Long
      Dim i As Long
      Dim f As Boolean
          
      With Application.FileDialog(msoFileDialogFolderPicker)
          If .Show = True Then
              fldPath = .SelectedItems(1)
          Else
              Exit Sub
          End If
      End With
      
      Application.ScreenUpdating = False
      
      Set FSO = CreateObject("Scripting.FileSystemObject")
  
      For Each fil In FSO.GetFolder(fldPath).Files
          If LCase(FSO.GetExtensionName(fil)) = "csv" Then
              Set wb = Nothing
              On Error Resume Next
              Set wb = Workbooks.Open(fil.Path)
              On Error GoTo 0
              
              If Not wb Is Nothing Then
                  With wb.Worksheets(1)
                      lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
                      
                      For i = lastRow To stRow Step -1
                          f = False
                          If IsError(Cells(i, "A")) Or IsError(Cells(i, "B")) Then
                              '#NULL!
  '                            If .Cells(i, "A").Text = "#NULL!" Or .Cells(i, "B").Text = "#NULL!" Then
  '                                f = True
  '                            End If
                              '#DIV/0!
  '                            If .Cells(i, "A").Text = "#DIV/0!" Or .Cells(i, "B").Text = "#DIV/0!" Then
  '                                f = True
  '                            End If
                              '#VALUE!
  '                            If .Cells(i, "A").Text = "#VALUE!" Or .Cells(i, "B").Text = "#VALUE!" Then
  '                                f = True
  '                            End If
                              '#REF!
                              If .Cells(i, "A").Text = "#REF!" Or .Cells(i, "B").Text = "#REF!" Then
                                  f = True
                              End If
                              '#NAME?
                              If .Cells(i, "A").Text = "#NAME?" Or .Cells(i, "B").Text = "#NAME?" Then
                                  f = True
                              End If
                              '#NUM!
  '                            If .Cells(i, "A").Text = "#NUM!" Or .Cells(i, "B").Text = "#NUM!" Then
  '                                f = True
  '                            End If
                              '#N/A
  '                            If .Cells(i, "A").Text = "#N/A" Or .Cells(i, "B").Text = "#N/A" Then
  '                                f = True
  '                            End If
                          End If
                          If f Then
                              Rows(i).Delete
                          End If
                      Next i
                  End With
                  
                  Application.DisplayAlerts = False
                  wb.Save
                  wb.Close
                  Application.DisplayAlerts = True
              End If
          End If
      Next
      
      Set FSO = Nothing
      Application.ScreenUpdating = True
  End Sub
  

  スター

  • inosisi 2011/05/12 10:21:00

    ありがとうございます。

    ホルダーにエラー　NAME?　のあるファイルを入れて

    やってみたのですが削除されませんでした

    何かやり方があるのでしょうか。

その他の回答

• きゃづみぃ2011/05/11 21:10:23

  満足20pt

  拡張子はＣＳＶは、実はエクセルで開けますが エクセルのファイルではありません。

  エラーとなる箇所は 数式となっている箇所ですね。

  
  

  = なんとか となっている箇所を探したらいいでしょう。

  秀丸などで 開いて = を検索したらいいですね。

  スター

  • inosisi 2011/05/12 10:03:04

    ありがとうございます。

    秀丸でみても＝はついていませんでした。

    ファイル毎に列全部調べるのは時間がかかる感じですね。

SALINGER2011/05/12 11:56:45

満足20pt

これではどうでしょうか。

Sub Macro()
    '開始行を設定
    Const stRow As Integer = 1
    
    Dim FSO As Object
    Dim fldPath As String
    Dim fil As Object
    Dim wb As Workbook
    Dim lastRow As Long
    Dim i As Long
    Dim f As Boolean
        
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            fldPath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    Application.ScreenUpdating = False
    
    Set FSO = CreateObject("Scripting.FileSystemObject")

    For Each fil In FSO.GetFolder(fldPath).Files
        If LCase(FSO.GetExtensionName(fil)) = "csv" Then
            Set wb = Nothing
            On Error Resume Next
            Set wb = Workbooks.Open(fil.Path)
            On Error GoTo 0
            
            If Not wb Is Nothing Then
                With wb.Worksheets(1)
                    lastRow = .UsedRange.Row + .UsedRange.Rows.Count - 1
                    
                    For i = lastRow To stRow Step -1
                        f = False
                        '#NULL!
'                        If .Cells(i, "A").Text = "#NULL!" Or .Cells(i, "B").Text = "#NULL!" Then
'                            f = True
'                        End If
                        '#DIV/0!
'                        If .Cells(i, "A").Text = "#DIV/0!" Or .Cells(i, "B").Text = "#DIV/0!" Then
'                           f = True
'                        End If
                        '#VALUE!
'                        If .Cells(i, "A").Text = "#VALUE!" Or .Cells(i, "B").Text = "#VALUE!" Then
'                            f = True
'                        End If
                        '#REF!
                        If .Cells(i, "A").Text = "#REF!" Or .Cells(i, "B").Text = "#REF!" Then
                            f = True
                        End If
                        '#NAME?
                        If .Cells(i, "A").Text = "#NAME?" Or .Cells(i, "B").Text = "#NAME?" Then
                            f = True
                        End If
                        '#NUM!
'                        If .Cells(i, "A").Text = "#NUM!" Or .Cells(i, "B").Text = "#NUM!" Then
'                            f = True
'                        End If
                        '#N/A
'                        If .Cells(i, "A").Text = "#N/A" Or .Cells(i, "B").Text = "#N/A" Then
'                            f = True
'                        End If
                        If f Then
                            Rows(i).Delete
                        End If
                    Next i
                End With
                
                Application.DisplayAlerts = False
                wb.Save
                wb.Close
                Application.DisplayAlerts = True
            End If
        End If
    Next
    
    Set FSO = Nothing
    Application.ScreenUpdating = True
End Sub

スター
• その他の回答を読む

この質問へのコメント

• きゃづみぃ2011/05/12 10:03:10
  ちなみに ｃｓｖファイルを エクセルで開くと エクセルの流儀にあわせられてしまって いろいろ都合が悪い場合があります。
  
  たとえば
  0900000 とかいうように 頭に 0がついてる場合は ""で くるまないと
  900000 というよに 文字列ではなく 数値として 表示されてしまいます。
  それで 保存すると 900000のままとなってしまいます。
  
• inosisi2011/05/12 10:53:20
  ありがとうございます。
  
  どうしてもＣＳＶ使うことが必要なため0900000 などが
  ある場合はいったんｔｘｔにして文字列で読み込んでいます。
  
  いろいろアドバイスよろしくお願いします。
• きゃづみぃ2011/05/12 11:02:05
  以下のような CSVファイルを作成して エクセルで開いてみてください。
  
  a,b,=aaaa
  #REF!
  
  
  
  #REF!は 参照していたセルが消えてしまった場合などに出るエラーですが ｃｓｖでは その文字列を入れるしかないですね。
  
  ちなみに エラーの出る箇所のCSVの内容は 何になってますか？
  その一行が わかれば その原因も推測しやすいかと思います。
• SALINGER2011/05/12 11:13:03
  最終行の取得の仕方をA列の最後の方に空白がある可能性を考慮すると
  lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
  ↓
  lastRow = .UsedRange.Row + .UsedRange.Rows.Count - 1
  　
  あとは、エクセルのエラーをそのままCSVで保存すると、"#NAME?"という文字列になると思いますが、
  実際のCSVのデータが一時一句間違いないか確認してみてください。
• inosisi2011/05/12 11:32:19
  
  
  a,b,=aaaa
  #REF!
  a,b,=aaaa
  
  
  #NAME?
  =aaaaをＣ6にいれた場合
  #NAME?
  =aaaaをＡ7に入れた場合
  
  ちなみに エラーの出る箇所のCSVの内容は 何になってますか？
  その一行が わかれば その原因も推測しやすいかと思います。
  
  Ａ列にアドレスがある行ですのでドメインをくっつけたか＠をくっつけたか何かに作業して式を取らずに行削除してしまったか
  いろいろ考えられますが私のところへ来た時点ではエラーがある
  アドレスのＡ行と性別のＢ行だけのＣＳＶですので
  原因は分かりませんが整理したデータに直したいのですが。
  
  返事の意味が的を得てないかもしれませんがすみません。
• きゃづみぃ2011/05/12 11:42:41
  そのCSVのファイルを 秀丸等のエディタで開いてもらって
  エラーが出る箇所を 確認してもらえればいいと思いますよ。
  

質問の情報

登録日時

2011-05-11 20:01:53

終了日時

2011-05-12 18:52:22

回答条件

1人3回まで

この質問のカテゴリ

• コンピュータ
• インターネット

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者22時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者222時間前
• 内定してほしいポケモンはいますか？匿名質問者22時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ