Question

这似乎是一件容易的事，但我似乎无法解决。

我要做的就是根据上一行的最后一个活动列创建一个动态的最后一列。

我有一个类似的代码来查找最后一个活动行

 LastCell = Sheets("CALCULATIONS").Range("A20000").End(xlUp).Row
 Sheets("CALCULATIONS").Range("A2:A" & LastCell).Copy

现在我正在尝试制定水平版本。

我要做的就是根据“计算”中第15行中的值找到最后一个活动列然后将A16中已经存在的数组公式拖动到[？] 16（？是第15行的最后一列）

我觉得解决方案就在我眼前，但我一直在画空白！

任何帮助都会很棒！！

Answer 1

尝试

dim lc as long

with workSheets("CALCULATIONS")
    lc = .cells(15, .columns.count).end(xltoleft).column
    .range(.cells(16, "A"), .cells(16, lc)).formula = .cells(16, "A").formula
    'alternate method
    '.range(.cells(16, "A"), .cells(16, lc)).fillright
end with

范围的Excel动态列参考

1 个答案: