【2】excelVBA復(fù)制帶合并單元格復(fù)制      

1)vba excel 復(fù)制合并單元格

https://wenda.so.com/q/1460528993725689?src=180&q=VBA%E5%AF%B9%E6%9C%89%E5%90%88%E5%B9%B6%E5%8D%95%E5%85%83%E6%A0%BC%E7%9A%84%E8%A1%A8%E6%A0%BC%E5%A4%8D%E5%88%B6%E8%AF%AD%E5%8F%A5

 如何實(shí)現(xiàn)把一個(gè)工作表中數(shù)據(jù)復(fù)制到令一個(gè)工作表，要求把格式一塊復(fù)制過(guò)去，存在合并的單元格。

  Sub Macro1()

    Range("A1:E10").Select

    Selection.Copy  '復(fù)制

    Sheets("Sheet2").Select

    ActiveSheet.Paste  '粘貼

    Range("A3").Select

  End Sub

  ---------

  Sub Macro1()

sheets("Sheet1").select '選擇數(shù)據(jù)源工作表

Range("A1:A10").Select '要提制的數(shù)據(jù)區(qū)域

Selection.Copy '復(fù)制

Sheets("Sheet2").Select '選擇目標(biāo)工作表

Range("C3").Select '要開(kāi)始粘貼的位置

ActiveSheet.Paste '粘貼

End Sub

----

在VB的代碼框，為Sheet1添加過(guò)程Public Sub Macro1()

sheets("sheet1").select '選擇數(shù)據(jù)源工作表

Range("A1:A10").Select '要提制的數(shù)據(jù)區(qū)域

Selection.Copy '復(fù)制

Sheets("sheet2").Select '選擇目標(biāo)工作表

'Range("C3").Select '要開(kāi)始粘貼的位置這條語(yǔ)句要用光標(biāo)在Sheet2中定位。

2)Excel中如何用vba實(shí)現(xiàn)復(fù)制粘貼不同合并單元格的動(dòng)作?

https://wenda.so.com/q/1372533344067349?src=9999&cid-pre=1000204

Sheet1中C1~M1的合并單元格內(nèi)容復(fù)制到sheet2中的E1~H1的合并單元格中,有若干行,比如從sheet1第四行到第十行.移動(dòng)到sheet2中從第七行開(kāi)始,vba如何實(shí)現(xiàn)呢?

 Public Sub ss() 

Dim i, j 

i = 4 

j = 7 

Do While i <= 10 

Sheets(2).Range("e" & j).Value = Range("C" & i).Value 

i = i + 1 

j = j + 1 

Loop 

End Sub 

3)excel vba如何實(shí)現(xiàn)夸合并單元格復(fù)制

https://zhidao.baidu.com/question/565784477294557204.html

  如何用VBA宏實(shí)現(xiàn)自動(dòng)把表1的內(nèi)容復(fù)制到表2里，正常復(fù)制格式就都復(fù)制過(guò)去了

  你不想復(fù)制格式的話，有兩種辦法，一是復(fù)制后選擇性粘貼值，二是先將數(shù)據(jù)存入數(shù)組

方式一的代碼如下：

Sheet1.UsedRange.Copy

Sheet2.Range("A1").PasteSpecial xlPasteValues

方式二代碼如下：

Arr = Sheet1.UsedRange

Sheet2.Range("A1").Resize(UBound(Arr), UBound(Arr, 2)) = Arr

更多追問(wèn)追答

追問(wèn)

能給一段完整的代碼嗎？用數(shù)組的，因?yàn)槔锩孢€涉及別的循環(huán)。

追答

方式二的代碼就是完整的呀，第一句將表格1的數(shù)據(jù)寫(xiě)到數(shù)組里，第二句將數(shù)組里的數(shù)據(jù)寫(xiě)表表格2中。只是代碼中的表格1和表格2不一定與你實(shí)際表格相符，難道表格1和表格2在代碼中該怎樣表示難道你也不會(huì)嗎？沒(méi)有你的具體文件，我也幫不了你

4）Excel中的vba復(fù)制粘貼合并單元格的問(wèn)題.

https://zhidao.baidu.com/question/264360208.html?qbl=relate_question_1&word=VBA%B6%D4%D3%D0%BA%CF%B2%A2%B5%A5%D4%AA%B8%F1%B5%C4%B1%ED%B8%F1%B8%B4%D6%C6%D3%EF%BE%E4

5）求:連續(xù)向下復(fù)制粘貼含有"合并單元格區(qū)域"的vba代碼

https://zhidao.baidu.com/question/538077090.html?fr=iks&word=VBA%B6%D4%B4%F8%D3%D0%BA%CF%B2%A2%B5%A5%D4%AA%B8%F1%B5%C4%B1%ED%B8%F1%B8%B4%D6%C6%D3%EF%BE%E4&ie=gbk

  Sub 復(fù)制()

Dim x%

Dim st As Worksheet

Set st = Sheets("這里")

With st

  .Range("a1:w38").Copy

  For i = 39 To 380 Step 38

    .Cells(i, 1).Select

   ActiveSheet.Paste

  Next

End With

End Sub

----

5）excel跨表復(fù)制帶有合并單元格的區(qū)域問(wèn)

https://zhidao.baidu.com/question/564160551.html?fr=iks&word=VBA%B6%D4%B4%F8%D3%D0%BA%CF%B2%A2%B5%A5%D4%AA%B8%F1%B5%C4%B1%ED%B8%F1%B8%B4%D6%C6%D3%EF%BE%E4&ie=gbk

workbooks(1)里面有一張表shee1，表中有合并單元格，想把sheet1中的全部?jī)?nèi)容復(fù)制到workbooks(2)中的sheet2表里，比如復(fù)制到range("a28:f35")的位置，位置與原區(qū)域大小一致。我運(yùn)行代碼后總是只得到數(shù)據(jù)，而不能夠把格式帶過(guò)去，從空的表上做過(guò)好多次試驗(yàn)，也沒(méi)有解決問(wèn)題，在同一個(gè)workbook內(nèi)復(fù)制是沒(méi)有問(wèn)題的，手動(dòng)的跨表復(fù)制也是沒(méi)有問(wèn)題的，就是用VBA語(yǔ)言實(shí)現(xiàn)不了。

  BBS:有2種方法

  1、Range("A1:B5").Copy

    Sheets("2").Select

    ActiveSheet.Paste

  2、Sheets("1").Range("A1:B5").Copy Sheets("2").Range("a1")

  只有單元格的寬、高不能復(fù)制，其它都可以復(fù)制過(guò)去，比如字體，顏色，大小等；

  3、

  ThisWorkbook.Sheets("1").Range("A1:B5").Copy,_Workbooks("1.xlsx").Sheets(1).Range("a1")

  4、

  Sub ts()

Workbooks(1).Sheets(3).Range("a1:b2").Copy

Workbooks(2).Sheets(1).Range("a1:b2").PasteSpecial Paste:=xlPasteAll

End Sub

【】