【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ù)制過去，存在合并的單元格。
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 '要開始粘貼的位置
ActiveSheet.Paste '粘貼
End Sub
----
在VB的代碼框，為Sheet1添加過程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 '要開始粘貼的位置這條語句要用光標(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中從第七行開始,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ù)制過去了
你不想復(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
更多追問追答
追問
能給一段完整的代碼嗎？用數(shù)組的，因?yàn)槔锩孢€涉及別的循環(huán)。
追答
方式二的代碼就是完整的呀，第一句將表格1的數(shù)據(jù)寫到數(shù)組里，第二句將數(shù)組里的數(shù)據(jù)寫表表格2中。只是代碼中的表格1和表格2不一定與你實(shí)際表格相符，難道表格1和表格2在代碼中該怎樣表示難道你也不會(huì)嗎？沒有你的具體文件，我也幫不了你
4）Excel中的vba復(fù)制粘貼合并單元格的問題.
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ū)域問
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中的全部內(nèi)容復(fù)制到workbooks(2)中的sheet2表里，比如復(fù)制到range("a28:f35")的位置，位置與原區(qū)域大小一致。我運(yùn)行代碼后總是只得到數(shù)據(jù)，而不能夠把格式帶過去，從空的表上做過好多次試驗(yàn)，也沒有解決問題，在同一個(gè)workbook內(nèi)復(fù)制是沒有問題的，手動(dòng)的跨表復(fù)制也是沒有問題的，就是用VBA語言實(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ù)制過去，比如字體，顏色，大小等；
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
【】
聯(lián)系客服
