Excel VBA質問箱 IV

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

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


52050 / 76736 ←次へ | 前へ→

【29530】Re:シートから別シートへのデータ移動
発言  ponpon  - 05/10/6(木) 23:47 -

引用なし
パスワード
   ▼YN62 さん,hineさん こんばんは。
スマートな方法は、わかりませんが・・・

>For i = -15 To 0

 これだと、設定2のA列に15行以上ないとエラーになりますよね。

>Worksheets("設定2").Range("A65536").End(xlUp).Offset(i).Copy _
>Destination:=Worksheets("設定1").Range("B3")

 これだと、ループして、最後の値が、Worksheets("設定1").Range("B3")に書き込まれるので、
hineさんの言うとおりループの意味はないですね。

>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 お礼

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