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