Excel Vba：需要帮助来拖动公式

Question

I need help placing a formula in row 51 from column A to AE on sheet "COPY". The formula is "Trim(A1)" and needs to be dragged until "Trim(AE1)" while still being in row 51 (A51:AE51)

This is what I have so far, but its pulling up an error on "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

Answer 1

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

Answer 2

I believe the following will do what you expect it to, the code you used to get the Last Column wasn't right:

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