麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 下拉公式如何修改為自動判斷最後列 [打印本頁]

作者: abc9gad2016 時間: 2022-6-14 14:55 標題: 下拉公式如何修改為自動判斷最後列

請問各位前輩，我使用錄製巨集
其中有一段是將L2的公式，要代到報表最後一列，但每次報表結尾不一定是同一列
請問要如何寫程式自動判斷

Range("L2").Select '選取L2的公式
Selection.AutoFill Destination:=Range("L2:L25921") '下拉公式到結尾
Range("L2:L25921").Select

這句嘗試改成End(xlDown)，但是失敗，還請前輩指點謝謝
Selection.AutoFill.End(xlDown).Select '下拉公式到結尾
Range("L2:L25921").Select '這句是不是要跟著修改?或取消，不用選取

作者: samwang 時間: 2022-6-14 16:52

請問各位前輩，我使用錄製巨集
其中有一段是將L2的公式，要代到報表最後一列，但每次報表結尾不一定是同一 ...
abc9gad2016 發表於 2022-6-14 14:55

由下往上抓取最後一列，謝謝
R= [L65536].End(xlUp).Row

作者: lpk187 時間: 2022-6-15 04:22

本帖最後由 lpk187 於 2022-6-15 04:29 編輯

既然有報表結尾，那就以結尾那一欄去找出最後一列，例如可以找到最後一列資料的是K欄那就如下：
   endRow = Cells(Rows.Count, "K").End(xlUp).Row'找到最後一列
   Range("L2").AutoFill Destination:=Range("L2:L" &  endRow) '把最後一列數據連結到句子中
Selection. 、  .Select 都是不必要的

作者: abc9gad2016 時間: 2022-6-15 17:15

既然有報表結尾，那就以結尾那一欄去找出最後一列，例如可以找到最後一列資料的是K欄那就如下：
endR ...
lpk187 發表於 2022-6-15 04:22

感謝大大我明白了!!

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)