如果该行包含某个值，则将一行从一个工作表复制到另一个工作表

问题描述

这不应该是复杂的代码，但我是 Excel VBA 的新手.我尝试了许多不同的方法，导致错误、无限循环和错误的选择.

This shouldn't be complicated code, but I am new to Excel VBA. I've tried many different methods resulting in bugs, infinite loops, and wrong selections.

我需要逐行通过Sheet1"一次选择一行，检查 J 列中的值是否正确(值 = 131125)，如果正确则复制 - 将该行粘贴到Sheet2"(到与 Sheet1 相同的行中).

I need to go row by row through "Sheet1" selecting one row at a time, check if the value in Column J is correct (value = 131125), if it is then copy - paste the row to "Sheet2" (into the same row as it was in Sheet1).

非常感谢您的帮助！:)

Help is much appreciated! :)

推荐答案

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

        Sheets("Sheet2").Select
        ActiveSheet.Rows(matchRow).Select
        ActiveSheet.Paste
        Sheets("Sheet1").Select
    End If
Next
End Sub

这篇关于如果该行包含某个值，则将一行从一个工作表复制到另一个工作表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！