Excel VBA質問箱 IV

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

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


52053 / 76732 ←次へ | 前へ→

【29523】Re:シートから別シートへのデータ移動
質問  YN62  - 05/10/6(木) 21:18 -

引用なし
パスワード
   ▼ponpon さん:
やっぱり勉強になりました。
Copy Destinationが頭に浮びませんでした。

>Private Sub CommandButton1_Click()
>
>Worksheets("設定1").Range("F2").Copy _
>Destination:=Worksheets("設定2").Range("A65536").End(xlUp).Offset(1)
>
>End Sub

コマンドボタンを使わずに、上の逆のようなコードのシンプルなものも
ついでに教えてください。

Sub macro3()
Dim i As Integer
For i = -15 To 0
Worksheets("設定2").Range("A65536").End(xlUp).Offset(i).Copy _
Destination:=Worksheets("設定1").Range("B3")
Next
End Sub

としたのですが・・・もっとスマートな方法は無いでしょうか?
0 hits

【29439】シートから別シートへのデータ移動 初心者 05/10/5(水) 0:02 質問
【29440】Re:シートから別シートへのデータ移動 ponpon 05/10/5(水) 4:23 発言
【29464】Re:シートから別シートへのデータ移動 初心者 05/10/5(水) 22:40 お礼
【29441】Re:シートから別シートへのデータ移動 YN62 05/10/5(水) 6:51 発言
【29466】Re:シートから別シートへのデータ移動 初心者 05/10/5(水) 22:50 お礼
【29475】Re:シートから別シートへのデータ移動 ponpon 05/10/6(木) 0:21 発言
【29523】Re:シートから別シートへのデータ移動 YN62 05/10/6(木) 21:18 質問
【29525】Re:シートから別シートへのデータ移動 hine 05/10/6(木) 21:50 発言
【29530】Re:シートから別シートへのデータ移動 ponpon 05/10/6(木) 23:47 発言
【29528】Re:シートから別シートへのデータ移動 初心者 05/10/6(木) 22:15 お礼

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