iT邦幫忙

0

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

  • 分享至 

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

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

https://ithelp.ithome.com.tw/upload/images/20190710/20118932yhb3xpiixV.png

看更多先前的討論...收起先前的討論...
所以你的問題是?
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

比較麻煩的是, 你得再寫一段程式, 去檢查要貼上的儲存格有沒有被合併
先解除合併, 貼上, 再重新合併儲存格
請問一下, 為什麼你貼上的地方, 儲存格會被合併??
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

1 個回答

0
japhenchen
iT邦超人 1 級 ‧ 2019-07-12 09:32:37

錄製新巨集→把你要做的事用滑鼠鍵盤重做一次→停止錄製→檢視巨集→編輯你剛錄的巨集,就可以看到你要做的事是如何用VBA呈現了

我要發表回答

立即登入回答