excel - 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