Excel VBA質問箱 IV

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

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


66060 / 76734 ←次へ | 前へ→

【15240】Re:値だけを次々に貼り付け
回答  Asaki  - 04/6/17(木) 18:37 -

引用なし
パスワード
   >データの値は大丈夫のようです。

>データ = Range("A4").End(xlDown).Row
これはBook1の方から値を取得して
>File1.Worksheets("Sheet1").Range("A4:A" & データ).Copy
使っているのがBook2ですから、必ずデータ件数が一緒である保証がないと
おかしくなるような気がしますが。


↓こんな感じでもいけそう。。。?
Sub test()
  Dim File1  As Workbook
  Dim File2  As Workbook
  Dim i    As Long
  
  Set File2 = Workbooks("Book1.xls")
  Set File1 = Workbooks.Open(Filename:="D:\Book2.xls")
  
  For i = 1 To 8
    With File1.Worksheets("Sheet" & i)
      .Range(.Cells(1, 1), .Cells(65536, 1).End(xlUp)).Copy
    End With
    File2.Cells(65536, 1).End(xlUp).Offset(IIf(Cells(1, 1).Value = "", 0, 1)).PasteSpecial _
      Paste:=xlValues
  Next i
  File1.Close

  Set File1 = Nothing
  Set File2 = Nothing
End Sub
3 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 お礼

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