• 日期: 2027-12-03 22:27:23
  • 标签: 常规

Sub CopyAndPasteValues() Sheets('Sheet1').Range('A2:C3').Copy Sheets('Sheet1').Range('A21').PasteSpecial xlPasteValues Sheets('Sheet1').Range('A21').PasteSpecial xlPasteFormats Sheets('Sheet1').Range('A21:C21').HorizontalAlignment = xlCenter Application.CutCopyMode = False End Sub


原文地址: https://www.cveoy.top/t/topic/n1cZ 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录