|
▼レイレイ さん:
こんにちは。
>セルの値を斜め上のセルに移動させるという作業をしたいのですが、
>どうすればいいでしょうか?
>
>-------------------------------------
>A B C D E
>金額 1000 3000
>数量 2000 4000
>金額 1000 3000
>数量 2000 4000
>
>-------------------------------------
>
>この表の数量(つまり2000と4000)を下の
>ように右斜め上に移動させたいのです。
>
>-------------------------------------
>
>A B C D E
>金額 1000 2000 3000 4000
>数量
>金額 1000 2000 3000 4000
>数量
>
>-------------------------------------
'================================
Sub test()
For idx = 2 To 4 Step 2
'数値がある列の数が例題より多い場合は
' ↑の数値を変更して下さい
For jdx = 1 To Cells(Rows.Count, idx).End(xlUp).Row
If jdx Mod 2 = 0 Then
With Cells(jdx, idx)
.Offset(-1, 1).Value = .Value
.Value = ""
End With
End If
Next
Next
End Sub
当該シートをアクティブにして実行してみて下さい。
シートのデータが例のような配置だと思って作りました。
確認して下さい。
|
|