帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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")沒有資料,巨集就會執行失敗

請問我該如何修改上述指令
謝謝

Book1.rar (13.11 KB)

樓主熱帖

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

3^#

發表於 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

版主
可以用耶，但有點超出我的理解
感恩

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2019-2-18 13:52 | 只看該作者

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

不使用 WITH 如下

Sheets("Sheet1").Range("A2", Sheets("Sheet1").Range("B65536").End(xlUp)).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)

複製代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2019-2-18 13:57 | 只看該作者

或是這樣

xRow = Sheets("Sheet1").Range("B65536").End(xlUp).Row
Sheets("Sheet1").Range("A2:B" & xRow).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)

複製代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

pupai