如何用VBA讓公式複制到工作表有資料的最後一列 - Excel程式區

　暱稱: Raymond Chien

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

1^# 跳轉到 »

發表於 2018-5-13 22:50 | 顯示全部帖子

回復 1# PJChen

請問一下針對第二個問題:
您是希望E欄一直持續加1，也就是488，489，490...
還是就483~487一直循環?
不是很懂複製的意思?

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

　暱稱: Raymond Chien

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

2^#

發表於 2018-5-13 23:54 | 顯示全部帖子

回復 3# PJChen

不知道這樣符不符合您的需求

Sub test()
lastRow1 = Cells(Rows.Count, "F").End(xlUp).Row
lastRow2 = Cells(Rows.Count, "A").End(xlUp).Row
If lastRow2 <> lastRow1 Then
Range("A" & lastRow2 & ":" & "C" & lastRow2).AutoFill Destination:=Range("A" & lastRow2 & ":C" & lastRow1)
For i = lastRow2 To lastRow1 - 1
Cells(i + 1, "E") = Cells(i, "E") + 1
Next
End If
End Sub

複製代碼

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

　暱稱: Raymond Chien

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

3^#

發表於 2018-5-14 22:34 | 顯示全部帖子

本帖最後由 iamaraymond 於 2018-5-14 22:38 編輯

回復 5# PJChen

想先確認一下您的問題:
您是說當執行VBA指令裡的程式時
1.若此時"自動複製"關著，則可以執行往下自動填滿
2.若此時"自動複製"開著，就沒有動作
所以您希望當"自動複製"開著時，也可以往下自動填滿?
不知道我的理解正不正確

您的第二個問題是希望"自動複製"的E2=1，E3=2，一直到目前最後一列E11嗎?

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

　暱稱: Raymond Chien

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

4^#

發表於 2018-5-14 23:27 | 顯示全部帖子

回復 7# PJChen

這樣嗎?

With Wb.Sheets("訂單出貨")
lastRow1 = .Cells(Rows.Count, "G").End(xlUp).Row '以G欄的資料列為基準
lastRow2 = .Cells(Rows.Count, "A").End(xlUp).Row '以A欄的資料列為基準
lastRow3 = .Cells(Rows.Count, "BL").End(xlUp).Row '以BL欄的資料列為基準
lastRow4 = .Cells(Rows.Count, "BP").End(xlUp).Row '以BP欄的資料列為基準
If lastRow2 <> lastRow1 Then
.Range("A" & lastRow2 & ":" & "C" & lastRow2).AutoFill Destination:=.Range("A" & lastRow2 & ":C" & lastRow1) '當A欄最後一列不等於G欄時,A:C自動往下填滿
For i = 2 To lastRow1
.Cells(i, "E") = i - 1
Next
End If
If lastRow3 <> lastRow1 Then
.Range("BL" & lastRow3 & ":" & "BN" & lastRow3).AutoFill Destination:=.Range("BL" & lastRow3 & ":BN" & lastRow1) '當BL欄最後一列不等於G欄時,自動往下填滿
End If
If lastRow4 <> lastRow1 Then
.Range("BP" & lastRow4 & ":" & "CX" & lastRow4).AutoFill Destination:=.Range("BP" & lastRow4 & ":CX" & lastRow1) '當BP欄最後一列不等於G欄時,自動往下填滿
End If
End With

複製代碼

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

　暱稱: Raymond Chien

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

5^#

發表於 2018-5-15 00:01 | 顯示全部帖子

回復 9# PJChen
其實只是幫您加個"."而已XD
用with的時候要使用"."才可以使用該物件

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html