wbTarget.Sheets("Sheet1").Range("A1:W79").Value = wb.Sheets(wsSource.Name).Range("A1:W79").Value
wbTarget.Sheets("Sheet1").Range("A1:W79").Value
阅读背景：
复制和粘贴格式，包括单元格VBA Excel的颜色
来源：互联网
分享到：
