Excel VBA質問箱 IV

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

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


66044 / 76734 ←次へ | 前へ→

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

引用なし
パスワード
   すみません。
テストしてないのがバレバレです。
全体を再度Upします。

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
    With File2.Worksheets("Sheet1")
      .Cells(65536, 1).End(xlUp).Offset(IIf(.Cells(1, 1).Value = "", 0, 1)).PasteSpecial _
      Paste:=xlValues
    End With
  Next i
  File1.Close

  Set File1 = Nothing
  Set File2 = Nothing
End Sub

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

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