VBA 如何從單個儲存格複製到已合併儲存格內

vba excel

et323037 2019-07-10 16:24:13 ‧ 6376 瀏覽

分享至

如下要複製單格儲存格過去沒有問題，只是如果被覆蓋為合併儲存格，就沒有辦法執行．

Sheets("工作表1").Select
Range(Cells(10, 2), Cells(10, 3)).Select
Selection.COPY
        
Windows(FileName).Activate
Sheets("TEST").Select
Cells(TableStartRow, TableStartCol).Select
Selection.PasteSpecial Paste:=xlPasteValues

看更多先前的討論...收起先前的討論...

paicheng0111 iT邦大師 5 級 ‧ 2019-07-10 17:04:07 檢舉

所以你的問題是？

froce iT邦大師 1 級 ‧ 2019-07-10 18:43:48 檢舉

不能用copy的方式，得直接用某個cell的值等於合併儲存格第一格的值。

小魚 iT邦大師 1 級 ‧ 2019-07-10 23:30:24 檢舉

直接操作Excel,
你會發現不能直接複製單格貼到複數格,
(複製跟貼上的儲存格必須完全一樣,
否則會出錯或儲存格合併被打散,
不過好像會跳出確認框按確定才會被打散)
不過你可以複製單格的內容,
貼到複數格的內容.

et323037 iT邦新手 5 級 ‧ 2019-07-11 09:38:23 檢舉

pcw大我的問題是如何用vba從excel單儲存格內容複製到另個excel的兩個單儲存格合併的複數儲存格內 (用copy執行失敗如圖二

et323037 iT邦新手 5 級 ‧ 2019-07-11 09:38:49 檢舉

froce大 cell該如何執行呢小弟只會copy

et323037 iT邦新手 5 級 ‧ 2019-07-11 09:39:19 檢舉

小魚大 VBA可以執行"只"copy單格"內容"嗎

goodnight iT邦研究生 2 級 ‧ 2019-07-11 15:01:20 檢舉

請參考 https://docs.microsoft.com/zh-tw/office/vba/api/excel.range.mergecells

Set ma = Range("a3").MergeArea
If Range("a3").MergeCells Then
ma.Cells(1, 1).Value = "42"
End If

比較麻煩的是, 你得再寫一段程式, 去檢查要貼上的儲存格有沒有被合併
先解除合併, 貼上, 再重新合併儲存格
請問一下, 為什麼你貼上的地方, 儲存格會被合併??

登入發表討論