在两张纸之间复制单元格

【问题标题】：Copying cells between 2 sheets在两张纸之间复制单元格
【发布时间】：2014-10-30 18:35:15
【问题描述】：

我要做的只是根据单元格的内容将信息从一张纸复制到另一张纸。基本上，如果 A 列中的数字，工作表 1 与 A 列，工作表 2 中的数字匹配，我希望它将整个行从工作表 2 复制到工作表 1，两个单元格分隔在行旁边匹配的地方。

任何帮助将不胜感激！如果您需要更多说明，请告诉我。

伪

For i = 1 to EndofColumnInSheet1
       if (There is a match with xNumber in sheet 2)
           {
              Copy entire row in Sheet 2 beside matching row in Sheet 1 
           }

       else
            {
                Keep entire row empty.
                AKA Skip this row.
            }

【问题讨论】：

标签： vba excel copy

【解决方案1】：

这个简单的循环似乎运行得相当快。

Dim r As Long, cc As Long, cr As Long, ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Sheets("Sheet10")
Set ws2 = Sheets("Sheet11")

With ws1
    For r = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
        If CBool(Application.CountIf(ws2.Columns(1), .Cells(r, 1).Value)) Then
            cr = Application.Match(.Cells(r, 1).Value, ws2.Columns(1), 0)
            cc = ws2.Cells(cr, Columns.Count).End(xlToLeft).Column
            .Cells(r, 4).Resize(1, cc) = ws2.Cells(cr, 1).Resize(1, cc).Value
        Else
            'do nothing
        End If
    Next r
End With

Set ws2 = Nothing
Set ws1 = Nothing

【讨论】：

你认为我会如何改变它，以便它只将特定的单元格值复制到原始工作表？