请问我这串代码怎么修改可以只粘贴数值和格式啊。HELP

langtp · 发表于 2022-11-23 15:20

Private Sub CommandButton1_Click()
  Dim rng As Range '声明变量
Set rng = ActiveSheet.Range("B1:K46")  '活动工作表已经使用区域(就是要复制的区域)赋予区域变量rng
Application.ScreenUpdating = False '关闭屏幕刷新,以加快运行速度
Application.DisplayAlerts = False '关闭警告，如果D盘已经存在要保存的工作簿，就覆盖该工作簿而不显示警告框
With Workbooks.Add(xlWBATWorksheet) '新建一个只有1张工作表的工作簿
   rng.Copy .Sheets(1).Cells(2, 1) '把要复制的区域复制到新建工作簿的表1
      .SaveAs Filename:="D:\统计\留底" & [M2] & ".xlsx" '保存在D盘'另存为D盘，此语句可以通过录制宏(另存为)获得
'       .SaveAs Filename:="D:\新建文件夹\" & [a2] & ".xls"'文件夹请自己修改，新建文件夹是否存在没有作判断,请确保它存在
      .Close '关闭新建工作簿
End With
Application.ScreenUpdating = True
End Sub

langtp · 发表于 2022-11-23 15:21

rng.Copy .Sheets(1).Cells(2, 1) 这样复制过去没有格式，而且复制了函数。

3190496160 · 发表于 2022-11-23 15:50

直接拷贝工作表为工作簿文件应该就行了吧？

3190496160 · 发表于 2022-11-23 15:54

Sub 拷贝为工作簿()
Application.ScreenUpdating = False '关闭屏幕刷新,以加快运行速度
Application.DisplayAlerts = False '关闭警告，如果D盘已经存在要保存的工作簿，就覆盖该工作簿而不显示警告框
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb.Worksheets(1)
.UsedRange = .UsedRange.Value
End With
wb.SaveAs Filename:="D:\统计\留底" & [M2] & ".xlsx" '保存在D盘'另存为D盘，此语句可以通过录制宏(另存为)获得
wb.Close '关闭工作簿
Application.DisplayAlerts = True '
Application.ScreenUpdating = True
End Sub

3190496160 · 发表于 2022-11-23 15:55

langtp · 发表于 2022-11-23 16:10

3190496160 发表于 2022-11-23 15:54
Sub 拷贝为工作簿()
Application.ScreenUpdating = False '关闭屏幕刷新,以加快运行速度
Applica ...

感谢大佬回复，主要是这样，我这边做好一个合同以后，想让他指定单元格合同范围，保留列宽，并指定单元格命名，然后另存一份工作簿，无函数，并保留样式。

希望大佬指导一下

langtp · 发表于 2022-11-23 16:26

3190496160 发表于 2022-11-23 15:55

help.zip (35.95 KB, 下载次数: 6)
附件在这里。。希望有大佬能指点

3190496160 · 发表于 2022-11-23 16:54

langtp 发表于 2022-11-23 16:10
感谢大佬回复，主要是这样，我这边做好一个合同以后，想让他指定单元格合同范围，保留列宽，并指定单元格 ...

关键是你连附件都懒得上传呀，谁知道你的真实意图是什么呢？

langtp · 发表于 2022-11-23 17:02

3190496160 发表于 2022-11-23 16:54
关键是你连附件都懒得上传呀，谁知道你的真实意图是什么呢？

我传上附件了。。在您这个帖子回复的上面

		自动登录	找回密码
密码			免费注册