Excel宏的副本权利到下一个单元格

Question

需要宏在这里帮助..

我们在列A中的所有数据从A2开始。我们想要做的是创建一个循环，如果A列有值，则将A2复制到B2，A3复制到B3等等。复制粘贴宏不会帮助我们，因为我们在我们现有的宏中过滤列A的数据，并且如果我们将它复制并粘贴到B列，它不会将值粘贴在它旁边。

因此，我们需要一个循环来扫描所有列A，发现非空，并且当它找到一个值时，将它粘贴到下一个字段。例如A335至B335以及何时到达A的末端停止。

预先感谢您！

Answer 1

试试这个代码：

Sub CopyToRight() 
    Dim rng As Range 
    Dim LastRow As Long 
    Dim cell As Variant 
    LastRow = ActiveSheet.Cells(.Rows.Count, "A").End(xlUp).Row 
    Set rng = Range("A2:A" & LastRow) 
    For Each cell In rng 
     If cell.Value <> "" Then 
      cell.Offset(0, 1).Value = cell.Value 
     End If 
    Next cell 
End Sub