隨手記錄

【EXCEL】- VBA - 將資料寫到剪貼簿中

因為在工作上，常常需要將某些特定的欄位中的文字COPY後，而且需要將多欄的文字整合成一筆後，然後再貼到其它地方去。。如果欄位中的文字不多還好處理，但常常在這些欄位中的文字又特別多，所以用手動的方法要花不少的時間。

如下圖所示，這些欄位的文字少從數千，多到數萬。當電腦效能不好時，光手動做COPY的動作就要花不少的時間。

故決定按一個按鈕，其動作就是會將所有資料全部寫到剪貼簿中。做出來大概如下圖按鈕的「複製來源碼」

原始碼

Sub 寫入剪貼簿_Click()

    Dim data As New DataObject
    Dim RAWDATA As String

    RAWDATA = ActiveSheet.Range("B8") & ActiveSheet.Range("B10") & ActiveSheet.Range("B9")
              
    data.SetText RAWDATA '寫入DataObject
    data.PutInClipboard  '寫入剪貼簿
    

End Sub

說　　明

要做到以上的功能，原始碼就如上述。關鍵在於紅色字體的部份。

補　　充

若發現無法執行該巨集時，請按照以下步驟執行。

▼「工具」 → 「設定引用項目」

▼ 直接勾選「Microsoft Forms 2.0 Object Library」

當在上述頁面找不到「Microsoft Forms 2.0 Object Library」選項時，可用下述方法解決。

▼ 按「瀏覽」 → 開啟「FM20.DLL」 

找到你要的答案了嗎？若是，請別急著走，更不要吝嗇你的掌聲，撥個兩秒鐘，幫忙按個「讚」吧。另外，工商服務的視窗也是很精采的，別忘了多留意一下，是否有你需要的資訊。

賈伯斯說：求知若渴，虛懷若愚。處處留心皆學問，說不定這些精采的廣告，還可以讓你的人生旅途更加的豐富、更加的精采

為了讓下一個查詢資料的人員可以更快的查詢到正確的資料，

如您有其它資訊可提供，或發現以上訊息有誤時，煩請留下訊息，我們將立即更正。