如何解决返回与搜索匹配的单元格的地址,然后将接下来的X行中的所有内容复制到另一张工作表中
我有一个工作表,在其中需要找到第一列中带有特定短语“ Beginning of data”的行。 然后,我必须将所有行复制到包含短语“ End data”的一行到单独的工作表中。 欢迎使用此VBA宏或使用Excel函数提供任何帮助。
解决方法
此代码将在Sheet1的A列中搜索“数据开始”和“数据末尾”,然后将这些行及其之间的行的A-I复制到从单元格A1开始的Sheet2中。
Sub CopyData()
Dim RowBeg As Long
Dim RowEnd As Long
ThisWorkbook.Worksheets("Sheet1").Activate
ThisWorkbook.Worksheets("Sheet1").Columns(1).Select
Selection.Find(What:="Beginning of data",After:=ActiveCell,LookIn:= _
xlFormulas,LookAt:=xlPart,SearchOrder:=xlByRows,SearchDirection:= _
xlNext,MatchCase:=False,SearchFormat:=False).Activate
RowBeg = ActiveCell.row
ThisWorkbook.Worksheets("Sheet1").Activate
ThisWorkbook.Worksheets("Sheet1").Columns(1).Select
Selection.Find(What:="End of Data",SearchFormat:=False).Activate
RowEnd = ActiveCell.row
Worksheets("Sheet1").Cells(RowBeg,1).Resize(RowEnd - RowBeg + 1,9).Copy Worksheets("Sheet2").Range("A1")
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。