2 
    ' Try to format the dates
    Range("N:N").Select
    Selection.NumberFormat = "dd/MM/yyyy"
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

このコードを使用して、ダウンロードしたデータを制御できない問題を修正してみます。テーブルには、テキストとして保存された日付の前にスペースがあります。例: 「2013 年 4 月 11 日」

Excelで手動の検索と置換を行うと問題は解決しますが、後でデータとグループをピボットしたいのですが、VBAで試してみると、2つのことが行われます...

  1. すべてのレコードが日付として認識されるわけではありません。セル形式が変更されても、一部は一般のままです。これは、ユーザーが F2+Enter を使用して各行を通過する必要があり、その後、ピボット テーブルをいじる必要があることを意味します。

  2. その日/月を逆にします。つまり、元のデータは 2013 年 10 月 1 日 (10 月 1 日) であり、1 月 10 日に変換されます。

検索/置換の修正、またはループしてセルの書式設定を修正する方法はありますか。

4

3 に答える 3