|
▼Kein さん:
>仮に Photo という値が A1 に入力されているとして、その位置(表の左上端)を
>そのままにしてコピーしていく。表は一行の空白をあけて下へコピーしていく。
>という条件で。
>
>Sub Copy_Table()
> Dim RCnt As Long
>
> With ThisWorkbook
> If .Comments = "" Then
> RCnt = 53
> Else
> RCnt = Val(.Comments) + 52
> End If
> .Comments = RCnt
> End With
> Range("A1:G51").Copy Range("A" & RCnt)
> Range("A" & RCnt).Resize(51, 7).ClearContents
> Range("A" & RCnt).Value = "Photo"
>End Sub
>
>で、出来ると思います。
>ちなみにWithステートメントで括ったコードは、次回に実行した際の貼り付け先
>行番号を保存しておく、というものです。常識的に65536行を超える範囲までコピぺ
>することは無い、という前提でエラー処理はしていませんが、値の保存先は
>ワークシートメニューの「ファイル」「プロパティ」「ファイルの概要」タブにある
>"コメント"欄ですから、適当なタイミングでよく考えて消去して下さい。
Keinさんありがとうございました。
参考に今あるものをもう少し考えて見ます。
これからもアドバイスの程宜しくお願いします。
|
|