Excel VBA：查找参数，将find的行复制到另一个工作表（从特定单元格开始粘贴）

有2个工作表（ 更新，更改 ）每个在每列中的variables顺序参数

已更新的工作表具有以下列：

名称/数值/单位

更改工作表包含以下列：

状态/名称/值/单位

1. 所以首先我在CHANGES行search状态 ：CHANGE
2. 然后我需要获得该行的名称
3. 在UPDATED中find它并复制整个行
4. 并将其复制到find名称的列状态后的位置

每个名字都是独一无二的，但正如我之前提到的，有一个可变的位置，我的代码至今：

Sub CopyRealChange() Dim sh1 As Worksheet, sh2 As Worksheet Dim lr As Long, r As Long, x As Long Dim chng As Range Set sh1 = ThisWorkbook.Worksheets("UPDATED") Set sh2 = ThisWorkbook.Worksheets("CHANGES") lr = sh2.Cells(Rows.Count, "A").End(xlUp).Row x = 2 For r = 2 To lr If Range("A" & r).Value = "CHANGE" Then 'Evaluate the condition. 'Sh2.Range("B" & x).Value = Sh1.Range("B" & r).Value 'Copy same Column location 'FIND With Worksheets(2).Range("a1:a1000") Set chng = .Find(sh2.Range("B" & x).Value, LookIn:=xlValues) If chng Is Nothing Then sh1.Range(c).EntireRow.Copy Destination:=sh2.Range("B" & x) End If End With 'FIND End If x = x + 1 Next r 

结束小组

所以在此先感谢帮助解决我的问题

---

对代码的担心在此行显示错误（在FIND中）

 sh1.Range(c).EntireRow.Copy Destination:=sh2.Range("B" & x) 

Answer 1

你的代码有几个问题。

您没有声明您正在search的范围位于哪个工作表。

 If Range("A" & r).Value = "CHANGE" Then 

您在开始时声明了工作表，然后更改在代码中引用它们的方式。

 Set sh2 = ThisWorkbook.Worksheets("CHANGES") With Worksheets(2).Range("a1:a1000") 

这里是我为你所做的：使用简单的循环检查来查看值是否匹配和移动数据。

 Sub CopyRealChange() Dim sh1 As Worksheet, sh2 As Worksheet Dim tempName As String Dim lastRow1 As Long Dim lastRow2 As Long Set sh1 = ActiveWorkbook.Worksheets("UPDATED") Set sh2 = ActiveWorkbook.Worksheets("CHANGES") lastRow1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row 'Get last row for both sheets lastRow2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row 'because you are searching both For s2Row = 2 To lastRow2 'Loop through "CHANGES" If sh2.Cells(s2Row, 1).Value = "CHANGE" Then tempName = sh2.Cells(s2Row, 2).Value 'extra step for understanding concept 'There is a match, so now For s1Row = 2 To lastRow1 'Search through the other sheet If sh1.Cells(s1Row, 1).Value = tempName Then sh2.Cells(s2Row, 3).Value = sh1.Cells(s1Row, 2).Value 'Copy Values sh2.Cells(s2Row, 4).Value = sh1.Cells(s1Row, 3).Value End If Next s1Row End If Next s2Row End Sub