excel 我想将单元格N2中的值复制到同一列中的所有其他单元格-我不知道列的末尾在哪里，因为它会动态更改

vq8itlhq 于 2023-01-27 发布在其他

关注(0)|答案(1)|浏览(123)

我可以复制整行，但发现很难定位第N行的结束单元格，然后将从第N2行到最后一行的所有内容复制。第N行的结束（单元格）的长度会随着导入数据的更改而更改

Sub Copy_To_Lastrow()

    Application.ScreenUpdating = False
    Dim Lastrow As Long

    Sheets("Meeting1").Select
    Range("N2").Select

    Lastrow = Cells(Rows.Count, "AN").End(xlUp) + 1
    Range("n2").Copy Cells(Lastrow, "AN")
    'Lastrow = Cells(Rows.Count, "AN").End(xlUp).Row + 1
    'Range("n2").Copy Cells(Lastrow, "AE")
    'Lastrow.PasteSpecial xlPasteValues
     Range(Lastrow).PasteSpecial.Values

     Application.ScreenUpdating = True
End Sub

excel

来源：https://stackoverflow.com/questions/75215917/i-want-to-copy-a-value-in-cell-n2-to-all-other-cells-in-the-same-column-i-do-n

1条答案

按热度按时间

z9smfwbn1#

一种方法，避免任何复制/粘贴：

Sub Copy_To_Lastrow()
    Dim lr As Long
    With Worksheets("Meeting1")    '<<should specify a workbook here...
        lr = .Cells(.Rows.Count, "AN").End(xlUp).Row
        .Range("N2:N" & lr).Value = .Range("N2").Value
    End With
End Sub

赞(0）回复(0）举报 2023-01-27

我来回答

excel 我想将单元格N2中的值复制到同一列中的所有其他单元格-我不知道列的末尾在哪里，因为它会动态更改

1条答案

相关问题

热门标签

最新问答