Excel Vba：需要帮助拖动公式答案

【问题标题】：Excel Vba: Need help to drag formulaExcel Vba：需要帮助拖动公式
【发布时间】：2018-12-26 13:16:08
【问题描述】：

我需要帮助将公式放置在工作表“COPY”上从 A 列到 AE 的第 51 行。公式为“Trim(A1)”，需要拖动到“Trim(AE1)”，同时仍位于第 51 行 (A51:AE51)

这是我到目前为止所拥有的，但它在“lascolumn = range...”上引发了一个错误

Sub INSERT_TRIM_COPY()
Sheets("COPY").Select
Dim Lastcolumn As Long
Lastcolumn = Range("A:AE" & Columns.Count).End(xlToRight).Column
Range("A51:AE51" & Lastcolumn).FORMULA = "=TRIM(A1)"
End Sub

【问题讨论】：

标签： vba excel function excel-formula

【解决方案1】：

您需要使用：Range(Cells(51,1), Cells(51,Lastcolumn).Formula = "=Trim(A1) 因为您的最后一列是变量，所以您需要在范围内使用单元格函数。第一个数字是行号，第二个是列号。

【讨论】：

我认为这些信息很有用，但是如果没有解决 Lastcolumn = ... 行中的明显问题，您的答案是不完整的。

【解决方案2】：

我相信以下内容会如您所愿，您用于获取最后一列的代码不正确：

Sub foo()
    Dim ws As Worksheet: Set ws = Sheets("COPY")
    LastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    'get the last Column on Row 1 with data
    ws.Range(ws.Cells(51, 1), ws.Cells(51, LastCol)).Formula = "=Trim(A1)"
    'add formula from column A to the last Column
End Sub

【讨论】：