次の方法で共有

列数が500を超える「重複の削除」

Anonymous
2016-06-25T04:06:57+00:00

列数が500(SF列)までだと、「重複の削除」で想定どおりの結果となりますが、501になる(500列を超える)と、重複されない行があります。

これは、仕様(「重複の削除」の制限)でしょうか?

バージョンアップすると、500列を超えても「重複の削除」できるのでしょうか?

重複が含まれている列に列Eのみを指定しました。各セルには計算式は含まれていません。行は14行です。

全部で501列だと重複行が削除されません。

1列削除して500列にすると想定どおりの結果(重複行が削除される)となります。

尚、「重複の削除」を使用せず、重複行の削除はできそうです。

(作業列を作成。そこに重複有無結果をもとめる計算式を記入しフィルタリング。)

Microsoft 365 と Office | Excel | 家庭向け | Windows

ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント コメントはありません

7 件の回答

並べ替え方法: 最も役に立つ
  1. Anonymous
    2016-06-27T09:10:42+00:00

    やっと分かりました。

    500列までなら「選択範囲を拡張する」にチェックを入れ、選択解除してE列のみを選択したら

    重複の削除が出来ましたが、500列を超えると「重複する値はありません」になりました。

    エクセルのバグなのか仕様なのか分かりませんが改善されるといいですね。

     私の理解力不足でご迷惑をおかけいたしましてごめんなさい。

    この回答は役に立ちましたか?

    1 人がこの回答が役に立ったと思いました。
    0 件のコメント コメントはありません
  2. Anonymous
    2016-06-27T07:06:51+00:00

    「選択範囲を拡張する」にチェックをいれてください。

    キー(E列)重複の場合、行(レコード)ごと削除したいのです。

    Windows7+Excel2010でも発生します。

    Windows8.1+Excel2013でも発生します。

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません
  3. Anonymous
    2016-06-27T06:50:41+00:00

    Michiru-AAさんのエクセルは何でしょうか?

    私はWindows7+Excel2010とWindows8.1+Excel2013で確かめました。

    Sub データ作成()

         Dim i As Long

         Dim j As Long

         Dim k As Long

         For i = 1 To 600

             For j = 1 To 14

                 k = k + 1

                 Cells(j, i).Value = k

             Next

         Next

         Range("E5") = 9999

         Range("E6") = 9999

     End Sub

                                                                      ↓

                      ↓

    Michiru-AAと環境が違うせいでしょうか?

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません
  4. Anonymous
    2016-06-27T05:57:10+00:00

    追記します。

    データは、全てのセルが空白なしです。セルE5、E6が重複しています。6行目が削除されることを期待しています。

    が、削除されません。

    例えば、O列を削除して列数を500にすると、「重複の削除」で6行目が削除できます。

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません
  5. Anonymous
    2016-06-25T08:34:16+00:00

    Sub データ作成()

        Dim i As Long

        Dim j As Long

        Dim k As Long

        For i = 1 To 600

            For j = 1 To 14

                k = k + 1

                Cells(j, i).Value = k

            Next

        Next

        For i = 1 To 600

            Cells(2, i).Value = 222

            Cells(5, i).Value = 222

            Cells(7, i).Value = 222

            Cells(9, i).Value = "A"

            Cells(13, i).Value = "A"

        Next

    End Sub

    上記マクロで600列14行のデータを作成して「重複の削除」をしてみたら

    14行のうち重複する3行を削除出来ました。

    (データによってうまくいかないことがあるのかどうかは分かりません)

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません