| |
▼さや さん：
こんばんは。
>
>まず、Ａ列のセルＡ1：Ａ60に、1から26までの数値がランダムに入ります。
>そして、そのＡ1:Ａ60をＢ列のＢ1: Ｂ60にコピーします。
>コピーする条件は次の２点です。
>
>条件1. Ａ1：Ａ60には関数（VLOOKUP）が入っていますが、
> Ｂ列にコピーする際には、関数をなくし値のみとしたい。
>
>条件2. Ａ列に同じ数値が続けて入力された場合は、
> 上部の数値はコピーせず、１番下のセルのみをコピーする。
>
条件1は、Valueプロパティを使えば値だけの移行ができます。
条件2は、セルＡ１〜Ａ６０の範囲で
ＡｎとＡn+1を比較し、等しくなければ、ＡnをＢnに移行する。
というループ処理を行なうことで実現出来ます。
Sub test()
Dim idx As Long
With Range("a1:a60")
For idx = 1 To .Count - 1
If .Cells(idx).Value <> .Cells(idx + 1).Value Then
' セルＡｎとＡn+1を比較し、等しくなければ、ＡnをＢnに移行する。
.Cells(idx, 2).Value = .Cells(idx).Value
End If
Next
.Cells(.Count, 2).Value = .Cells(.Count).Value
' ↑最後のセルは無条件で移行する
End With
End Sub
検討してみて下さい
|
|
ichinose
- 07/1/19(金) 21:30 -
