每次運行宏時，我都試圖用上一列公式自動填充下一列。所以它應該被抵消 1。我目前每個月都在重繪 我的資料，并試圖在每個新的月份用一個簡單的 excel 宏自動填充列。
例如，當我運行此宏時：
Sub check()
' Keyboard Shortcut: Ctrl e
'
Range("CH2:CH236").Select
Selection.AutoFill Destination:=Range("CH2:CI236"), Type:=xlFillDefault
End Sub
它使用公式獲取 11 月的資料，并為 12 月的下一列（約 234 行）自動填充它。
Column:CH Column: CI Column: CJ
|Nov-21| |Dec-21|
| 6023| ===> | 7021|
| 90| | 82|
| 37| | 67|
.... ....
所以我想做的是在新的月份（1 月）到來時運行宏，以便 12 月 21 日之后的下一列（CJ）自動填充 1 月 21 日資料等等，而無需手動更改范圍。
所以它應該是這樣的：
If Row "CI2" = "" THEN Autofill that column's rows
ELSE Autofill Next Column's rows if previous column is already autofilled ...
我應該添加什么代碼，以便它無需手動執行即可自動選擇下一列。任何指導將不勝感激。
uj5u.com熱心網友回復：
認為這樣的事情應該可行。
Sub check()
Dim c As Long
c = Cells(2, Columns.Count).End(xlToLeft).Column 'last used column in row 2
Range(Cells(2, c), Cells(236, c)).AutoFill Destination:=Range(Cells(2, c), Cells(236, c 1)), Type:=xlFillDefault
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/380366.html