返回列表 上一主題 發帖

[發問] Rows("6:m").copy 出現錯誤

annie.l

帖子
14 
主題
5 
精華
0 
積分
69 
點名
0  
作業系統
windows11 
軟體版本
office 2021 
閱讀權限
20 
性別
女 
註冊時間
2019-4-21 
最後登錄
2022-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-9-30 20:02 | 只看該作者

[發問] Rows("6:m").copy 出現錯誤

要複製的列數不固定,有寫程式

m = InputBox("輸入 工程最後一筆 (列數) ", "")

原寫的程式可以動
Sheets("二維碼").Range(Cells(6, 1), Cells(m, 12)).Copy

但我想改成一整列複製 程式卻不動 是那裡寫錯了嗎?1
Sheets("二維碼").Rows("6:m").Copy

Range("AA2").Value = "=SUM(L2:L6)/SUM(E2:E6)"
L2:L6 及E2跟E6 是否也可以改成
sum"(cells(2,12):cells(m,12)/sum(cells(2,5):cells(m,5)"
收藏 分享

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
17  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
2#
發表於 2020-9-30 22:37 | 只看該作者
  1. Sheets("二維碼").Rows("6:" & m).Copy
複製代碼

TOP

annie.l

帖子
14 
主題
5 
精華
0 
積分
69 
點名
0  
作業系統
windows11 
軟體版本
office 2021 
閱讀權限
20 
性別
女 
註冊時間
2019-4-21 
最後登錄
2022-10-7 
3#
發表於 2020-10-1 11:44 | 只看該作者
回復 2# ikboy


  我有測試了~因我設了很多格式化,格式化條件都有跑掉,需在調整貼上後的程式語
謝謝你幫了我一個大忙

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題