vba 复制粘贴内容包括格式怎么写(vba中复制粘贴代码)
作者：admin • 更新时间：2024-04-15 03:36:02 •阅读
子复制粘贴()
DimwsSourceAsWorksheetDimwsDestinationAsWorksheetDimlastRowAsLong
SetwsSource=ThisWorkbook.Sheets('Sheet1')'设置源工作表SetwsDestination=ThisWorkbook.Sheets('Sheet2')'设置目标工作表
lastRow=wsSource.Cells(Rows.Count,1).End(xlUp).Row'获取源工作表中的最后一行
wsSource.Range('A1:Z'lastRow).Copy'复制源工作表中的范围
wsDestination.Range('A1').PasteSpecialPaste:=xlPasteValues'将范围作为值粘贴到目标工作表中
Application.CutCopyMode=False'清除剪贴板
结束子
[免责声明]本文来源于网络，不代表本站立场，如转载内容涉及版权等问题，请联系邮箱:83115484#qq.com，#换成@即可，我们会予以删除相关文章，保证您的权利。 转载请注明出处：http://gpwlkj.com/wenda/1921.html
