12
返回列表 上一主題 發帖

[發問] 如何用VBA讓公式複制到工作表有資料的最後一列

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-5-13 22:15 | 只看該作者

[發問] 如何用VBA讓公式複制到工作表有資料的最後一列

想請問二種VBA寫法:
1.
A至C欄有公式
目前資料至第11列,資料會不斷增加
如何用VBA讓A~C欄自動把公式複制到工作表有資料的最後一列？

2.
E欄為等差數列
同1所述,如何讓數列自動複制到有資料的最後一列？

讓資料自動複制到有資料的最後一列？.rar (16.47 KB)
收藏 分享

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

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

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2018-5-13 23:22 | 只看該作者
回復 2# iamaraymond
數列的部份，不管那個數字是什麼，就從空白的上一個數字持續+1即可

例如：
現在的例子，有資料的部份到第11列，就針對A至C欄，自動偵測沒公式的地方開始複第到第11列，等蒫數列亦相同.

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
4#
發表於 2018-5-13 23:54 | 只看該作者
回復 3# PJChen

不知道這樣符不符合您的需求
  1. Sub test()

  3. lastRow1 = Cells(Rows.Count, "F").End(xlUp).Row
  4. lastRow2 = Cells(Rows.Count, "A").End(xlUp).Row
  5. If lastRow2 <> lastRow1 Then
  6. Range("A" & lastRow2 & ":" & "C" & lastRow2).AutoFill Destination:=Range("A" & lastRow2 & ":C" & lastRow1)
  7. For i = lastRow2 To lastRow1 - 1
  8.     Cells(i + 1, "E") = Cells(i, "E") + 1
  9. Next
  10. End If
  11. End Sub
複製代碼
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2018-5-14 22:05 | 只看該作者
回復 4# iamaraymond

首先感謝您幫忙寫這個程式
我在程式中加入一些其他功能，然後把程式與要執行自動複制公式的檔分開，也改了檔名(自動複制.xlsx，不過應該沒影響)，測試了10多次一直出現問題(但不是您的程式問題)，最終發現在檔案自動開啟時,執行程式沒問題，但若是檔案先打開了，就無法執行自動填寫公式，這樣又試了幾次仍然找不出原因，懇請幫忙看下問題出在哪？

另外我把填數列的功能暫停，也請教您，若是填數列的功能，想改為從1:1的下一列(也就是標題列的下一列)開始，自動從1填到有資料(以G欄為準)的最後一列，該如何修改？

出貨文件連結.rar (32.96 KB)

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

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

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
7#
發表於 2018-5-14 23:15 | 只看該作者
回復 6# iamaraymond

當執行VBA指令裡的程式時
1.若此時"自動複製"關著，則可以執行往下自動填滿...Yes
2.若此時"自動複製"開著，就沒有動作...Yes (事先開啟，未透過VBA打開時)
所以您希望當"自動複製"開著時，也可以往下自動填滿? ...YES (我希望無論事先已開啟or經由VBA開啟，一按VBA執行鈕，它就能執行"自動複制公式"的功能

您的第二個問題是希望"自動複製"的E2=1，E3=2，一直到目前最後一列E11嗎?...YES
  1.     For Each Wb In Workbooks
  2.         If UCase(Wb.Name) = UCase("自動複制.xlsx") Then
  3.             Msg = True  '檔案已開啟
  4.             Exit For
  5.         End If
  6.     Next
  7.     '*****************************************
  8.     If Msg = True Then '檔案已開啟
  9.         Set Wb = Workbooks("自動複制.xlsx")
  10.     Else               '檔案尚未打開時
  11.         Set Wb = Workbooks.Open("W:\00_科毅\出貨文件連結\自動複制.xlsx")
  12.     End If
複製代碼

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
8#
發表於 2018-5-14 23:27 | 只看該作者
回復 7# PJChen

這樣嗎?
  1. With Wb.Sheets("訂單出貨")
  2.    
  3.     lastRow1 = .Cells(Rows.Count, "G").End(xlUp).Row  '以G欄的資料列為基準
  4.     lastRow2 = .Cells(Rows.Count, "A").End(xlUp).Row '以A欄的資料列為基準
  5.     lastRow3 = .Cells(Rows.Count, "BL").End(xlUp).Row '以BL欄的資料列為基準
  6.     lastRow4 = .Cells(Rows.Count, "BP").End(xlUp).Row '以BP欄的資料列為基準
  7.    
  8.     If lastRow2 <> lastRow1 Then
  9.     .Range("A" & lastRow2 & ":" & "C" & lastRow2).AutoFill Destination:=.Range("A" & lastRow2 & ":C" & lastRow1)  '當A欄最後一列不等於G欄時,A:C自動往下填滿

  11.     For i = 2 To lastRow1
  12.     .Cells(i, "E") = i - 1
  13.     Next
  14.     End If
  15.    
  16.     If lastRow3 <> lastRow1 Then
  17.     .Range("BL" & lastRow3 & ":" & "BN" & lastRow3).AutoFill Destination:=.Range("BL" & lastRow3 & ":BN" & lastRow1)  '當BL欄最後一列不等於G欄時,自動往下填滿
  18.    
  19.     End If

  21.     If lastRow4 <> lastRow1 Then
  22.     .Range("BP" & lastRow4 & ":" & "CX" & lastRow4).AutoFill Destination:=.Range("BP" & lastRow4 & ":CX" & lastRow1)  '當BP欄最後一列不等於G欄時,自動往下填滿
  23.    
  24.     End If

  26. End With
複製代碼
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
9#
發表於 2018-5-14 23:54 | 只看該作者
回復 8# iamaraymond

感謝...這樣完全正常了。

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
10#
發表於 2018-5-15 00:01 | 只看該作者
回復 9# PJChen
其實只是幫您加個"."而已XD
用with的時候要使用"."才可以使用該物件
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
12
返回列表 上一主題