Excel VBA質問箱 IV

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

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


66062 / 76734 ←次へ | 前へ→

【15238】Re:値だけを次々に貼り付け
質問  ウーロン茶  - 04/6/17(木) 18:08 -

引用なし
パスワード
   ▼Jaka さん:
>よく見ないでレスしちゃったけど、「データ」の値がごっちゃになっていませんか?
>どのブック対象かはっきりさせた方がいいと思います。
データの値は大丈夫のようです。
Jakaさんに頂いたコードと xlvalues で値の貼り付けはうまくいきました。
ありがとうございます。

データ = Range("A4").End(xlDown).Row
  Dim File1 As Workbook
  Set File1 = Workbooks.Open(Filename:="D:\Book2.xls")
  File1.Worksheets("Sheet1").Range("A4:A" & データ).Copy _
  sh1E = Worksheets("Sheet1").Range("A1").end(xlup).row + 1
  Workbooks("Book1.xls").Worksheets("Sheet1").Range("A" & Sh1E).PasteSpecial Paste:=xlValues
  File1.Close

データの最後尾へ移動させて続きを行う方法をもう少し考えてみます。
ご教授よろしくお願いします。

2 hits

【15225】値だけを次々に貼り付け ウーロン茶 04/6/17(木) 16:49 質問
【15228】Re:値だけを次々に貼り付け Asaki 04/6/17(木) 16:56 回答
【15231】Re:値だけを次々に貼り付け ウーロン茶 04/6/17(木) 17:23 質問
【15233】Re:値だけを次々に貼り付け Asaki 04/6/17(木) 17:35 回答
【15234】Re:値だけを次々に貼り付け ウーロン茶 04/6/17(木) 17:41 発言
【15235】Re:値だけを次々に貼り付け Jaka 04/6/17(木) 17:41 回答
【15236】Re:値だけを次々に貼り付け Jaka 04/6/17(木) 17:48 発言
【15238】Re:値だけを次々に貼り付け ウーロン茶 04/6/17(木) 18:08 質問
【15240】Re:値だけを次々に貼り付け Asaki 04/6/17(木) 18:37 回答
【15245】Re:値だけを次々に貼り付け ウーロン茶 04/6/17(木) 19:48 質問
【15256】Re:値だけを次々に貼り付け Asaki 04/6/17(木) 23:34 回答
【15261】Re:値だけを次々に貼り付け ウーロン茶 04/6/18(金) 10:00 お礼

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