gpt4 book ai didi

vba - Excel:如何将包含某些文本的行复制到另一个工作表(VBA)

转载 作者:行者123 更新时间:2023-12-04 21:55:46 25 4
gpt4 key购买 nike

我正在寻找一个能够搜索所述工作表中的列的marco,如果找到某些文本 - 在我的情况下是“FAIL”这个词 - 复制整行数据/格式并将其粘贴到另一张工作表中 - 工作表4 在我的情况下 - 以及包含该特定文本的任何其他行。

pic1
pic2

我一直在使用此代码,但它只复制粘贴一行然后停止,而不是通过并复制任何带有“FAIL”的行

Sub Test()
For Each Cell In Sheets(1).Range("H:H")
If Cell.Value = "FAIL" Then
matchRow = Cell.Row
Rows(matchRow & ":" & matchRow).Select
Rows(matchRow & ":" & matchRow).Select
Selection.Copy

Sheets(4).Select
ActiveSheet.Rows(matchRow).Select
ActiveSheet.Paste
Sheets(4).Select
End If
Next
End Sub

VBA 的第一个帖子和全新的,如果太含糊,请道歉。

最佳答案

试试下面的代码(代码中的解释作为注释):

Option Explicit

Sub Test()

Dim Cell As Range

With Sheets(1)
' loop column H untill last cell with value (not entire column)
For Each Cell In .Range("H1:H" & .Cells(.Rows.Count, "H").End(xlUp).Row)
If Cell.Value = "FAIL" Then
' Copy>>Paste in 1-line (no need to use Select)
.Rows(Cell.Row).Copy Destination:=Sheets(4).Rows(Cell.Row)
End If
Next Cell
End With

End Sub

关于vba - Excel:如何将包含某些文本的行复制到另一个工作表(VBA),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45209392/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com