|
こんにちは。かみちゃん です。
>ここで、値が4000ならひとつ下の行のN列に4000と入力し、2000なら2000を入力、それ以外ならN列のひとつ上のセルをコピーさせる。とゆう感じにしたいのです。
>
>で、自分なりに書いてみたけど成功しません。
ご自身で書かれたコードをできるだけ活かすように修正するとすれば、
以下のようにすればできると思います。
Sub Sample()
Dim GYOU As Long
' Dim Bretu As Integer
Dim Bretu As Range
Dim Nretu As Variant
For GYOU = 1 To 5000
Set Bretu = Range("B", GYOU)
If Bretu.Value = "4000" Then
' Bretu.Offset(1, 12).Value = "4000"
Nretu = Bretu.Value
' Else: Offset(-1).Copy
Else
Bretu.Offset(1, 12).Value = Nretu
End If
' ActiveCell.Offset(1).Activate
Next GYOU
End Sub
がんばってください。
|
|