我有一個從報告工具運行的 Excel 作業簿。
在作業表“資料”的單元格 I2、J2、K2、L2 和 M2 中，我有一個公式。
我正在尋找一個 VBA 腳本，它將這些單元格中的公式拖到最后一行可能所在的位置。Col A 可用于確定最后一行編號。
我一直在尋找一個有效的腳本，但我很難找到一個。請有人幫我解決這個問題。下面是位于這 5 個單元格中的靜態公式的螢屏截圖。
Range("I2:I" & LastRow).Formula = "=IF(L2=1,IF(F2-E2>0,E2,IF(F2-E2<=0,F2,0)),IF(F2-E2>0,E2,IF(F2-E2<=0,F2-I1,0)))"
uj5u.com熱心網友回復：
假設您的公式有效，請嘗試：
Lastrow = Range("H" & Rows.Count).End(xlUp).Row
Range("I2") = "=IF(L2=1,IF(F2-E2>0,E2,IF(F2-E2<=0,F2,0)),IF(F2-E2>0,E2,IF(F2-E2<=0,F2-I1,0)))"
Range("I2:I" & LastRow).FillDown
uj5u.com熱心網友回復：
將公式輸入 I2 ：
Range("I2").Formula = "=IF(L2=1,IF(F2-E2>0,E2,IF(F2-E2<=0,F2,0)),IF(F2-E2>0,E2,IF(F2-E2<=0,F2-I1,0)))"
然后使用單獨的行自動填充到最后一行
Range("I2").AutoFill Range("I2:I" & LastRow)
所以像這樣：
Range("I2").Formula = "=IF(L2=1,IF(F2-E2>0,E2,IF(F2-E2<=0,F2,0)),IF(F2-E2>0,E2,IF(F2-E2<=0,F2-I1,0)))"
Range("I2").AutoFill Range("I2:I" & LastRow)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/357725.html
上一篇：ExcelVBA將指定的一組作業表復制到新作業簿/從副本中排除作業表
下一篇：在Word中回傳表格之前的行