0

ここでマクロの助けが必要..

列 A には、A2 から始まるすべてのデータがあります。やりたいことは、列 A に値がある場合に A2 を B2 に、A3 を B3 に、というようにコピーするというループを作成することです。既存のマクロで列 A のデータをフィルタリングし、それを列 B にコピーして貼り付けると、そのすぐ隣に値が貼り付けられないため、コピーと貼り付けのマクロは役に立ちません。

したがって、すべての列 A をスキャンし、空でない値を見つけ、値が見つかったら次のフィールドに貼り付けるループが必要です。たとえば、A335 から B335 までで、A の終わりに行くと停止します。

前もって感謝します！

4

1 に答える 1

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
于 2013-05-27T19:35:48.640 に答える