VBA复制带格式的区域时怎么样才能既复制内容也可以复制格式?

山间竹笋 2015-07-18 11:28:40
VBA复制带格式的区域时怎么样才能既复制内容也可以复制格式?我用的这个只能复制内容,需要在2个不同的工作簿之间复制。
ThisWorkbook.Sheets("汇总").Cells(2, 2).Resize(10,10) = wk.Sheets(“学生A”).Cells(2, 2).Resize(10,10).Value
...全文
3219 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
山间竹笋 2015-07-20
  • 打赏
  • 举报
回复
ThisWorkbook.Sheets("汇总").Cells(2, 2).Resize(10, 10).Copy wk.Sheets("学生A").Paste Destination:=wk.Sheets("学生A").Cells(2, 2).Resize(10, 10) 每次都要弹出对话框
山间竹笋 2015-07-20
  • 打赏
  • 举报
回复
Tiger_Zhao 2015-07-20
  • 打赏
  • 举报
回复
    ThisWorkbook.Sheets("汇总").Cells(2, 2).Resize(10, 10).Copy
wk.Sheets("学生A").Paste Destination:=wk.Sheets("学生A").Cells(2, 2).Resize(10, 10)
of123 2015-07-20
  • 打赏
  • 举报
回复
Sheets("Sheet2").Range("A1").Copy Sheets("Sheet1").Range("B4").Select ActiveSheet.Paste
山间竹笋 2015-07-20
  • 打赏
  • 举报
回复
能详细点吗?
of123 2015-07-20
  • 打赏
  • 举报
回复
用 Range 或 Cells 对象的 Cpoy、Paste 方法试试。
Tiger_Zhao 2015-07-20
  • 打赏
  • 举报
回复
最后加一句
    Application.CutCopyMode = False
山间竹笋 2015-07-19
  • 打赏
  • 举报
回复
ThisWorkbook.Sheets("汇总").Cells(2, 2).Resize(10,10) = wk.Sheets(“学生A”).Cells(2, 2).Resize(10,10).Value 只能复制数值,人民币的符号、百分号都复制不了
山间竹笋 2015-07-19
  • 打赏
  • 举报
回复
求高手,高手在哪里?

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧