时间戳

首页 > 解决方案 > 搜索标题，复制粘贴值直到最后一行

vba - 搜索标题，复制粘贴值直到最后一行

问题描述

我创建了一个宏来搜索标题并复制标题并将其粘贴到该特定列的最后一行。但是当我这样做时，我必须指定我不想要的列。但是我需要将它与标题搜索一起粘贴到同一列中，直到最后一行。例如：总计是 BV 列中的标题名称。请协助。

Range("A1").Select
Dim rngUsernameHeader As Range
Dim rngHeaders As Range
Set rngHeaders = Range("1:1")
Set rngUsernameHeader = rngHeaders.Find(what:="Total", After:=Cells(1, 1))
rngUsernameHeader.Copy
lastrow = Range("A65536").End(xlUp).Row
**ActiveSheet.Paste Destination:=Range("BV1:BV" & lastrow)**
Selection.End(xlUp).Select
Application.CutCopyMode = False

标签： vbaexcel

解决方案

只需建立您的粘贴范围rngUsernameHeader

ActiveSheet.Paste Destination:=Range( _
  Cells(1, rngUsernameHeader.Column), _
  Cells(lastrow, rngUsernameHeader.Column))

推荐阅读