根据单元格中的值将行复制到另一个工作表

我需要根据该行中的值将一行数据复制到另一个工作表。该值为0并始终位于原始工作表的J列中。我想将列A - N复制到第二张纸上。我发现这个脚本复制整行。问题是我需要保留以前输入到第二个（目的地）工作表中O-AZ列的任何数据。不幸的是，下面的脚本将整行粘贴到第二个（目的地）表单中，并且在O-AZ列中输入的任何数据都会丢失。根据单元格中的值将行复制到另一个工作表

Sub MyMacro() 

    Dim i As Long, iMatches As Long 

    Dim aTokens() As String: aTokens = Split("0", ",") 

    For Each Cell In Sheets("AMI").Range("J:J") 

     If Len(Cell.Value) <> 0 Then 

      For i = 0 To UBound(aTokens) 

       If InStr(1, Cell.Value, aTokens(i), vbTextCompare) Then 

        iMatches = (iMatches + 1) 

        Sheets("AMI").Rows(Cell.Row).Copy Sheets("AMI Fallout").Rows(iMatches + 1) 

       End If 

      Next 

     End If 

    Next 

End Sub

来源

2014-09-18 zipgunpop

的可能重复[Excel宏，复制并粘贴基于另一个单元格值一个单元格的值？（http://stackoverflow.com/questions/2517471/excel-宏 - 复制 - 粘贴 - 基于单元值的另一个单元值） – 2014-09-19 01:28:16

您正在复制与像代码完整行：

Sub dural() 
    Sheets("Sheet1").Rows(11).Copy Sheets("Sheet2").Rows(17) 
End Sub

要复制的行的唯一部分，使用类似：

Sub dural2() 
    Set r1 = Intersect(Sheets("Sheet1").Rows(11), Sheets("Sheet1").Columns("A:N")) 
    Set r2 = Intersect(Sheets("Sheet2").Rows(13), Sheets("Sheet2").Columns("A:N")) 
    r1.Copy r2 
End Sub

来源

2014-09-18 23:34:00

谢谢。这很好。我非常感谢这里愿意分享的优秀奇才。 – zipgunpop 2014-09-19 15:24:27

要回答你的这个代码只会将指定行的列A：n复制到AMI辐射工作表。

Sheets("AMI").Cells(Cell.Row, 1).Resize(1, 14).Copy Sheets("AMI Fallout").Cells(iMatches + 1, 1)

我很担心你是如何确定行转移的积极标准的。看起来您正在尝试使用逗号（不存在）的Split a ，然后遍历单个值数组并检查部分匹配的。由InStr产生的部分匹配是最令人不安的。

来源

2014-09-18 23:34:20 Jeeped

使用这样的

Sheet1.Rows(cell.row) = sheet2.Rows(Cell.row).Value

来源

2014-09-19 05:24:15

根据单元格中的值将行复制到另一个工作表

回答

相关问题