| |
こんにちは。かみちゃん です。
>最後に下記内容について、７００行まで実行させるにはどんなマクロを組めばいいですか？
その前に、本当に
>>・IV2セルをアクティブにする
>>・Ctrlキーを押しながら、←キーを押す
>>・上記の例では、D2セルがアクティブになる
>>・アクティブになったセルをコピーする
>>・A2セルをアクティブにする
>>・A2セルに貼り付ける
の手順を確認しましたか？
確認したうえで、マクロの記録で記録したコードなのですか？
提示されたコードは、ご自身で検証（実行）されましたか？
少なくとも、
>>> A列に最新データを表示させたい。
という要件は、満たされておらず、
B列に最新データが表示されていませんか？
提示されたコードを見る限り、
>>・IV2セルをアクティブにする
>>・Ctrlキーを押しながら、←キーを押す
という操作をしていないのも気になります。
提示されたコードで、
Range("B2:F2").Select
Selection.End(xlToRight).Select
としているのは、どういう理由からなのですか？
たとえば、B2、C2にデータが入っていて、D2にデータが入っていなくて、
E2にデータが入っている場合、最新のデータは、C2になってしまいますが、
それでいいのですか？
本題については、以下のような感じが一例です。
Sub Macro4()
Dim lngRow As Long
For lngRow = 2 To 700
Range("B" & lngRow & ":F" & lngRow).Select
'〜 省 略 〜
Next
End Sub
|
|
かみちゃん
- 08/12/24(水) 22:07 -
