Board logo

標題: [發問] 如何將資料貼在選取連續資料欄下方的空白儲存格? [打印本頁]
作者: pupai    時間: 2019-2-17 11:50     標題: 如何將資料貼在選取連續資料欄下方的空白儲存格?

本帖最後由 pupai 於 2019-2-17 11:55 編輯

請問
Sub 每日報表()
Range("A2:B2", Range("A2").End(xlDown)).Copy

Sheets("Sheet2").Select
Range("A1").End(xlDown).PasteSpecial xlPasteValuesAndNumberFormats

'選取連續資料欄下方的空白儲存格
Range("a1").End(xlDown).Offset(1, 0).Select
End Sub


當分頁Sheet2中的Range("A2")有資料，就可以執行上述巨集
但Range("A2")沒有資料,巨集就會執行失敗

請問我該如何修改上述指令
謝謝
作者: ML089    時間: 2019-2-18 13:09

With Sheets("Sheet1")
     .Range("A2", .[B65536].End(xlUp)).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End With
作者: pupai    時間: 2019-2-18 13:34

With Sheets("Sheet1")
     .Range("A2", ..End(xlUp)).Copy Sheets("Sheet2").Range("A65536").End(xlUp ...
ML089 發表於 2019-2-18 13:09



    版主
可以用耶，但有點超出我的理解
感恩
作者: ML089    時間: 2019-2-18 13:52

這是 Range.Copy 方法
可以在EXCEL HELP裡面看到說明，或上網查一下就有

不使用 WITH 如下
  1. Sheets("Sheet1").Range("A2", Sheets("Sheet1").Range("B65536").End(xlUp)).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
複製代碼
作者: ML089    時間: 2019-2-18 13:57

或是這樣
  1. xRow = Sheets("Sheet1").Range("B65536").End(xlUp).Row
  2. Sheets("Sheet1").Range("A2:B" & xRow).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
複製代碼
作者: pupai    時間: 2019-2-18 14:15

回復 4# ML089


感謝版主指導
謝謝!!
作者: 准提部林    時間: 2019-2-18 19:51

Range([Sheet1!B2], [Sheet1!A65536].End(xlUp)).Copy [Sheet2!A65536].End(xlUp)(2)
作者: pupai    時間: 2019-2-21 21:53

回復 7# 准提部林


    感謝版主指導
感恩



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)