關於儲存格需要公式計算，又要複製貼上，怎麼處理比較好?
- 帖子
- 406
- 主題
- 8
- 精華
- 0
- 積分
- 453
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2015-2-7
- 最後登錄
- 2021-7-31
|
本帖最後由 n7822123 於 2020-4-11 01:19 編輯
回復 3# handsometrowa
看了你的附件~ 你的意思是黃色儲存格的欄位要填入第2列的"值"，
其他欄位要填入第2列的"公式"，是這樣嗎?
感覺沒那麼複雜.............可是為什麼你的敘述有點複雜@@
試試吧!- Sub 貼上資料()
- R% = [A65536].End(3).Row + 1
- '先全部填入值~
- Cells(R, 1).Resize(1, 20) = Cells(2, 1).Resize(1, 20).Value
- Arr = Array(8, 10, 11, 14, 16, 18, 19, 20) '要公式的欄號
- For Each c In Arr '複製第2列公式~
- Cells(2, c).Copy Cells(R, c)
- Next
- End Sub
|
|
|
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助
|
|
|
|
|
發表於 2020-4-11 01:12
| 