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

Excel宏复制权到下一个单元格

1 个答案: