EXCEL VBA 是否以做到任意選定某一列作複製，然後再插入任意指定列?

tata211
個人積分：2分
文章編號：91153006

2分

樓主

2025-02-20 1:17

如圖所示需每天增加一列日期及數據
但因為列表的中間、最右邊及下面整列都有公式加總(粗字體都是公式)
所以公式列平常都是鎖定及保護

那就讓每天都要先解鎖
然後選取最後一筆日期的數據先複製
再插入後去掉原有的數據
然後鎖回保護就完成準備動作(如下圖)
EXCEL VBA 是否以做到任意選定某一列作複製，然後再插入任意指定列?

請問這動作可以用VBA達成嗎?

因為本人程度有限
嘗試用巨集卻只懂每次都複製新增同一列在同一位置上
所以隔天就不能使用

EXCEL VBA 是否以做到任意選定某一列作複製，然後再插入任意指定列?

2025-02-20 1:17 發佈

文章關鍵字 Excel VBA 任意指定列

caoq

caoq
個人積分：4325分
文章編號：91153566

4325分

2樓

2025-02-20 8:28

tata211 wrote:
請問這動作可以用VBA達成嗎?

可以

tata211 wrote:
嘗試用巨集卻只懂每次都複製新增同一列在同一位置上

你會找最後一列應該就能自己解決了
[資料表].[儲存格].End(xlUp).Row
說明:從儲存格往上找最後一列,返回列號
ex. sheet1.[a999999].End(xlUp).Row 從a999999往上找最後一列有資料的返回列號
儲存格寫法很多不一定是侷限在[a999999]
找到最後列之後稍微加減就能定位到你要的欄位操作了

End參數:
xlUp：向上移動到第一個非空白儲存格
xlDown：向下移動到第一個非空白儲存格
xlToLeft：向左移動到第一個非空白儲存格
xlToRight：向右移動到第一個非空白儲存格

.Row：返回列號
.Column：返回欄號

tata211 樓主

感謝大大~ 可是本人真的是超新手......我那個巨集是用錄制的，並不是自己編的......所以我想求一個完整的..........VBA碼

2025-02-21 2:14

brabus1518

brabus1518
個人積分：5555分
文章編號：91156666

5555分

3樓

2025-02-20 15:38

沒有問題喔
可以作到

tata211

tata211
個人積分：2分
文章編號：91159423

2分

樓主

2025-02-21 2:16

感謝大大們
但本人真的是超新手
那個巨集是用錄制的
編碼是不懂.........
不知可否給個稍為完整的編碼
讓我抄學一下 ^++^

tata211

tata211
個人積分：2分
文章編號：91159435

2分

樓主

2025-02-21 2:29

如圖作例子想利用VBA
因文件中有公式不能修改所以原文件是處保護狀態

首先<手動>選取(10:10)整列
按下VBA控制按鈕後可以<自動>解鎖保護
把<手動>選取的~>1月10日的(10:10)整列複制後
再<自動>插入原位置就變成有兩列1月10日[(10:10)和(11:11)兩列]
最後<自動>再鎖定保護
餘下就<手動>把新增出來的(11:11)<手動>改日期為1月11日這樣再陸續輸入當天資料

隔日上班!! 又再重複以上工作!!!
把1月11日的(11:11)整列複制
然後又再插入原位置變成有兩列1月11日[(11:11)和(12:12)兩列]
如此類推這樣

因每天工作就是這樣重覆的
本人不懂編程><
希望大大們相助能給出完整VBA碼
讓本人可以學習修改套用上
感謝