循環遍歷excel的每一列並將公式向下拖動一個單元格

-1

我是VBA的新手，並想知道如何使用它來完成某些操作。如下表所示，通常情況下，我的數據隨着時間的推移會隨着時間的推移將公式向下拖動一列。有沒有一種快速有效的方法讓我循環遍歷每一列，從而自動拖動操作？循環遍歷excel的每一列並將公式向下拖動一個單元格

來源

2017-04-07 user7729135

任何代碼到目前爲止的小區2？你需要通過列循環，然後自動填充到endrow – Lowpar

你使用什麼公式？你有什麼嘗試？ – BruceWayne

目前我剛剛在這張表上繪製了一個命名範圍，而且我不確定使用逐列循環的語法等。對不起，這張照片有點讓人誤解，因爲前面還有幾列。我在工作表中有幾個這些命名範圍，我不確定循環遍歷所有4個命名範圍是否有效。 – user7729135

代碼假定公式是在列

Option Explicit 

Sub autofill() 
Dim rng As Range 
Dim ws As Worksheet 
Dim y 

Set ws = Sheets("Sheet1") 

'range 
Set rng = ws.Range("A1:" & ws.Range("A1").End(xlToRight).Address) 

'looping 
For Each y In rng 

'autofilling, note the split function retreiving the letter for the range 
    ws.Range(Split(Cells(, y).Address, "$")(1) & "2").autofill Destination:=ws.Range(Split(Cells(, y).Address, "$")(1) & "2:" & Split(Cells(, y).Address, "$")(1) & ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row) 
Next y 

End Sub

來源

2017-04-07 16:06:27 Lowpar

循環遍歷excel的每一列並將公式向下拖動一個單元格

回答

相關問題