Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46107 / 76735 ←次へ | 前へ→

【35607】Re:ボタン一つで表のコピー貼付
回答  Kein  - 06/3/8(水) 14:34 -

引用なし
パスワード
   仮に 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行を超える範囲までコピぺ
することは無い、という前提でエラー処理はしていませんが、値の保存先は
ワークシートメニューの「ファイル」「プロパティ」「ファイルの概要」タブにある
"コメント"欄ですから、適当なタイミングでよく考えて消去して下さい。  

0 hits

【35524】ボタン一つで表のコピー貼付 mayumi 06/3/7(火) 13:19 質問
【35564】Re:ボタン一つで表のコピー貼付 ponpon 06/3/7(火) 20:34 発言
【35583】Re:ボタン一つで表のコピー貼付 mayumi 06/3/8(水) 8:01 質問
【35585】Re:ボタン一つで表のコピー貼付 Blue 06/3/8(水) 8:54 質問
【35586】Re:ボタン一つで表のコピー貼付 mayumi 06/3/8(水) 9:26 回答
【35597】Re:ボタン一つで表のコピー貼付 ponpon 06/3/8(水) 13:06 発言
【35621】Re:ボタン一つで表のコピー貼付 mayumi 06/3/8(水) 16:58 質問
【35607】Re:ボタン一つで表のコピー貼付 Kein 06/3/8(水) 14:34 回答
【35622】Re:ボタン一つで表のコピー貼付 mayumi 06/3/8(水) 17:09 お礼

46107 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free