動的開始の自動入力列

Question

ワークシートの最後の列を右にx回自動入力するコードを記述しようとしています。私はどのようにされて苦しんでいますどのようなその特定の列

Selection.AutoFill Destination:=Columns("BE:BQ"), Type:=xlFillDefault 

を指定した場合

With ActiveSheet 
LC = .Cells(3, .Columns.Count).End(xlToLeft).Column 
End With 
Columns(LC).Select 

と、コード全体で自動入力します：

私は最後の列をピックアップするコードを持っています元の最終列（LC）にリンクされている必要なコードで、列「BE：BQ」を置き換えます。 理想的には、新しい列を10個追加するために自動入力したいと思います。アドバイスはありますか？

理想的には、ワークブック内のすべてのワークシートを循環させるコードが理想的ですが、これはおそらく私のためには少し先進的です！

ありがとうございます。

UPDATE

あなたの提案のコメントをいただき、ありがとうございます。私は以下のコードを修正しました。これは最初は完全に機能するように見えました。しかし、私は以来2つの問題を抱えてきました。

第1号 - 行3にある日付フィールドを塗りつぶしたときに、一部のシートに塗りつぶされません。最後の行の日付とまったく同じ日付にコピーされます（つまり、06年1月6日ですが、6月17日に表示されます）。私はこれを一度に1ヶ月に渡って埋めることを望みます。

問題2 - 行2には、前月の最終日である日付があります。これは現在手動で入力されていますが、私がマクロを開発したので、これをマイナス1日以下のセルの日付に等しい式に変更したいと思います。私は次の式を使ってこれをしようとしましたが、それは完全に間違っていました！

sht.Cells(2, LC).Formula = "=" & Cells(3, LC) & "-1" 

この2つの問題を解決する方法についてのアドバイスは、最も高く評価されます。

Answer 1

Dim LC As Integer 
Dim LR As Long 

ActiveSheet.Unprotect 

With ActiveSheet 
    LC = .Cells(3, .Columns.Count).End(xlToLeft).Column 
    LR = .Cells(Rows.Count, LC).End(xlUp).Row 
End With 

Range(Cells(1, LC), Cells(LR, LC)).Select 

Selection.AutoFill Destination:=Range(Cells(1, LC), Cells(LR, LC + 10)),Type:=xlFillDefault 

Answer 2

これを試してください。私はA2ビットについては分かりませんが、コードが行3で自動入力を開始することを示唆していますが、もしそれが含まれていなければ、コード内で3を2に置き換えることもできます。

Sub x() 

Dim LC As Long, LR As Long, ws As Worksheet 

For Each ws In Worksheets 
    With ws 
     LC = .Cells(3, .Columns.Count).End(xlToLeft).Column 
     LR = .Cells(.Rows.Count, 1).End(xlUp).Row 

     .Range(.Cells(3, LC), .Cells(LR, LC)).AutoFill Destination:=.Range(.Cells(3, LC), .Cells(LR, LC + 10)), Type:=xlFillDefault 
     .Cells(3, LC).AutoFill Destination:=.Cells(3, LC).Resize(, 10), Type:=xlFillMonths 
     .Range("A2").Formula = "=A3-1" 
    End With 
Next ws 

End Sub