解決不規(guī)則合并單元格數(shù)據(jù)復(fù)制問(wèn)題在使用Excel時(shí)，遇到了無(wú)法直接粘貼數(shù)據(jù)到不規(guī)則合并單元格的情況。這時(shí)可以借助宏來(lái)解決此問(wèn)題。首先打開(kāi)Microsoft Office Excel 2007，創(chuàng)建一個(gè)

解決不規(guī)則合并單元格數(shù)據(jù)復(fù)制問(wèn)題

在使用Excel時(shí)，遇到了無(wú)法直接粘貼數(shù)據(jù)到不規(guī)則合并單元格的情況。這時(shí)可以借助宏來(lái)解決此問(wèn)題。首先打開(kāi)Microsoft Office Excel 2007，創(chuàng)建一個(gè)新文檔，保存為《Excel怎樣把數(shù)據(jù)復(fù)制到不規(guī)則的合并單元格中.xlsm》。接下來(lái)按下快捷鍵ALT F11打開(kāi)VBE（宏）編輯界面，插入一個(gè)模塊，在模塊中復(fù)制相應(yīng)代碼。

編寫(xiě)宏代碼實(shí)現(xiàn)數(shù)據(jù)粘貼

在VBE編輯界面中，插入以下代碼：

```vba

Sub 選數(shù)據(jù)粘貼到合并單元格中()

Dim myr As Range, myrs As Range, r As Long, c As Long, i As Long, j As Long

Dim n As Long, mb(), m

Set myrs Selection

r

c

Set myr (Prompt:"選擇粘貼數(shù)據(jù)左上角第一個(gè)合并單元格", Type:8)

For i 1 To c

For j 1 To r

myrs.Cells(j, i).Value

If j < r Then

("{DOWN}")

DoEvents

End If

Next j

("{RIGHT}")

DoEvents

Cells(, Selection.Cells(1).Column).Select

Next i

End Sub

```

運(yùn)行宏復(fù)制數(shù)據(jù)到合并單元格

接著在工作表窗口中，復(fù)制需要粘貼的數(shù)據(jù)區(qū)域，然后運(yùn)行剛剛創(chuàng)建的宏“選數(shù)據(jù)粘貼到合并單元格中”。具體操作為在菜單欄中點(diǎn)擊【視圖】-【宏】-【查看宏(V)】，選擇宏名并執(zhí)行。隨后會(huì)提示選擇粘貼數(shù)據(jù)左上角第一個(gè)合并單元格，完成選擇后即可粘貼數(shù)據(jù)。運(yùn)行過(guò)程中會(huì)按照設(shè)定逐個(gè)粘貼數(shù)據(jù)到合并單元格內(nèi)。

如果以上方法對(duì)您有所幫助，請(qǐng)不吝點(diǎn)擊下方的“投票點(diǎn)贊”或者“收藏”支持作者！如有任何疑問(wèn)，歡迎點(diǎn)擊“我有疑問(wèn)”進(jìn)行提問(wèn)。感謝您的閱讀與支持！