AutoFillでの書式なしの連続データ指定

こちらのサイトを参考に、ある表に連続データのAutoFillを設定しました。
URL:https://akira55.com/autofill/

所が有る表の一番上のセル（行）のみ色が違い、その状態で以下のコードで連続コピーを行うと書式まで色が変わってしまいます。
※データによって行の色が自動で変わる様になっています。

Cells(11, 1).AutoFill Destination:=Range(Cells(11, 1), Cells(EROW, 1)), Type:=xlLinearTrend

連続でﾃﾞｰﾀ&書式なしの指定をする方法又は、書式のみ右側セルのの色と同じにする方法はないでしょうか。
データが400以上あり、Do While だと時間がかかるため、処理の時間があまりかからない方法を探しています。

改善案や良い案が在りましたらご教授いただければ嬉しく思います。
よろしくお願いします。

行動規範の内容に同意します

回答1件

ベストアンサー

下記でどうでしょう。

vba
1Cells(11, 1).AutoFill Destination:=Range(Cells(11, 1), Cells(EROW, 1)), Type:=xlLinearTrend
2Range(Cells(12, 1), Cells(EROW, 1)).Interior.ColorIndex = 0 '背景色をクリア
3'Range(Cells(12, 1), Cells(EROW, 1)).ClearFormats 'すべての書式をクリアする場合はこちら

追記

AutoFill後に右の列を書式をコピーする

vba
1    Cells(11, 1).AutoFill Destination:=Range(Cells(11, 1), Cells(EROW, 1)), Type:=xlLinearTrend
2    With Range(Cells(12, 1), Cells(EROW, 1))
3      .Offset(0, 1).Copy
4      .PasteSpecial Paste:=xlPasteFormats
5      Application.CutCopyMode = False
6    End With

別案1
配列に連続値を入力しておいて、セル範囲に代入

vba
1    Dim v(), i As Long, cnt As Long
2    ReDim v(12 To EROW, 1 To 1)
3    cnt = Cells(11, 1).Value
4    For i = 12 To EROW
5        cnt = cnt + 1
6        v(i, 1) = cnt
7    Next
8    Range(Cells(12, 1), Cells(EROW, 1)).Value = v

別案2
加算する式を設定して、値に変換。

vba
1    With Range(Cells(12, 1), Cells(EROW, 1))
2        .Formula = "=A11+1"
3        .Value = .Value
4    End With

投稿2021/01/11 06:36

編集2021/01/11 07:46

hatena19

総合スコア33790

ice930

2021/01/11 07:13

回答ありがとうございます！説明が不足していました。表のﾃﾞｰﾀですが、右に向かって詳細が、下に向かって追加データが増えて行く形式でして、データの種類によってその行の色が変わります。今回オートフィルを行うにあたり、A列の一番上の色がA列の他の行に引き継がれてしまうのを解決したいです。ちなみにA列には「No」が記載されており、数字が増えるだけなので「xlLinearTrend」を使っています。他の行も背景色が有り、「Interior.ColorIndex = 0」ではないので「連続でﾃﾞｰﾀ&書式なしの指定をする方法」を探しておりました。若しくはDo Whileを使わない方法で右(B列)の背景色を引き継げる方法が在ればよいのですが・・・。