2013-04-08 182 views
0

我試着去建立一個宏,將採取fomulas細胞B358到B362和自動填充這些行行2自動填充公式從A列宏最後一列

Im相當新的上一次使用的列VBA和完全自我搜索這樣的論壇,但不幸的是我沒有找到我的解決方案。

請幫我

編輯:

如果您需要看到一些代碼,我可以給你一個很簡單的例子

Sub Macro1() 

    Range("B358:B362").Select 
    Selection.AutoFill Destination:=Range("B358:AHQ362"), Type:=xlFillDefault 
    Range("B358:AHQ362").Select 
End Sub 

在這個例子中,我會需要自動填充目的地(B358:「插入最後一列用於第2行」362)

+0

改善代碼總是更好更快......這也是提供支持的首選方式。因此,請顯示您目前的代碼。你有沒有試圖用宏記錄器做任何事情? – 2013-04-08 08:59:40

+0

那麼我的問題是,我現在基本上什麼都沒有。錄製一個宏不會給我太多,主要是因爲我需要它是動態的。 – Daniel 2013-04-08 09:05:35

+0

完成部分工作,我們幫助您獲得代碼「動態」。因此,記錄一些「靜態」宏,顯示你的代碼,我們給你一些提示。 :) – 2013-04-08 09:09:43

回答

0

這是在您的情況下提出的動態解決方案:

Sub Macro1() 


Dim lastCol As Long 
lastCol = Cells(2, Columns.Count).End(xlToLeft).Column 

Range("B358:B362").AutoFill Destination:=Range(Range("B358"), Cells(362, lastCol)), Type:=xlFillDefault 

End Sub 
+0

謝謝。我周圍的其他答案如此接近,但因爲我不瞭解大部分單個組件,所以我不能很好地理解它。感謝您的幫助 – Daniel 2013-04-08 09:26:10