[發問] 請問「最後一行資料 下拉複製」到新的一行，如何寫成巨集或VB呢？

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

2^#

發表於 2019-5-6 13:25 | 顯示全部帖子

回復 2# GBKEE

謝謝GBKEE大大喔:loveliness: ！！

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

3^#

發表於 2019-5-8 23:01 | 顯示全部帖子

[版主管理留言]

GBKEE(2019/5/9 07:43): 請附檔看看

回復 2# GBKEE

請問 GBKEE 大大：
目前遇到的問題...
就是Excel共有三個Sheet(Sheet1、Sheet2、Sheet3)，但三個Sheet現有的行數都不同，需要下拉的欄位也不同，
想要做一個按鈕，按一下按鈕，就可以一次拖曳下拉三個Sheet最後一行的資料呢?
懇請GBKEE大大指導！！謝謝您！！

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

4^#

發表於 2019-5-9 09:22 | 顯示全部帖子

回復 2# GBKEE

感謝GBKEE大大，附上檔案，麻煩GBKEE大大指導！謝謝您！！

工作表1→A欄~E欄，從14行拖曳下拉到15行。
工作表2→A欄~G欄，從27行拖曳下拉到28行。
工作表3→A欄~I欄，從41行拖曳下拉到42行。

拖曳下拉20190409.rar (14.41 KB)

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

5^#

發表於 2019-5-11 00:14 | 顯示全部帖子

本帖最後由 cslu37 於 2019-5-11 00:15 編輯

回復 cslu37
試試看
這工作表 Sheet模組的程式碼
GBKEE 發表於 2019-5-5 16:15

Option Explicit
Sub Ex()
Dim Rng As Range
Set Rng = Range("A2:E2")
If Rng.End(xlDown).Row <> Rows.Count Then
'工作表的總列數: Rows.Count 2003=65536,2010=1048576
Set Rng = Range(Rng, Rng.End(xlDown))
'"A2:E2" 往下延伸到最後又資料的位置
End If
'Range.AutoFill 方法可參說明
With Rng
.AutoFill Destination:=.Rows("1:" & .Rows.Count + 1), Type:=xlFillDefault
'.Rows("1:" & .Rows.Count + 1) Rng的列數+1的範圍
End With
End Sub

複製代碼

GBKEE大大您好：
我嘗試著改成拉到下一行後，再將整行改成"值"，但爬文爬了一整晚，也嘗試修改...但一直出現錯誤訊息>"<
請大大指導，要在哪加上value，才能在下拉後再改成"值"呢？
感謝GBKEE大大！！

帖子: 60
主題: 12
精華: 0
積分: 93
點名: 0
作業系統: Windows7
軟體版本: excel
閱讀權限: 20
註冊時間: 2019-3-8
最後登錄: 2021-7-23

6^#

發表於 2019-5-13 21:43 | 顯示全部帖子

回復 7# hcm19522

  謝謝 hcm19522 的分享！！
  只是遇到一個問題...就是...日期會自動將空的日期自動補上並連續...
  例如：因為六日不需要更新，所以5/10 接著就是 5/13，但G2顯示5/13後，會自動將5/11、5/12也填入...
            變成5/10
                  5/11
                  5/12
                  5/13
請問如何才能將週末扣除呢，懇請hcm19522大大指導，謝謝您！！