Excel-VBA技巧-復(fù)制粘貼保留行高列寬等所有格式的方法

1、模模板板設(shè)設(shè)計(jì)計(jì)復(fù)復(fù)制制粘粘貼貼全全部部格格式式包包括括行行高高列列寬寬標(biāo)標(biāo)題題1 1 標(biāo)標(biāo)題題2 2正正文文正正文文模模板板設(shè)設(shè)計(jì)計(jì)復(fù)復(fù)制制粘粘貼貼全全部部格格式式包包括括行行高高列列寬寬標(biāo)標(biāo)題題1 1標(biāo)標(biāo)題題2 2標(biāo)標(biāo)題題1 1標(biāo)標(biāo)題題2 2標(biāo)標(biāo)題題1 1標(biāo)標(biāo)題題2 2正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文模模板板設(shè)設(shè)計(jì)計(jì)復(fù)復(fù)制制粘粘貼貼全全部部格格式式包包括括行行高高列列寬寬標(biāo)標(biāo)題題1 1

2、標(biāo)標(biāo)題題2 2標(biāo)標(biāo)題題1 1標(biāo)標(biāo)題題2 2標(biāo)標(biāo)題題1 1標(biāo)標(biāo)題題2 2正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文標(biāo)標(biāo)題題1 1標(biāo)標(biāo)題題2 2正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文標(biāo)標(biāo)題題1 1標(biāo)標(biāo)題題2 2正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文正正文文模模板板設(shè)設(shè)計(jì)計(jì)復(fù)復(fù)制制粘粘貼貼全全部部格格式式包包括括行行高高列列寬寬模

3、模板板設(shè)設(shè)計(jì)計(jì)復(fù)復(fù)制制粘粘貼貼全全部部格格式式包包括括行行高高列列寬寬ExcelExcel VBAVBA技技巧巧 復(fù)復(fù)制制粘粘貼貼保保留留行行高高列列寬寬等等所所有有格格式式的的方方法法Excel VBA用Copy方法進(jìn)行復(fù)制粘貼，往往會(huì)導(dǎo)致粘貼的數(shù)據(jù)沒(méi)有了行高和列寬。那么，當(dāng)我們要進(jìn)行復(fù)制粘貼時(shí)，如何保證粘貼的數(shù)據(jù)保留原有的格式(包括行高列寬都不能變)。筆者以一個(gè)模板設(shè)計(jì)為例進(jìn)行說(shuō)明。模板表如圖1 所示。圖1根據(jù)模板表生成表格的效果如圖2所示。圖2使用Copy方法復(fù)制粘貼，代碼如下所示：Sub Copy復(fù)制粘貼困惑() Dim x As Integer With Sheet2 清空數(shù)據(jù) .U

4、sedRange.Clear 恢復(fù)標(biāo)準(zhǔn)列寬 .Columns.ColumnWidth = .StandardWidth 恢復(fù)標(biāo)準(zhǔn)行高 .Rows.RowHeight = .StandardHeight End With For x = 1 To 30 Step 15 復(fù)制大標(biāo)題區(qū) Sheet1.Rows(3:4).Copy Sheet2.Rows(x) 小標(biāo)題區(qū) 橫向復(fù)制1份/縱向復(fù)制4份-粘貼份數(shù)由擴(kuò)展區(qū)域Resize(1, 12)決定 Sheet1.Range(B5:D5).Copy Sheet2.Cells(x + 2, B).Resize(1, 12) 正文區(qū) 橫向復(fù)制5份/縱向復(fù)制4

5、份-粘貼份數(shù)由擴(kuò)展區(qū)域Resize(10, 12)決定 Sheet1.Range(B6:D7).Copy Sheet2.Cells(x + 3, B).Resize(10, 12) Next xEnd Sub運(yùn)行代碼效果如圖3所示。圖3粘貼時(shí)為了保證行高和列寬一同被復(fù)制，可以先整行使用Copy方法進(jìn)行復(fù)制粘貼，這樣就可以保證行高一同被復(fù)制；使用PasteSpecial方法選擇性粘貼，參數(shù)Paste設(shè)置為xlPasteColumnWidths即可保證列寬一同被復(fù)制，參數(shù)Paste設(shè)置為xlPasteFormats則只粘貼格式而不粘貼數(shù)據(jù)。為了能一次性復(fù)制多份，粘貼區(qū)域的選擇很重要，粘貼區(qū)域的行數(shù)

6、=樣本區(qū)域行數(shù)橫向份數(shù)，粘貼區(qū)域的列數(shù)=樣本區(qū)域列數(shù)縱向份數(shù)。比如示例中正文區(qū)樣本為2行3列，現(xiàn)需要橫向5份/縱向4份共20份粘貼正文區(qū)，則粘貼區(qū)域應(yīng)為2行5份=10行、3列4份=12列，即10行12列的區(qū)域，所以示例粘貼區(qū)域?yàn)?Cells(x + 3, B).Resize(10, 12)。如果粘貼區(qū)域設(shè)置不當(dāng)將會(huì)出現(xiàn)不可意料的效果，請(qǐng)自行測(cè)試。好了，按照上述方法將代碼修改成如下所示，運(yùn)行后即可得到如圖2所示效果。Sub 復(fù)制全部格式包括行高列寬() Dim x As Integer With Sheet2 清空數(shù)據(jù) .UsedRange.Clear 恢復(fù)標(biāo)準(zhǔn)列寬 .Columns.Colum

7、nWidth = .StandardWidth 恢復(fù)標(biāo)準(zhǔn)行高 .Rows.RowHeight = .StandardHeight End With For x = 1 To 30 Step 15 復(fù)制大標(biāo)題區(qū) Sheet1.Rows(3:4).Copy Sheet2.Rows(x) 小標(biāo)題區(qū) 復(fù)制行高 Sheet1.Rows(5).Copy Sheet2.Rows(x + 2) 縱向復(fù)制4份 Sheet1.Range(B5:D5).Copy Sheet2.Cells(x + 2, B).Resize(1, 12) 正文區(qū) 橫向復(fù)制行高5份 Sheet1.Rows(6:7).Copy Sheet2.Rows(x + 3 & : & x + 12).PasteSpecial xlPasteFormats 選擇性粘貼格式 橫向復(fù)制5份/縱向復(fù)制4份 Sheet1.Range(B6:D7).Copy With Sheet2.Cells(x + 3, B)