Bir Excel makrosunda otomatik doldurma

Excel'de aşağıdaki makro var

Sub IHIAddWeeks()
'
' IHIAddWeeks Macro
' ihi-table
'
' Keyboard Shortcut: Ctrl+Shift+I
'
    ActiveCell.FormulaR1C1 = "=YEAR(RC[1])&WEEKNUM((RC[1]))"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A5"), Type:=xlFillDefault

End Sub

Sonra gibi görünüyor:

Şimdi A5'e kadar Otomatik Doldur çünkü A5 en son ham olmayan ham maddedir. Ancak bu değişebilir. Nasıl diyebilirim: "Son boş B olmayan sütuna kadar otomatik doldur"?

Daha sonra, eğer A3> A2 + 1 ise A2'den sonra bir ham eklemek ve yeni A3 = A2 + 1 olsun ve ardından B sütunu boşalana kadar A3'ü A4 ile karşılaştırmak istiyorum.

Bir yardımcı olabilir mi?

sonuçtaki tabloda böyle görünmesi gerekir

Nasıl diyebilirim: "Son boş B olmayan sütuna kadar otomatik doldur"?

En azından Excel 2010 kullandığınızı varsayarsak (belki 2007 çalışır), makroyu çalıştırmadan önce tabloyu bir Excel tablosuna dönüştürmektir. Sonra makroyu çalıştırdığınızda, tablonun sonuna kadar otomatik olarak doldurulur. Ancak, bu yalnızca makroyu çalıştırmadan önce sütun boşsa işe yarar.

Korkarım ki ikinci soruyu anlamıyorum. Bir formül istediğini mi kastediyorsun? =R[-1]C+1 Yeni hücre önceki satırdan 1 hafta sonra olur mu? Öyleyse, neden bu kadar karmaşık şeyler yapmak istediğinizi anlayamıyorum.

Yoksa hücrenin önceki satır ile aynı olması durumunda boş kalmasını mı istiyorsun?

Bu yüzden, cevabı elde etmenin biraz garip yolu (Bunu şu anda kendim yürütemiyorum, üzgünüm)

Makro kaydediciyi açın. Doldurmanız gereken sütunun yanındaki sütunun üstünü seçin (kodunuzda bunun göreceli olmadığından emin olun). Ctr + aşağı, ok yukarı (göreceli referansların açık olduğundan emin olun) - hepsini seçmek için ctr + shift + yukarı, sonra alt + H + F + I + D - bu, denklemi sonuna kadar otomatik olarak doldurur.

Gerçek kod değil, ama nasıl alınacağını açıklar.